From 07e861c1792fcc3bde091640ee5e42b398cfa6da Mon Sep 17 00:00:00 2001
From: Maxime Dénès <mail@maximedenes.fr>
Date: Mon, 12 Feb 2018 09:54:57 +0100
Subject: Add test case for #6677.

---
 dev/vm_printers.ml            | 2 +-
 test-suite/bugs/closed/6677.v | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)
 create mode 100644 test-suite/bugs/closed/6677.v

diff --git a/dev/vm_printers.ml b/dev/vm_printers.ml
index b410d017d..f819d2e6a 100644
--- a/dev/vm_printers.ml
+++ b/dev/vm_printers.ml
@@ -61,7 +61,7 @@ and ppstack s =
 and ppatom a =
   match a with
   | Aid idk -> print_idkey idk
-  | Atype (u,l) -> print_string "Type(...)"
+  | Atype u -> print_string "Type(...)"
   | Aind(sp,i) ->  print_string "Ind(";
       print_string (MutInd.to_string sp);
       print_string ","; print_int i;
diff --git a/test-suite/bugs/closed/6677.v b/test-suite/bugs/closed/6677.v
new file mode 100644
index 000000000..99e47bb87
--- /dev/null
+++ b/test-suite/bugs/closed/6677.v
@@ -0,0 +1,5 @@
+Set Universe Polymorphism.
+
+Definition T@{i} := Type@{i}.
+Fail Definition U@{i} := (T@{i} <: Type@{i}).
+Fail Definition eqU@{i j} : @eq T@{j} U@{i} T@{i} := eq_refl.
-- 
cgit v1.2.3