From 316592a31b463568f5136757c3570eaa8e1f0167 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Fri, 25 Sep 2020 15:31:51 +0200
Subject: Put type-in-type flag in ugraph.

Fix #13086.
---
 test-suite/bugs/closed/bug_13086.v | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 test-suite/bugs/closed/bug_13086.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/bug_13086.v b/test-suite/bugs/closed/bug_13086.v
new file mode 100644
index 0000000000..75f842b1cf
--- /dev/null
+++ b/test-suite/bugs/closed/bug_13086.v
@@ -0,0 +1,11 @@
+Unset Universe Checking.
+
+Definition bad1@{|Set < Set} := Prop.
+
+Set Universe Polymorphism.
+Axiom ax : Type.
+Inductive I@{u} : Prop := foo : ax@{u} -> I.
+
+Definition bad2@{v} (x:I@{v}) : I@{Set} := x.
+
+Definition vsdvds (f : (Prop -> Prop) -> Prop) (x : Set -> Prop) := f x.
-- 
cgit v1.2.3