From 36f95a197b106b928a3fc99d7ee5904099a654e4 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sun, 12 Jun 2016 19:59:25 +0200
Subject: For the record, an example one would like to see working.

---
 test-suite/bugs/opened/4813.v | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 test-suite/bugs/opened/4813.v

diff --git a/test-suite/bugs/opened/4813.v b/test-suite/bugs/opened/4813.v
new file mode 100644
index 0000000000..7c65accfea
--- /dev/null
+++ b/test-suite/bugs/opened/4813.v
@@ -0,0 +1,5 @@
+(* An example one would like to see succeeding *)
+
+Record T := BT { t : Set }.
+Record U (x : T) := BU { u : t x -> Prop }.
+Definition A (H : unit -> Prop) : U (BT unit) := BU _ H.
-- 
cgit v1.2.3