diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-07 15:32:22 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-07 15:32:22 +0000 |
| commit | 345c0ee557465d7d2f22ac34898388dfbb57cd0f (patch) | |
| tree | ba50e980e96fe1dd02183f8b89fd6b5ef5859ee6 /theories/Arith | |
| parent | 56773377924f7f4d98d007b5687ebb44cff69042 (diff) | |
OrderTac: use TotalOrder, no more "change" before calling "order" (stuff with Inline)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12636 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Arith')
| -rw-r--r-- | theories/Arith/NatOrderedType.v | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/theories/Arith/NatOrderedType.v b/theories/Arith/NatOrderedType.v index 287d0c955..d9b2b30f0 100644 --- a/theories/Arith/NatOrderedType.v +++ b/theories/Arith/NatOrderedType.v @@ -7,7 +7,7 @@ (************************************************************************) Require Import Lt Peano_dec Compare_dec EqNat - DecidableType2 OrderedType2 OrderedType2Facts. + DecidableType2 OrderedType2 OrderTac. (** * DecidableType structure for Peano numbers *) @@ -53,10 +53,7 @@ End Nat_as_OT. (** * An [order] tactic for Peano numbers *) Module NatOrder := OTF_to_OrderTac Nat_as_OT. -Ltac nat_order := - change (@eq nat) with NatOrder.OrderElts.eq in *; - NatOrder.order. +Ltac nat_order := NatOrder.order. (** Note that [nat_order] is domain-agnostic: it will not prove [1<=2] or [x<=x+x], but rather things like [x<=y -> y<=x -> x=y]. *) - |