diff options
| author | letouzey | 2011-03-16 14:52:59 +0000 |
|---|---|---|
| committer | letouzey | 2011-03-16 14:52:59 +0000 |
| commit | 96e486509a5d4d7cbee2589af32d18eaa07d8105 (patch) | |
| tree | 4841aad5b37b30a8a2a0ee5635b00ff8f097b348 | |
| parent | 0e755a35603e269ec814f4ae7f961ea2da98051b (diff) | |
Remove some weird syntax "fun ... ," that used to be accepted (cf r13876)
Probably something related with the unicode lambda syntax...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13911 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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}). |