aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/bugs/closed/HoTT_coq_052.v
diff options
context:
space:
mode:
authorGravatar Matthieu Sozeau <mattam@mattam.org>2014-06-15 14:15:30 +0200
committerGravatar Matthieu Sozeau <mattam@mattam.org>2014-06-15 14:15:30 +0200
commita0141c0ccc295af0d7938e8e515c9eef40449d73 (patch)
tree45b9b4432cf8b342e6578efca2cadd9d25b1d1d8 /test-suite/bugs/closed/HoTT_coq_052.v
parent0082e3c26ede3f1cabc3237f82be15d013817385 (diff)
Change Ltac constr matching semantics to consider universes when merging two
bindings of the same variable (fixing HoTT bug #52). Document the unification of universes in Ltac/tactics.
Diffstat (limited to 'test-suite/bugs/closed/HoTT_coq_052.v')
-rw-r--r--test-suite/bugs/closed/HoTT_coq_052.v23
1 files changed, 23 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/HoTT_coq_052.v b/test-suite/bugs/closed/HoTT_coq_052.v
new file mode 100644
index 000000000..3fc663c6b
--- /dev/null
+++ b/test-suite/bugs/closed/HoTT_coq_052.v
@@ -0,0 +1,23 @@
+Goal Type = Type.
+ match goal with |- ?x = ?y => idtac end.
+Abort.
+
+Goal Prop.
+ Fail match goal with |- Type => idtac end.
+Abort.
+
+
+Goal Prop = Set.
+ (* This should fail *)
+ Fail match goal with |- ?x = ?x => idtac x end.
+Abort.
+
+Goal Type = Prop.
+ (* This should fail *)
+ Fail match goal with |- ?x = ?x => idtac end.
+Abort.
+
+Goal Type = Set.
+ (* This should fail *)
+ Fail match goal with |- ?x = ?x => idtac end.
+Abort.