From ec23b8a8b2947e09e5af7317a2f5787756043a68 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Fri, 22 Dec 2017 18:03:12 +0100
Subject: 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.
---
 test-suite/bugs/closed/6534.v | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 test-suite/bugs/closed/6534.v

(limited to 'test-suite')

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.
-- 
cgit v1.2.3