diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-17 13:31:12 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-17 13:31:12 +0000 |
commit | 0768a9c968dfc205334dabdd3e86d2a91bb7a33a (patch) | |
tree | 162a3910024fe2e2d23e88360ef1fc91f1798986 /theories/Arith | |
parent | 77b71db8470553aed0476827ec2e39aed0cbb6ed (diff) |
Simplification of OrdersTac thanks to the functor application ! with no inline
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12679 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Arith')
-rw-r--r-- | theories/Arith/NatOrderedType.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/theories/Arith/NatOrderedType.v b/theories/Arith/NatOrderedType.v index fa4b7172a..df5b37e01 100644 --- a/theories/Arith/NatOrderedType.v +++ b/theories/Arith/NatOrderedType.v @@ -57,3 +57,8 @@ 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]. *) + +Section Test. +Let test : forall x y : nat, x<=y -> y<=x -> x=y. +Proof. nat_order. Qed. +End Test. |