aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite
diff options
context:
space:
mode:
authorGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2017-12-22 18:03:12 +0100
committerGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2018-01-02 17:02:59 +0100
commitec23b8a8b2947e09e5af7317a2f5787756043a68 (patch)
tree538f7e804b6b652a6da9ae93220aa7683020d750 /test-suite
parent2d6e395dead61a49ede6208bc40e16b4b8e68ce4 (diff)
Cleanup name-binding structure for fresh evar name generation.
We simply use a record and pack the rel and var substitutions in it. We also properly compose variable substitutions. Fixes #6534: Fresh variable generation in case of clash is buggy.
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/bugs/closed/6534.v7
1 files changed, 7 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/6534.v b/test-suite/bugs/closed/6534.v
new file mode 100644
index 000000000..f5013994c
--- /dev/null
+++ b/test-suite/bugs/closed/6534.v
@@ -0,0 +1,7 @@
+Goal forall x : nat, x = x.
+Proof.
+intros x.
+refine ((fun x x => _ tt) tt tt).
+let t := match goal with [ |- ?P ] => P end in
+let _ := type of t in
+idtac.