diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-12-08 19:36:10 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-12-08 19:36:10 +0000 |
| commit | 092c116f7b31a0ab9048502cd3afcd66a72541e8 (patch) | |
| tree | 55931d8537f89fb3bda6481684a46b4fa5e84502 /parsing | |
| parent | 651bbded6eed4618f0080fa9fde4716615ebc61a (diff) | |
correction bug: parentheses ne cassent plus les implicites
on met la notation ( _ ) qu'autour des entiers positifs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5078 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_constrnew.ml4 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/g_constrnew.ml4 b/parsing/g_constrnew.ml4 index eaaa0c5b2..24294f90d 100644 --- a/parsing/g_constrnew.ml4 +++ b/parsing/g_constrnew.ml4 @@ -195,7 +195,9 @@ GEXTEND Gram [ c=atomic_constr -> c | c=match_constr -> c | "("; c = operconstr; ")" -> - CNotation(loc,"( _ )",[c]) ] ] + (match c with + CNumeral(_,Bignat.POS _) -> CNotation(loc,"( _ )",[c]) + | _ -> c) ] ] ; binder_constr: [ [ "forall"; bl = binder_list; ","; c = operconstr LEVEL "200" -> |