From ab237af7e952281e3fe695d888242cdf2abcaa90 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Mon, 8 Oct 2018 17:46:09 +0200
Subject: Fixes #8672 (ill-formed pattern substitution in notation with "let").

---
 test-suite/bugs/closed/8672.v | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 test-suite/bugs/closed/8672.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/8672.v b/test-suite/bugs/closed/8672.v
new file mode 100644
index 0000000000..66cd6dfa8c
--- /dev/null
+++ b/test-suite/bugs/closed/8672.v
@@ -0,0 +1,5 @@
+(* Was generating a dangling "pat" variable at some time *)
+
+Notation "'plet' x := e 'in' t" :=
+  ((fun H => let x := id H in t) e) (at level 0, x pattern).
+Definition bla := plet (pair x y) := pair 1 2 in x.
-- 
cgit v1.2.3