diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-05-16 13:41:38 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-05-16 13:41:38 +0000 |
| commit | b0e371b354ffdbf4a8572924602d04848020079e (patch) | |
| tree | 4f656ec0d438667e479d76d1ee22bb74e2cd0577 /theories/Classes/RelationClasses.v | |
| parent | 47c3ff53ee1c6b93172da74cc9916f0e9c51516d (diff) | |
Minor fixes in typeclasses:
- Set implicit args on for Context decls
- Move class_apply tactic to Init
- Normalize evars before raising an error.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12127 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Classes/RelationClasses.v')
| -rw-r--r-- | theories/Classes/RelationClasses.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Classes/RelationClasses.v b/theories/Classes/RelationClasses.v index 681bd90a9..1a966ded5 100644 --- a/theories/Classes/RelationClasses.v +++ b/theories/Classes/RelationClasses.v @@ -45,7 +45,7 @@ Class Reflexive {A} (R : relation A) := Class Irreflexive {A} (R : relation A) := irreflexivity : Reflexive (complement R). -Hint Extern 1 (Reflexive (complement _)) => eapply @irreflexivity : typeclasses_instances. +Hint Extern 1 (Reflexive (complement _)) => class_apply @irreflexivity : typeclasses_instances. Class Symmetric {A} (R : relation A) := symmetry : forall x y, R x y -> R y x. @@ -311,7 +311,7 @@ Notation "∙⊥∙" := false_predicate : predicate_scope. (** Predicate equivalence is an equivalence, and predicate implication defines a preorder. *) Program Instance predicate_equivalence_equivalence : Equivalence (@predicate_equivalence l). - Next Obligation. + Next Obligation. induction l ; firstorder. Qed. Next Obligation. |