aboutsummaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2018-10-08 22:27:45 +0200
committerEmilio Jesus Gallego Arias2018-10-08 22:27:45 +0200
commitf3c123ea05660ce393260283d64cc3ff0eba2f8c (patch)
treef7901e17eb87f1225df970c184773952c9085231 /test-suite
parent754d9662b9f7619542e77ad85f575d227fb42b2f (diff)
parentab237af7e952281e3fe695d888242cdf2abcaa90 (diff)
Merge PR #8676: Fixes #8672: ill-formed pattern substitution in notation with "let"
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/bugs/closed/8672.v5
1 files changed, 5 insertions, 0 deletions
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.