diff options
| author | herbelin | 2011-12-07 21:54:16 +0000 |
|---|---|---|
| committer | herbelin | 2011-12-07 21:54:16 +0000 |
| commit | 0cd3c11e4a50af7b82a31fc25a6c749521b56d04 (patch) | |
| tree | 87e23dd10cf1fd0195b2185e882633c3c7641a4c /test-suite | |
| parent | e2596317ad17299a3616737ed56f8e4feadaae45 (diff) | |
Fixing grammar resetting bug in the presence of levels initially empty
(the number of entries to reset was not correct).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14778 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/Notations.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/success/Notations.v b/test-suite/success/Notations.v index 6214062899..ddad217b32 100644 --- a/test-suite/success/Notations.v +++ b/test-suite/success/Notations.v @@ -66,3 +66,12 @@ Check [ 0 # ; 1 ]. Notation "{ q , r | P }" := (fun (p:nat*nat) => let (q, r) := p in P). Check (fun p => {q,r| q + r = p}). +(* Check that declarations of empty levels are correctly backtracked *) + +Section B. +Notation "*" := 5 (at level 0) : nat_scope. +Notation "[ h ] p" := (h + p) (at level 8, p at level 9, h at level 7) : nat_scope. +End B. + +(* Should succeed *) +Definition n := 5 * 5. |