From 8acf32377b67c08568215a89c31cdc382883dbf6 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Fri, 1 Dec 2017 15:26:08 +0100
Subject: Fix #6297: handle constraints like (u+1 <= Set/Prop)

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

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/6297.v b/test-suite/bugs/closed/6297.v
new file mode 100644
index 0000000000..a28607058f
--- /dev/null
+++ b/test-suite/bugs/closed/6297.v
@@ -0,0 +1,8 @@
+Set Printing Universes.
+
+(* Error: Anomaly "Uncaught exception "Anomaly: Incorrect universe Set
+   declared for inductive type, inferred level is max(Prop, Set+1)."."
+   Please report at http://coq.inria.fr/bugs/. *)
+Fail Record LTS: Set :=
+  lts { St: Set;
+        init: St }.
-- 
cgit v1.2.3