diff options
| author | Hugo Herbelin | 2016-07-16 21:41:24 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-07-17 09:35:51 +0200 |
| commit | 91f44b164c5d9fa170a8faa7227aff08c1335861 (patch) | |
| tree | 80c2a5cd8289123457436790cf7d8e297727ec2e /test-suite | |
| parent | 45f61ca74808f8b34dcd558b7c85528725e2e35f (diff) | |
Fixing printing of notations with several instances of a recursive pattern.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/output/Notations3.out | 8 | ||||
| -rw-r--r-- | test-suite/output/Notations3.v | 12 |
2 files changed, 20 insertions, 0 deletions
diff --git a/test-suite/output/Notations3.out b/test-suite/output/Notations3.out new file mode 100644 index 0000000000..b3d2580ace --- /dev/null +++ b/test-suite/output/Notations3.out @@ -0,0 +1,8 @@ +[<0, 2 >] + : nat * nat * (nat * nat) +[<0, 2 >] + : nat * nat * (nat * nat) +(0, 2, (2, 2)) + : nat * nat * (nat * nat) +pair (pair O (S (S O))) (pair (S (S O)) O) + : prod (prod nat nat) (prod nat nat) diff --git a/test-suite/output/Notations3.v b/test-suite/output/Notations3.v new file mode 100644 index 0000000000..32d70ac18c --- /dev/null +++ b/test-suite/output/Notations3.v @@ -0,0 +1,12 @@ +(**********************************************************************) +(* Check printing of notations with several instances of a recursive pattern *) +(* Was wrong but I could not trigger a problem due to the collision between *) +(* different instances of ".." *) + +Notation "[< x , y , .. , z >]" := (pair (.. (pair x y) ..) z,pair y ( .. (pair z x) ..)). +Check [<0,2>]. +Check ((0,2),(2,0)). +Check ((0,2),(2,2)). +Unset Printing Notations. +Check [<0,2>]. +Set Printing Notations. |