diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-23 22:33:18 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-23 22:33:18 +0000 |
commit | 177f50c624caf811ff26642390c853f0fba1a106 (patch) | |
tree | 5053ccdac32d2d3e9407ac96283b2d43e517c9a8 /test-suite/success/Notations.v | |
parent | ba124d6092143b3e76ec02aaf0b985eb50ad5e20 (diff) |
Added automatic expansion on the left of recursive notations
(currently only one expansion but could be virtually made user-parametrizable).
Also fixed a bug in recursive notations happening with multiple-tokens
separators (see Notations.v in test-suite).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12881 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/Notations.v')
-rw-r--r-- | test-suite/success/Notations.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test-suite/success/Notations.v b/test-suite/success/Notations.v index 7ddb6146d..661a8757a 100644 --- a/test-suite/success/Notations.v +++ b/test-suite/success/Notations.v @@ -53,3 +53,9 @@ Notation "'exists' x >= y , P" := (exists x, x >= y /\ P)%nat Notation R x := (@pair _ _ x). Check (fun x:nat*nat => match x with R x y => (x,y) end). + +(* Check multi-tokens recursive notations *) + +Local Notation "[ a # ; .. # ; b ]" := (a + .. (b + 0) ..). +Check [ 0 ]. +Check [ 0 # ; 1 ]. |