From cb601622d7478ca2d61a4c186d992d532f141ace Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 21 May 2003 16:45:16 +0000
Subject: Mise en conformite de la precedence du '-' unaire avec celle de
 Notations (suite)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4053 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/ring/Ring_theory.v        | 12 ++++++------
 contrib/ring/Setoid_ring_theory.v | 12 ++++++------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/contrib/ring/Ring_theory.v b/contrib/ring/Ring_theory.v
index 4552e71a48..3a3fb0640b 100644
--- a/contrib/ring/Ring_theory.v
+++ b/contrib/ring/Ring_theory.v
@@ -150,12 +150,12 @@ Infix 4 "+" Aplus V8only 40 (left associativity).
 Infix 4 "*" Amult V8only 30 (left associativity).
 Notation "0" := Azero.
 Notation "1" := Aone.
-Notation "- 0" := (Aopp Azero) (at level 3)
-  V8only (at level 0, left associativity).
-Notation "- 1" := (Aopp Aone) (at level 3)
-  V8only (at level 0, left associativity).
-Notation "- x" := (Aopp x) (at level 3)
-  V8only (at level 0, left associativity).
+Notation "- 0" := (Aopp Azero) (at level 0)
+  V8only (at level 40, left associativity).
+Notation "- 1" := (Aopp Aone) (at level 0)
+  V8only (at level 40, left associativity).
+Notation "- x" := (Aopp x) (at level 0)
+  V8only (at level 40, left associativity).
 
 Record Ring_Theory : Prop :=
 { Th_plus_sym  : (n,m:A) n + m == m + n;
diff --git a/contrib/ring/Setoid_ring_theory.v b/contrib/ring/Setoid_ring_theory.v
index a27285ccac..021e2d1414 100644
--- a/contrib/ring/Setoid_ring_theory.v
+++ b/contrib/ring/Setoid_ring_theory.v
@@ -36,12 +36,12 @@ Infix 4 "+" Aplus V8only 40 (left associativity).
 Infix 4 "*" Amult V8only 30 (left associativity).
 Notation "0" := Azero.
 Notation "1" := Aone.
-Notation "- 0" := (Aopp Azero) (at level 3)
-  V8only (at level 0, left associativity).
-Notation "- 1" := (Aopp Aone) (at level 3)
-  V8only (at level 0, left associativity).
-Notation "- x" := (Aopp x) (at level 3)
-  V8only (at level 0, left associativity).
+Notation "- 0" := (Aopp Azero) (at level 0)
+  V8only (at level 40, left associativity).
+Notation "- 1" := (Aopp Aone) (at level 0)
+  V8only (at level 40, left associativity).
+Notation "- x" := (Aopp x) (at level 0)
+  V8only (at level 40, left associativity).
 
 Variable plus_morph : (a,a0,a1,a2:A) a == a0 -> a1 == a2 -> a+a1 == a0+a2.
 Variable mult_morph : (a,a0,a1,a2:A) a == a0 -> a1 == a2 -> a*a1 == a0*a2.
-- 
cgit v1.2.3