diff options
| author | Hugo Herbelin | 2020-09-25 21:41:48 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-10-19 10:19:17 +0200 |
| commit | 26a456cbf1e8abc5c033090b59892b314d7e7142 (patch) | |
| tree | 31c8a7d69442d044e9990f781ed53e09247d7949 /test-suite | |
| parent | e583be62b74d71b5af159700e3a31f78fec9a7d2 (diff) | |
Fixing printing part of #13078 (anomaly with binding notations in patterns).
We prevent notations involving binders (i.e. names or patterns) to be
used for printing in "match" patterns. The computation is done in
"has_no_binders_type", controlling uninterpretation.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/bug_13078.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/bug_13078.v b/test-suite/bugs/closed/bug_13078.v new file mode 100644 index 0000000000..1bd32d0576 --- /dev/null +++ b/test-suite/bugs/closed/bug_13078.v @@ -0,0 +1,8 @@ +(* Check that rules with patterns are not registered for cases patterns *) +Module PrintingTest. +Declare Custom Entry test. +Notation "& x" := (Some x) (in custom test at level 0, x pattern). +Check fun x => match x with | None => None | Some tt => Some tt end. +Notation "& x" := (Some x) (at level 0, x pattern). +Check fun x => match x with | None => None | Some tt => Some tt end. +End PrintingTest. |