Skip to content
Snippets Groups Projects

add option_fmap_dist_inj lemma

Merged Ralf Jung requested to merge ralf/fmap_dist_inj into master
1 file
+ 4
0
Compare changes
  • Side-by-side
  • Inline
+ 4
0
@@ -1330,6 +1330,10 @@ Proof.
apply optionO_map_ne, oFunctor_map_contractive.
Qed.
Global Instance option_fmap_dist_inj {A B : ofe} (f : A B) n :
Inj ({n}) ({n}) f Inj ({n}@{option A}) ({n}@{option B}) (fmap f).
Proof. apply option_fmap_inj. Qed.
(** * Later type *)
(** Note that the projection [later_car] is not non-expansive (see also the
lemma [later_car_anti_contractive] below), so it cannot be used in the logic.
Loading