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/opened/4717.v | 19 -------------------
 1 file changed, 19 deletions(-)
 delete mode 100644 test-suite/bugs/opened/4717.v

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

diff --git a/test-suite/bugs/opened/4717.v b/test-suite/bugs/opened/4717.v
deleted file mode 100644
index 9ad4746723..0000000000
--- a/test-suite/bugs/opened/4717.v
+++ /dev/null
@@ -1,19 +0,0 @@
-(*See below. They sometimes work, and sometimes do not. Is this a bug?*)
-
-Require Import Omega Psatz.
-
-Definition foo := nat.
-
-Goal forall (n : foo), 0 = n - n.
-Proof. intros. omega. (* works *) Qed.
-
-Goal forall (x n : foo), x = x + n - n.
-Proof.
-  intros.
-  Fail omega. (* Omega can't solve this system *)
-  Fail lia. (* Cannot find witness. *)
-  unfold foo in *.
-  omega. (* works *)
-Qed.
-
-(* Guillaume Melquiond: What matters is the equality. In the first case, it is @eq nat. In the second case, it is @eq foo. The same issue exists for ring and field. So it is not a bug, but it is worth fixing.*)
-- 
cgit v1.2.3