From 802f3a5c313c8ef98109a3f29c3c862de63bd53c Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sat, 26 Sep 2015 14:17:45 +0200
Subject: Test for bug #4347.

---
 test-suite/bugs/closed/4347.v | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 test-suite/bugs/closed/4347.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/4347.v b/test-suite/bugs/closed/4347.v
new file mode 100644
index 0000000000..29686a26c1
--- /dev/null
+++ b/test-suite/bugs/closed/4347.v
@@ -0,0 +1,17 @@
+Fixpoint demo_recursion(n:nat) := match n with
+                                    |0 => Type
+                                    |S k => (demo_recursion k) -> Type
+                                    end.
+
+Record Demonstration := mkDemo
+{
+    demo_law : forall n:nat, demo_recursion n;
+    demo_stuff : forall n:nat, forall q:(fix demo_recursion (n : nat) : Type :=
+     match n with
+     | 0 => Type
+     | S k => demo_recursion k -> Type
+     end) n, (demo_law (S n)) q
+}.
+
+Theorem DemoError : Demonstration.
+Fail apply mkDemo. (*Anomaly: Uncaught exception Not_found. Please report.*)
-- 
cgit v1.2.3