diff options
| author | herbelin | 2003-05-21 16:45:16 +0000 |
|---|---|---|
| committer | herbelin | 2003-05-21 16:45:16 +0000 |
| commit | cb601622d7478ca2d61a4c186d992d532f141ace (patch) | |
| tree | 847e4d89adb59515a4f86a12513d9115896989b5 | |
| parent | 4ad9bd3e1480b50aa3a4299fedccb30faea86cee (diff) | |
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
| -rw-r--r-- | contrib/ring/Ring_theory.v | 12 | ||||
| -rw-r--r-- | 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. |