1 files changed, 18 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/4816.v b/test-suite/bugs/closed/4816.v
new file mode 100644
index 000000000..ef79b9869
--- /dev/null
+++ b/test-suite/bugs/closed/4816.v
@@ -0,0 +1,18 @@
+Section foo.
+Polymorphic Universes A B.
+Constraint A <= B.
+End foo.
+(* gives an anomaly Universe undefined *)
+
+or even, a refinement of #4503:
+Require Coq.Classes.RelationClasses.
+
+Class PreOrder (A : Type) (r : A -> A -> Type) : Type :=
+{ refl : forall x, r x x }.
+
+Section foo.
+  Polymorphic Universes A.
+  Section bar.
+    Context {A : Type@{A}} {rA : A -> A -> Prop} {PO : PreOrder A rA}.
+  End bar.
+End foo.
+\ No newline at end of file