aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/bugs/closed/HoTT_coq_074.v
diff options
context:
space:
mode:
authorGravatar Matthieu Sozeau <mattam@mattam.org>2014-05-09 13:10:18 +0200
committerGravatar Matthieu Sozeau <mattam@mattam.org>2014-05-09 13:10:18 +0200
commitc3ce76de37a988c120654760629b4609272f8885 (patch)
tree8ad851468b3d0b9fb3bfd775f4c760af97c560f8 /test-suite/bugs/closed/HoTT_coq_074.v
parent79220cec31a9c2c5cafc678b36f7af374417ecd5 (diff)
Refresh universes for Ltac's type_of, as the term can be used anywhere,
fixing two opened bugs from HoTT/coq.
Diffstat (limited to 'test-suite/bugs/closed/HoTT_coq_074.v')
-rw-r--r--test-suite/bugs/closed/HoTT_coq_074.v10
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/HoTT_coq_074.v b/test-suite/bugs/closed/HoTT_coq_074.v
new file mode 100644
index 000000000..370c7d404
--- /dev/null
+++ b/test-suite/bugs/closed/HoTT_coq_074.v
@@ -0,0 +1,10 @@
+Monomorphic Definition U1 := Type.
+Monomorphic Definition U2 := Type.
+
+Set Printing Universes.
+Definition foo : True.
+let t1 := type of U1 in
+let t2 := type of U2 in
+idtac t1 t2;
+pose (t1 : t2). exact I.
+Defined.