diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-11 19:53:13 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-11 19:53:13 +0000 |
| commit | d20c3c79eddab8599c91867554117b3cafbc3b1c (patch) | |
| tree | 10bedf7ea010268e34a29547a01d65c5fafdd2f7 /test-suite/success/Omega.v | |
| parent | d6c9c6356c0c995366d18482a0797ea69e6c2710 (diff) | |
Test conflictuel - ajouté pour mémoire
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7849 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/Omega.v')
| -rw-r--r-- | test-suite/success/Omega.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/success/Omega.v b/test-suite/success/Omega.v index 6df2f83d1..2d29a8356 100644 --- a/test-suite/success/Omega.v +++ b/test-suite/success/Omega.v @@ -85,3 +85,12 @@ Lemma lem9 : intros; omega. Qed. +(* Check that the interpretation of mult on nat enforces its positivity *) +(* Submitted by Hubert Thierry (bug #743) *) +(* Postponed... problem with goals of the form "(n*m=0)%nat -> (n*m=0)%Z" +Require Omega. +Lemma lem10 : (n, m : nat) (le n (plus n (mult n m))). +Proof. +Intros; Omega. +Qed. +*) |