Ne pas mettre d'associatif a droite au niveau 3 en V7

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4088 85f007b7-540e-0410-9357-904b9bb8a0f7

2 files changed, 7 insertions, 2 deletions

diff --git a/theories/Bool/Bool.v b/theories/Bool/Bool.v
index 96160f0918..d17741295b 100755
--- a/theories/Bool/Bool.v
+++ b/theories/Bool/Bool.v
@@ -173,7 +173,8 @@ Definition negb := [b:bool]Cases b of
                            end.
 
 Infix "||" orb  (at level 4, left associativity) : bool_scope.
-Infix "&&" andb (at level 3, left associativity) : bool_scope.
+Infix "&&" andb (at level 3, no associativity) : bool_scope
+  V8only (at level 30, left associativity).
 Notation "!! b" := (negb b) (at level 0, right associativity) : bool_scope.
 Open Scope bool_scope.
 
diff --git a/theories/Init/Notations.v b/theories/Init/Notations.v
index 3d216680de..9681c4cc14 100644
--- a/theories/Init/Notations.v
+++ b/theories/Init/Notations.v
@@ -26,6 +26,8 @@ Uninterpreted Notation "x = y  :> T"
   (at level 5, y at next level, no associativity).
 Uninterpreted Notation "x = y"
   (at level 5, no associativity).
+Uninterpreted Notation "x = y = z"
+  (at level 5, no associativity, y at next level).
 
 Uninterpreted Notation "x <> y  :> T" 
   (at level 5, y at next level, no associativity).
@@ -41,10 +43,12 @@ Uninterpreted V8Notation "x > y" (at level 50, no associativity).
 
 Uninterpreted Notation "x * y" (at level 3, right associativity)
   V8only (at level 30, left associativity).
-Uninterpreted Notation "x / y" (at level 3, left associativity).
+Uninterpreted V8Notation "x / y" (at level 3, left associativity).
 Uninterpreted Notation "x + y" (at level 4, left associativity).
 Uninterpreted Notation "x - y" (at level 4, left associativity).
 Uninterpreted Notation "- x" (at level 0) V8only (at level 40).
+Uninterpreted Notation "/ x" (at level 0)
+  V8only (at level 30, left associativity).
 
 (** Notations for pairs *)