diff options
| -rwxr-xr-x | theories/Arith/Minus.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/theories/Arith/Minus.v b/theories/Arith/Minus.v index 2d00f259b4..8224b85358 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. |