diff options
| author | herbelin | 2003-11-01 22:03:52 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-01 22:03:52 +0000 |
| commit | f2fdab57784b34bab5ef7e0c9d34fee76c329a33 (patch) | |
| tree | fd2b578aab6b67e6d47bd76dcef1685b7c19cbd0 /theories | |
| parent | e805bb1b608befa007e3a17373fa972821ee8d9e (diff) | |
Finalement, niveau 0 pour l'argument du '-' uniare, pour eviter que les entiers positifs soient parentheses en tant qu'arguments de fonction; tant pis, il faudra ecrire '-(-x)' au lieu de '--x'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4751 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories')
| -rwxr-xr-x | theories/Bool/Bool.v | 2 | ||||
| -rw-r--r-- | theories/ZArith/Zsyntax.v | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/theories/Bool/Bool.v b/theories/Bool/Bool.v index 984bd77c4f..3d0a7a2f10 100755 --- a/theories/Bool/Bool.v +++ b/theories/Bool/Bool.v @@ -175,7 +175,7 @@ Definition negb := [b:bool]Cases b of Infix "||" orb (at level 4, left associativity) : bool_scope. Infix "&&" andb (at level 3, no associativity) : bool_scope V8only (at level 40, left associativity). -Notation "- b" := (negb b) : bool_scope V8only. +V8Notation "- b" := (negb b) : bool_scope. Open Local Scope bool_scope. diff --git a/theories/ZArith/Zsyntax.v b/theories/ZArith/Zsyntax.v index 2805406a34..6c632ea42a 100644 --- a/theories/ZArith/Zsyntax.v +++ b/theories/ZArith/Zsyntax.v @@ -232,7 +232,7 @@ Module Z_scope. Infix LEFTA 4 "+" Zplus : Z_scope. Infix LEFTA 4 "-" Zminus : Z_scope. Infix LEFTA 3 "*" Zmult : Z_scope. -Notation "- x" := (Zopp x) : Z_scope V8only. +Notation "- x" := (Zopp x) (at level 0): Z_scope V8only. Infix NONA 5 "<=" Zle : Z_scope. Infix NONA 5 "<" Zlt : Z_scope. Infix NONA 5 ">=" Zge : Z_scope. |