From a597bb33eb9b3c9d70422d72e89bcbda90896ddb Mon Sep 17 00:00:00 2001
From: Nick Lewycky
Date: Mon, 10 Sep 2018 14:53:05 -0700
Subject: Move tests in bugs/ to the bugs/closed/.

---
 test-suite/bugs/closed/2428.v | 10 ++++++++++
 test-suite/bugs/closed/4623.v |  5 +++++
 test-suite/bugs/closed/4624.v |  7 +++++++
 test-suite/bugs/closed/7333.v | 39 +++++++++++++++++++++++++++++++++++++++
 4 files changed, 61 insertions(+)
 create mode 100644 test-suite/bugs/closed/2428.v
 create mode 100644 test-suite/bugs/closed/4623.v
 create mode 100644 test-suite/bugs/closed/4624.v
 create mode 100644 test-suite/bugs/closed/7333.v

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

diff --git a/test-suite/bugs/closed/2428.v b/test-suite/bugs/closed/2428.v
new file mode 100644
index 0000000000..b398a76d91
--- /dev/null
+++ b/test-suite/bugs/closed/2428.v
@@ -0,0 +1,10 @@
+Axiom P : nat -> Prop.
+
+Definition myFact := forall x, P x.
+
+Hint Extern 1 (P _) => progress (unfold myFact in *).
+
+Lemma test : (True -> myFact) -> P 3.
+Proof.
+  intros. debug eauto.
+Qed.
diff --git a/test-suite/bugs/closed/4623.v b/test-suite/bugs/closed/4623.v
new file mode 100644
index 0000000000..7ecfd98b67
--- /dev/null
+++ b/test-suite/bugs/closed/4623.v
@@ -0,0 +1,5 @@
+Goal Type -> Type.
+set (T := Type).
+clearbody T.
+refine (@id _).
+Qed.
diff --git a/test-suite/bugs/closed/4624.v b/test-suite/bugs/closed/4624.v
new file mode 100644
index 0000000000..f5ce981cd0
--- /dev/null
+++ b/test-suite/bugs/closed/4624.v
@@ -0,0 +1,7 @@
+Record foo := mkfoo { type : Type }.
+
+Canonical Structure fooA (T : Type) := mkfoo (T -> T).
+
+Definition id (t : foo) (x : type t) := x.
+
+Definition bar := id _ ((fun x : nat => x) : _).
diff --git a/test-suite/bugs/closed/7333.v b/test-suite/bugs/closed/7333.v
new file mode 100644
index 0000000000..fba5b9029d
--- /dev/null
+++ b/test-suite/bugs/closed/7333.v
@@ -0,0 +1,39 @@
+Module Example1.
+
+CoInductive wrap : Type :=
+ | item : unit -> wrap.
+
+Definition extract (t : wrap) : unit :=
+match t with
+| item x => x
+end.
+
+CoFixpoint close u : unit -> wrap :=
+match u with
+| tt => item
+end.
+
+Definition table : wrap := close tt tt.
+
+Eval vm_compute in (extract table).
+Eval vm_compute in (extract table).
+
+End Example1.
+
+Module Example2.
+
+Set Primitive Projections.
+CoInductive wrap : Type :=
+ item { extract : unit }.
+
+CoFixpoint close u : unit -> wrap :=
+match u with
+| tt => item
+end.
+
+Definition table : wrap := close tt tt.
+
+Eval vm_compute in (extract table).
+Eval vm_compute in (extract table).
+
+End Example2.
-- 
cgit v1.2.3