diff options
| author | letouzey | 2006-05-30 13:43:15 +0000 |
|---|---|---|
| committer | letouzey | 2006-05-30 13:43:15 +0000 |
| commit | 493367ccdfe146d4f898bb49f1ff43ead382dbf9 (patch) | |
| tree | 666293128093cd5b39a64851caf1cd6852319ac6 /theories/FSets/FMapIntMap.v | |
| parent | af354d63a814b0855eefda81852029d72b3544db (diff) | |
* suite de la revision des wrappers Make
* quelques unfold E.eq en cas de changement de la semantique des foncteurs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8876 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/FSets/FMapIntMap.v')
| -rw-r--r-- | theories/FSets/FMapIntMap.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/theories/FSets/FMapIntMap.v b/theories/FSets/FMapIntMap.v index 5e4da1cd60..90df4019f4 100644 --- a/theories/FSets/FMapIntMap.v +++ b/theories/FSets/FMapIntMap.v @@ -437,11 +437,11 @@ Module MapIntMap <: S with Module E:=NUsualOrderedType. red; auto. case_eq (find x m); intros. apply find_1. - apply add_2; auto. + apply add_2; unfold E.eq in *; auto. case_eq (find x (add y e m)); auto; intros. rewrite <- H; symmetry. apply find_1; auto. - apply (@add_3 _ m y x a e); auto. + apply (@add_3 _ m y x a e); unfold E.eq in *; auto. Qed. Lemma anti_elements_mapsto_aux : forall (A:Set)(l:list (key*A)) m k e, @@ -482,10 +482,10 @@ Module MapIntMap <: S with Module E:=NUsualOrderedType. red; auto. inversion_clear H. destruct (ME.eq_dec k0 k). - subst. + unfold E.eq in *; subst. destruct (H0 k); eauto. red; eauto. - right; apply add_2; auto. + right; apply add_2; unfold E.eq in *; auto. Qed. Lemma anti_elements_mapsto : forall (A:Set) l k e, NoDupA (eq_key (A:=A)) l -> |