diff options
Diffstat (limited to 'theories/Classes')
-rw-r--r-- | theories/Classes/Equivalence.v | 11 | ||||
-rw-r--r-- | theories/Classes/Morphisms.v | 5 |
2 files changed, 1 insertions, 15 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. diff --git a/theories/Classes/Morphisms.v b/theories/Classes/Morphisms.v index 0a099e135..8acbe916b 100644 --- a/theories/Classes/Morphisms.v +++ b/theories/Classes/Morphisms.v @@ -96,11 +96,6 @@ Program Instance respectful_per [ PER A (R : relation A), PER B (R' : relation B Next Obligation. Proof with auto. - destruct PER0 ; destruct PER1 ; auto. - Qed. - - Next Obligation. - Proof with auto. destruct PER0 ; destruct PER1. assert(R x0 x0). transitivity y0... symmetry... transitivity (y x0)... |