From 172ee7f67a3aa8f8888905bee3c153cae543fcd5 Mon Sep 17 00:00:00 2001 From: herbelin Date: Sat, 14 Jun 2003 06:45:20 +0000 Subject: Deplacement de le_minus de fast_integer vers Minus git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4161 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories/Arith/Minus.v | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/theories/Arith/Minus.v b/theories/Arith/Minus.v index 2d00f259b..8224b8535 100755 --- a/theories/Arith/Minus.v +++ b/theories/Arith/Minus.v @@ -63,6 +63,13 @@ Symmetry; Auto with arith. Qed. Hints Resolve le_plus_minus_r : arith v62. +Theorem le_minus: (i,h:nat) (le (minus i h) i). +Proof. +Intros i h;Pattern i h; Apply nat_double_ind; [ + Auto +| Auto +| Intros m n H; Simpl; Apply le_trans with m:=m; Auto ]. +Qed. Lemma minus_Sn_m : (n,m:nat)(le m n)->((S (minus n m))=(minus (S n) m)). Proof. -- cgit v1.2.3