diff options
author | 2018-02-12 09:54:57 +0100 | |
---|---|---|
committer | 2018-02-12 11:00:10 +0100 | |
commit | 07e861c1792fcc3bde091640ee5e42b398cfa6da (patch) | |
tree | 12e319c4fd32a1b1af9055ba2e3136d583eb1145 | |
parent | c9f3a6cbe5c410256fe88580019f5c7183bab097 (diff) |
Add test case for #6677.
-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. |