diff options
| -rw-r--r-- | test-suite/output/Notations2.v | 2 | ||||
| -rw-r--r-- | test-suite/success/Notations.v | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/test-suite/output/Notations2.v b/test-suite/output/Notations2.v index 57d8ebbc47..a78088bad5 100644 --- a/test-suite/output/Notations2.v +++ b/test-suite/output/Notations2.v @@ -37,7 +37,7 @@ Notation "∀ x .. y , P":= (forall x, .. (forall y, P) ..) Check (∀ n p, n+p=0). -Notation "'λ' x .. y , P":= (fun x, .. (fun y, P) ..) +Notation "'λ' x .. y , P":= (fun x => .. (fun y => P) ..) (y binder, at level 200, right associativity). Check (λ n p, n+p=0). diff --git a/test-suite/success/Notations.v b/test-suite/success/Notations.v index 18e2479e50..6214062899 100644 --- a/test-suite/success/Notations.v +++ b/test-suite/success/Notations.v @@ -63,6 +63,6 @@ Check [ 0 # ; 1 ]. (* Check well-scoping of alpha-renaming of private binders *) (* see bug #2248 (thanks to Marc Lasson) *) -Notation "{ q , r | P }" := (fun (p:nat*nat), let (q, r) := p in P). -Check (fun p, {q,r| q + r = p}). +Notation "{ q , r | P }" := (fun (p:nat*nat) => let (q, r) := p in P). +Check (fun p => {q,r| q + r = p}). |