diff options
| -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 6df2f83d18..2d29a8356b 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. +*) |