Skip to content
Snippets Groups Projects
Verified Commit a00d9bd8 authored by Paolo G. Giarrusso's avatar Paolo G. Giarrusso
Browse files

Replace explicit use of Inj instances by inj

This was inconsistent and not explained before.
parent a323b68e
No related branches found
No related tags found
1 merge request!132Replace explicit use of Inj instances by inj
...@@ -58,7 +58,7 @@ Section namespace. ...@@ -58,7 +58,7 @@ Section namespace.
intros Hxy a. unfold up_close. rewrite !nclose_eq, !ndot_eq. intros Hxy a. unfold up_close. rewrite !nclose_eq, !ndot_eq.
unfold nclose_def, ndot_def; rewrite !elem_coPset_suffixes. unfold nclose_def, ndot_def; rewrite !elem_coPset_suffixes.
intros [qx ->] [qy Hqy]. intros [qx ->] [qy Hqy].
revert Hqy. by intros [= ?%encode_inj]%positives_flatten_suffix_eq. revert Hqy. by intros [= ?%(inj _)]%positives_flatten_suffix_eq.
Qed. Qed.
Lemma ndot_preserve_disjoint_l N E x : N ## E N.@x ## E. Lemma ndot_preserve_disjoint_l N E x : N ## E N.@x ## E.
......
...@@ -189,8 +189,8 @@ Lemma fmap_Some_equiv {A B} `{Equiv B} `{!Equivalence (≡@{B})} (f : A → B) m ...@@ -189,8 +189,8 @@ Lemma fmap_Some_equiv {A B} `{Equiv B} `{!Equivalence (≡@{B})} (f : A → B) m
f <$> mx Some y x, mx = Some x y f x. f <$> mx Some y x, mx = Some x y f x.
Proof. Proof.
destruct mx; simpl; split. destruct mx; simpl; split.
- intros ?%Some_equiv_inj. eauto. - intros ?%(inj _). eauto.
- intros (? & ->%Some_inj & ?). constructor. done. - intros (? & ->%(inj _) & ?). constructor. done.
- intros ?%symmetry%equiv_None. done. - intros ?%symmetry%equiv_None. done.
- intros (? & ? & ?). done. - intros (? & ? & ?). done.
Qed. Qed.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment