diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-04-07 20:49:24 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-04-07 20:49:24 +0000 |
commit | 9b2cc735c28e7887a4907a28af151e9a1ad7c5e6 (patch) | |
tree | ad681af471233ea4ec38d792f65672a72a9664c8 /theories/Classes/RelationClasses.v | |
parent | d7e8aa7b7acbc13793837aa8d582124f72afbf25 (diff) |
Move setoid_rewrite to its own module and do some clean up in
class_tactics.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12056 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Classes/RelationClasses.v')
-rw-r--r-- | theories/Classes/RelationClasses.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/theories/Classes/RelationClasses.v b/theories/Classes/RelationClasses.v index c690ee4a7..3ddba8ee8 100644 --- a/theories/Classes/RelationClasses.v +++ b/theories/Classes/RelationClasses.v @@ -78,15 +78,15 @@ Program Instance flip_Irreflexive `(Irreflexive A R) : Irreflexive (flip R) := Program Instance flip_Symmetric `(Symmetric A R) : Symmetric (flip R). - Solve Obligations using unfold flip ; intros ; tcapp symmetry ; assumption. + Solve Obligations using unfold flip ; intros ; eapply symmetry ; assumption. Program Instance flip_Asymmetric `(Asymmetric A R) : Asymmetric (flip R). - Solve Obligations using program_simpl ; unfold flip in * ; intros ; typeclass_app asymmetry ; eauto. + Solve Obligations using program_simpl ; unfold flip in * ; intros ; eapply asymmetry ; eauto. Program Instance flip_Transitive `(Transitive A R) : Transitive (flip R). - Solve Obligations using unfold flip ; program_simpl ; typeclass_app transitivity ; eauto. + Solve Obligations using unfold flip ; program_simpl ; eapply transitivity ; eauto. Program Instance Reflexive_complement_Irreflexive `(Reflexive A (R : relation A)) : Irreflexive (complement R). |