diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-05-30 13:43:15 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-05-30 13:43:15 +0000 |
| commit | 493367ccdfe146d4f898bb49f1ff43ead382dbf9 (patch) | |
| tree | 666293128093cd5b39a64851caf1cd6852319ac6 /theories/FSets/FSetToFiniteSet.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/FSetToFiniteSet.v')
| -rw-r--r-- | theories/FSets/FSetToFiniteSet.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/theories/FSets/FSetToFiniteSet.v b/theories/FSets/FSetToFiniteSet.v index 9dd5f2739..747fd3796 100644 --- a/theories/FSets/FSetToFiniteSet.v +++ b/theories/FSets/FSetToFiniteSet.v @@ -82,7 +82,7 @@ Module S_to_Finite_set (U:UsualOrderedType)(M:S with Module E := U). Lemma add_Add : forall x s, !!(add x s) === Add _ (!!s) x. Proof. unfold Same_set, Included, mkEns, In. - split; intro; set_iff; inversion 1; auto with sets. + split; intro; set_iff; inversion 1; unfold E.eq; auto with sets. inversion H0. constructor 2; constructor. constructor 1; auto. @@ -97,7 +97,7 @@ Module S_to_Finite_set (U:UsualOrderedType)(M:S with Module E := U). inversion H0. constructor 2; constructor. constructor 1; auto. - red in H; rewrite H. + red in H; rewrite H; unfold E.eq in *. inversion H0; auto. inversion H1; auto. Qed. @@ -105,7 +105,7 @@ Module S_to_Finite_set (U:UsualOrderedType)(M:S with Module E := U). Lemma remove_Subtract : forall x s, !!(remove x s) === Subtract _ (!!s) x. Proof. unfold Same_set, Included, mkEns, In. - split; intro; set_iff; inversion 1; auto with sets. + split; intro; set_iff; inversion 1; unfold E.eq in *; auto with sets. split; auto. swap H1. inversion H2; auto. |