diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-13 16:53:01 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-13 16:53:01 +0000 |
| commit | e0e008cef9f5b2ead64708651f52b739a8225993 (patch) | |
| tree | c78fd9c28394c52f347baeed39ba91a4a3f6a812 /theories/Structures/Equalities.v | |
| parent | 4fdec1dc05525f1c5f9b52566b6dcfd02bf3c219 (diff) | |
Try to avoid re-declaring Equivalence, especially for Logic.eq
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12662 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Structures/Equalities.v')
| -rw-r--r-- | theories/Structures/Equalities.v | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/theories/Structures/Equalities.v b/theories/Structures/Equalities.v index 76f539764..487b1d0cc 100644 --- a/theories/Structures/Equalities.v +++ b/theories/Structures/Equalities.v @@ -175,7 +175,9 @@ End HasUsualEq. Module Type UsualEq <: Eq := Typ <+ HasUsualEq. Module Type UsualIsEq (E:UsualEq) <: IsEq E. - Program Instance eq_equiv : Equivalence E.eq. + (* No Instance syntax to avoid saturating the Equivalence tables *) + Lemma eq_equiv : Equivalence E.eq. + Proof. exact eq_equivalence. Qed. End UsualIsEq. Module Type UsualIsEqOrig (E:UsualEq) <: IsEqOrig E. |