More examples of recursive notations, with emphasis in reference manual.

Further work would include:

- Identify binders up to alpha-conversion (see #4932 with a list of
  binders of length at least 2, or #4592 on printing notations such as
  ex2).

A cool example that one could also consider supporting:

- Notation "[[ a , .. , b | .. | a , .. , b ]]" :=
    (cons (cons a .. (cons b nil) ..) .. (cons a .. (cons b nil) ..) ..).

2 files changed, 11 insertions, 0 deletions

diff --git a/test-suite/output/Notations3.out b/test-suite/output/Notations3.out
index 8b3fa31618..64317a9f83 100644
--- a/test-suite/output/Notations3.out
+++ b/test-suite/output/Notations3.out
@@ -25,3 +25,10 @@ ETA x y : nat, Nat.add
      : nat -> nat -> nat
 fun x y : nat => Nat.add x y
      : forall (_ : nat) (_ : nat), nat
+ETA x y : nat, le_S
+     : forall x y : nat, x <= y -> x <= S y
+fun f : forall x : nat * (bool * unit), ?T => CURRY (x : nat) (y : bool), f
+     : (forall x : nat * (bool * unit), ?T) ->
+       forall (x : nat) (y : bool), ?T@{x:=(x, (y, tt))}
+where
+?T : [x : nat * (bool * unit) |- Type] 
diff --git a/test-suite/output/Notations3.v b/test-suite/output/Notations3.v
index d791042043..655a01c2d2 100644
--- a/test-suite/output/Notations3.v
+++ b/test-suite/output/Notations3.v
@@ -32,3 +32,7 @@ Check ETA x y, Nat.add.
 Unset Printing Notations.
 Check ETA (x:nat) (y:nat), Nat.add.
 Set Printing Notations.
+Check ETA x y, le_S.
+
+Notation "'CURRY' x .. y , f" := (fun x => .. (fun y => f (x, .. (y,tt) ..)) ..) (at level 200, x binder, y binder).
+Check fun f => CURRY (x:nat) (y:bool), f.