diff options
-rw-r--r-- | dev/vm_printers.ml | 2 | ||||
-rw-r--r-- | test-suite/bugs/closed/6677.v | 5 |
2 files changed, 6 insertions, 1 deletions
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. |