diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-04-18 04:07:31 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-04-18 04:07:31 +0000 |
commit | 4aa97e1314fdeedd4e1e5a1574671057d889f659 (patch) | |
tree | b3e9e236fb28e7100c75d273101628f95671ce44 /theories/Classes/EquivDec.v | |
parent | b878f1130e6eeffad311f3737331bccac9bf9e86 (diff) |
Just export RelationClasses for [Equivalence] through Setoid.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12094 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Classes/EquivDec.v')
-rw-r--r-- | theories/Classes/EquivDec.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/theories/Classes/EquivDec.v b/theories/Classes/EquivDec.v index aa653de0f..aa5a1f287 100644 --- a/theories/Classes/EquivDec.v +++ b/theories/Classes/EquivDec.v @@ -145,3 +145,8 @@ Program Instance list_eqdec `(eqa : EqDec A eq) : ! EqDec (list A) eq := end }. Solve Obligations using unfold equiv, complement in * ; program_simpl ; intuition (discriminate || eauto). + + + Next Obligation. destruct x ; destruct y ; intuition eauto. Defined. + + Solve Obligations using unfold equiv, complement in * ; program_simpl ; intuition (discriminate || eauto). |