From f5a096a0f9c628f944a6d57a939c6819d04001c3 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Thu, 16 Oct 2014 17:13:55 +0200
Subject: Bug fixed by Hugo.

---
 test-suite/bugs/closed/3388.v | 57 +++++++++++++++++++++++++++++++++++++++++++
 test-suite/bugs/opened/3388.v | 57 -------------------------------------------
 2 files changed, 57 insertions(+), 57 deletions(-)
 create mode 100644 test-suite/bugs/closed/3388.v
 delete mode 100644 test-suite/bugs/opened/3388.v

diff --git a/test-suite/bugs/closed/3388.v b/test-suite/bugs/closed/3388.v
new file mode 100644
index 0000000000..7826280498
--- /dev/null
+++ b/test-suite/bugs/closed/3388.v
@@ -0,0 +1,57 @@
+Inductive test : bool -> bool -> Type :=
+| test00 : test false false
+| test01 : test false true
+| test10 : test true false
+.
+
+(* This does not work *)
+Definition test_a (t : test true false) : test true false :=
+  match t with
+    | test10 => test10
+  end.
+
+(* The following definition shows that test_a SHOULD work *)
+Definition test_a_workaround (t : test true false) : test true false :=
+  match t with
+    | test10 => test10
+    | _ => tt
+  end.
+
+(* Surprisingly, this works *)
+Definition test_b (t : test false true) : test false true :=
+  match t with
+    | test01 => test01
+  end.
+
+
+(* This, too, works *)
+Definition test_c x (t : test false x) : test false x :=
+  match t with
+    | test00 => test00
+    | test01 => test01
+  end.
+
+Inductive test2 : bool -> bool -> Type :=
+| test201 : test2 false true
+| test210 : test2 true false
+| test211 : test2 true true
+.
+
+(* Now this works *)
+Definition test2_a (t : test2 true false) : test2 true false :=
+  match t with
+    | test210 => test210
+  end.
+
+(* Accordingly, this now fails *)
+Definition test2_b (t : test2 false true) : test2 false true :=
+  match t with
+    | test201 => test201
+  end.
+
+
+(* This, too, fails *)
+Definition test2_c x (t : test2 false x) : test2 false x :=
+  match t with
+    | test201 => test201
+  end.
diff --git a/test-suite/bugs/opened/3388.v b/test-suite/bugs/opened/3388.v
deleted file mode 100644
index d0ea72e1fd..0000000000
--- a/test-suite/bugs/opened/3388.v
+++ /dev/null
@@ -1,57 +0,0 @@
-Inductive test : bool -> bool -> Type :=
-| test00 : test false false
-| test01 : test false true
-| test10 : test true false
-.
-
-(* This does not work *)
-Fail Definition test_a (t : test true false) : test true false :=
-  match t with
-    | test10 => test10
-  end.
-
-(* The following definition shows that test_a SHOULD work *)
-Definition test_a_workaround (t : test true false) : test true false :=
-  match t with
-    | test10 => test10
-    | _ => tt
-  end.
-
-(* Surprisingly, this works *)
-Definition test_b (t : test false true) : test false true :=
-  match t with
-    | test01 => test01
-  end.
-
-
-(* This, too, works *)
-Definition test_c x (t : test false x) : test false x :=
-  match t with
-    | test00 => test00
-    | test01 => test01
-  end.
-
-Inductive test2 : bool -> bool -> Type :=
-| test201 : test2 false true
-| test210 : test2 true false
-| test211 : test2 true true
-.
-
-(* Now this works *)
-Definition test2_a (t : test2 true false) : test2 true false :=
-  match t with
-    | test210 => test210
-  end.
-
-(* Accordingly, this now fails *)
-Fail Definition test2_b (t : test2 false true) : test2 false true :=
-  match t with
-    | test201 => test201
-  end.
-
-
-(* This, too, fails *)
-Fail Definition test2_c x (t : test2 false x) : test2 false x :=
-  match t with
-    | test201 => test201
-  end.
-- 
cgit v1.2.3