diff options
| author | Emilio Jesus Gallego Arias | 2019-02-19 18:07:19 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-02-19 18:07:19 +0100 |
| commit | c3cc72ccf586703ed009a8bdd5df8d40b0384ab2 (patch) | |
| tree | 06a68b153c71a5cd8caf57572ffb59e52f507265 /test-suite/success | |
| parent | 6e3850ce5092d5cb432ef917ae6ee79225089f6a (diff) | |
| parent | a8a26c87d52c30e5e5d1ba76f1920e8bc68bcd45 (diff) | |
Merge PR #9297: Two fixes in printing notations with patterns
Reviewed-by: ejgallego
Ack-by: herbelin
Reviewed-by: mattam82
Diffstat (limited to 'test-suite/success')
| -rw-r--r-- | test-suite/success/Notations2.v | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/success/Notations2.v b/test-suite/success/Notations2.v index 1b33863e3b..2533a39cc4 100644 --- a/test-suite/success/Notations2.v +++ b/test-suite/success/Notations2.v @@ -154,3 +154,14 @@ Module M16. Print Grammar foo. Print Grammar foo2. End M16. + +(* Example showing the need for strong evaluation of + cases_pattern_of_glob_constr (this used to raise Not_found at some + time) *) + +Module M17. + +Notation "# x ## t & u" := ((fun x => (x,t)),(fun x => (x,u))) (at level 0, x pattern). +Check fun y : nat => # (x,z) ## y & y. + +End M17. |