diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-07-25 10:19:05 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-07-25 10:19:05 +0000 |
commit | be9c3dc93413a76d188724d4a06739d9bb238b72 (patch) | |
tree | d59cc88bcf3661ddfcc03ef42902e0d5178f71a8 /theories/Classes/Equivalence.v | |
parent | 72add906154ce22894a41cf04543a7c096456e09 (diff) |
More compatibility fixes, revert the tauto fix that prevented
destruction of records as a lot of scripts currently rely on it.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11263 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Classes/Equivalence.v')
-rw-r--r-- | theories/Classes/Equivalence.v | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/theories/Classes/Equivalence.v b/theories/Classes/Equivalence.v index 84aa9cf06..22d9ff56f 100644 --- a/theories/Classes/Equivalence.v +++ b/theories/Classes/Equivalence.v @@ -54,9 +54,6 @@ Infix "=~=" := pequiv (at level 70, no associativity) : equiv_scope. Program Instance equiv_reflexive [ sa : Equivalence A ] : Reflexive equiv. - Next Obligation. - Proof. reflexivity. Qed. - Program Instance equiv_symmetric [ sa : Equivalence A ] : Symmetric equiv. Next Obligation. @@ -127,13 +124,7 @@ Section Respecting. Next Obligation. Proof. - unfold respecting in *. program_simpl. destruct eqa ; destruct eqb. red in H2,H1 ; auto. - Qed. - - Next Obligation. - Proof. - unfold respecting in *. program_simpl. destruct eqa ; destruct eqb. red in H2,H3,H4. - transitivity (y y0) ; auto. + unfold respecting in *. program_simpl. transitivity (y y0); auto. apply H0. reflexivity. Qed. End Respecting. |