diff options
| author | herbelin | 2003-05-21 16:25:25 +0000 |
|---|---|---|
| committer | herbelin | 2003-05-21 16:25:25 +0000 |
| commit | 4ad9bd3e1480b50aa3a4299fedccb30faea86cee (patch) | |
| tree | 7310108ca070327db9d5dd5e045bf75f938c2b3d | |
| parent | a4f69ab72af7743dfcae8c41b28654f6165d3f4f (diff) | |
Mise en conformite de la precedence du '-' unaire avec celle de Notations
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4052 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/ring/Ring_theory.v | 4 | ||||
| -rw-r--r-- | contrib/ring/Setoid_ring_theory.v | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/contrib/ring/Ring_theory.v b/contrib/ring/Ring_theory.v index 339afc9eb5..4552e71a48 100644 --- a/contrib/ring/Ring_theory.v +++ b/contrib/ring/Ring_theory.v @@ -151,9 +151,9 @@ Infix 4 "*" Amult V8only 30 (left associativity). Notation "0" := Azero. Notation "1" := Aone. Notation "- 0" := (Aopp Azero) (at level 3) - V8only (at level 40, left associativity). + V8only (at level 0, left associativity). Notation "- 1" := (Aopp Aone) (at level 3) - V8only (at level 40, left associativity). + V8only (at level 0, left associativity). Notation "- x" := (Aopp x) (at level 3) V8only (at level 0, left associativity). diff --git a/contrib/ring/Setoid_ring_theory.v b/contrib/ring/Setoid_ring_theory.v index 4fc7ea1043..a27285ccac 100644 --- a/contrib/ring/Setoid_ring_theory.v +++ b/contrib/ring/Setoid_ring_theory.v @@ -37,11 +37,11 @@ Infix 4 "*" Amult V8only 30 (left associativity). Notation "0" := Azero. Notation "1" := Aone. Notation "- 0" := (Aopp Azero) (at level 3) - V8only (at level 40, left associativity). + V8only (at level 0, left associativity). Notation "- 1" := (Aopp Aone) (at level 3) - V8only (at level 40, left associativity). + V8only (at level 0, left associativity). Notation "- x" := (Aopp x) (at level 3) - V8only (at level 40, left associativity). + V8only (at level 0, 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. |