diff options
| author | letouzey | 2009-12-18 15:27:45 +0000 |
|---|---|---|
| committer | letouzey | 2009-12-18 15:27:45 +0000 |
| commit | bc1168a4aa0a336e9686b57cc29ec562aa379973 (patch) | |
| tree | ae41cd7f6a7ce2961201f2f717008d92dd464b0b /theories/Numbers/Natural | |
| parent | 493c6773fdf846c887cf469e39e2e23aa438d1c9 (diff) | |
RelationPairs: stop loading it in all Numbers, stop maximal args with fst/snd
As a consequence, revert to some pedestrian proofs of Equivalence here
and there, without the need for the Measure class.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12598 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Numbers/Natural')
| -rw-r--r-- | theories/Numbers/Natural/Abstract/NDefOps.v | 1 | ||||
| -rw-r--r-- | theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v | 3 |
2 files changed, 2 insertions, 2 deletions
diff --git a/theories/Numbers/Natural/Abstract/NDefOps.v b/theories/Numbers/Natural/Abstract/NDefOps.v index 1239173752..69dbf656e3 100644 --- a/theories/Numbers/Natural/Abstract/NDefOps.v +++ b/theories/Numbers/Natural/Abstract/NDefOps.v @@ -11,6 +11,7 @@ (*i $Id$ i*) Require Import Bool. (* To get the orb and negb function *) +Require Import RelationPairs. Require Export NStrongRec. Module NdefOpsPropFunct (Import N : NAxiomsSig). diff --git a/theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v b/theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v index aa291cfdce..66d3a89c29 100644 --- a/theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v +++ b/theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v @@ -34,9 +34,8 @@ Ltac ncongruence := unfold N.eq; repeat red; intros; nsimpl; congruence. Obligation Tactic := ncongruence. -Instance: @Measure N.t Z N.to_Z. - Instance eq_equiv : Equivalence N.eq. +Proof. unfold N.eq. firstorder. Qed. Program Instance succ_wd : Proper (N.eq==>N.eq) N.succ. Program Instance pred_wd : Proper (N.eq==>N.eq) N.pred. |