diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-12 15:50:01 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-12 15:50:01 +0000 |
| commit | 1a197792a437ca0a797c5dcec099d64b550028f8 (patch) | |
| tree | 2126abb11dcf1bab774823ab61a5206e237bf0af /theories/Numbers/Natural | |
| parent | f5100d4c26483fbef55865422d6ebb8858b60b5c (diff) | |
Numbers/.../NDefOps: one more property about ltb
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12654 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Numbers/Natural')
| -rw-r--r-- | theories/Numbers/Natural/Abstract/NDefOps.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/theories/Numbers/Natural/Abstract/NDefOps.v b/theories/Numbers/Natural/Abstract/NDefOps.v index 8ac7c6f6d..22eb2cb34 100644 --- a/theories/Numbers/Natural/Abstract/NDefOps.v +++ b/theories/Numbers/Natural/Abstract/NDefOps.v @@ -176,6 +176,10 @@ intro n. rewrite ltb_0. split; intro H; [discriminate | false_hyp H nlt_0_r]. intros n m. rewrite succ_ltb_mono. now rewrite <- succ_lt_mono. Qed. +Theorem ltb_ge : forall n m, n << m = false <-> n >= m. +Proof. +intros. rewrite <- not_true_iff_false, ltb_lt. apply nlt_ge. +Qed. (*****************************************************) (** Even *) |