diff options
Diffstat (limited to 'test-suite/bugs/opened/HoTT_coq_074.v')
| -rw-r--r-- | test-suite/bugs/opened/HoTT_coq_074.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/bugs/opened/HoTT_coq_074.v b/test-suite/bugs/opened/HoTT_coq_074.v new file mode 100644 index 0000000000..7c88447b29 --- /dev/null +++ b/test-suite/bugs/opened/HoTT_coq_074.v @@ -0,0 +1,12 @@ +Monomorphic Definition U1 := Type. +Monomorphic Definition U2 := Type. + +Set Printing Universes. +Definition foo : True. +Fail let t1 := type of U1 in +let t2 := type of U2 in +pose (t1 : t2). (* Error: +The term "Type (* Top.1+1 *)" has type "Type (* Top.1+2 *)" +while it is expected to have type "Type (* Top.2+1 *)". *) +exact I. +Defined. |