diff options
| author | Hugo Herbelin | 2018-10-08 17:46:09 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-10-08 20:42:14 +0200 |
| commit | ab237af7e952281e3fe695d888242cdf2abcaa90 (patch) | |
| tree | bcdb9c257db9ada14dac7b5f5d43fd26eef0e1da /test-suite | |
| parent | d792c2bf18e68a6301f295c79c05f25738456ecf (diff) | |
Fixes #8672 (ill-formed pattern substitution in notation with "let").
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/8672.v | 5 |
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. |