diff options
author | 2017-11-24 15:14:44 +0100 | |
---|---|---|
committer | 2017-11-24 15:14:44 +0100 | |
commit | a1a9f9d62dfe0e8dfb8c924a74e57c9f08b4f2d9 (patch) | |
tree | 509449063db80688ad270b347ae0558cb8ab03bc /test-suite/bugs/closed | |
parent | f9b3414888aebd1186f53c46d737536670171ab6 (diff) | |
parent | c5f9e3a03c1f089253622ec262adf931e6dc1ca2 (diff) |
Merge PR #876: In omega or romega, recognizing Z and nat modulo conversion
Diffstat (limited to 'test-suite/bugs/closed')
-rw-r--r-- | test-suite/bugs/closed/4717.v | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/4717.v b/test-suite/bugs/closed/4717.v new file mode 100644 index 000000000..1507fa4bf --- /dev/null +++ b/test-suite/bugs/closed/4717.v @@ -0,0 +1,37 @@ +(* Omega being smarter on recognizing nat and Z *) + +Require Import Omega. + +Definition nat' := nat. + +Theorem le_not_eq_lt : forall (n m:nat), + n <= m -> + n <> m :> nat' -> + n < m. +Proof. + intros. + omega. +Qed. + +Goal forall (x n : nat'), x = x + n - n. +Proof. + intros. + omega. +Qed. + +Require Import ZArith ROmega. + +Open Scope Z_scope. + +Definition Z' := Z. + +Theorem Zle_not_eq_lt : forall n m, + n <= m -> + n <> m :> Z' -> + n < m. +Proof. + intros. + omega. + Undo. + romega. +Qed. |