From 1b09c7b0802c85ea72931720a7cb4fbf9ab5e211 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sat, 8 Jul 2017 11:19:13 +0200
Subject: Using is_conv rather than eq_constr to find `nat` or `Z` in omega.

Moving at the same to a passing "env sigma" style rather than passing
"gl". Not that it is strictly necessary, but since we had to move
functions taking only a "sigma" to functions taking also a "env", we
eventually adopted the "env sigma" style. (The "gl" style would have
been as good.)

This answers wish #4717.
---
 test-suite/bugs/closed/4717.v | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 test-suite/bugs/closed/4717.v

(limited to 'test-suite/bugs/closed')

diff --git a/test-suite/bugs/closed/4717.v b/test-suite/bugs/closed/4717.v
new file mode 100644
index 0000000000..4562ed1f1a
--- /dev/null
+++ b/test-suite/bugs/closed/4717.v
@@ -0,0 +1,35 @@
+(* 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.
+
+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.
+Qed.
-- 
cgit v1.2.3