diff options
Diffstat (limited to 'contrib/ring/Setoid_ring_theory.v')
-rw-r--r-- | contrib/ring/Setoid_ring_theory.v | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/contrib/ring/Setoid_ring_theory.v b/contrib/ring/Setoid_ring_theory.v index 3456b1051..4fc7ea104 100644 --- a/contrib/ring/Setoid_ring_theory.v +++ b/contrib/ring/Setoid_ring_theory.v @@ -18,7 +18,8 @@ Section Setoid_rings. Variable A : Type. Variable Aequiv : A -> A -> Prop. -Infix "==" Aequiv (at level 5). +Infix "==" Aequiv (at level 5) + V8only (at level 50). Variable S : (Setoid_Theory A Aequiv). @@ -31,11 +32,16 @@ Variable Azero : A. Variable Aopp : A -> A. Variable Aeq : A -> A -> bool. -Infix "+" Aplus (at level 4). -Infix "*" Amult (at level 3). +Infix 4 "+" Aplus V8only 40 (left associativity). +Infix 4 "*" Amult V8only 30 (left associativity). Notation "0" := Azero. Notation "1" := Aone. -Notation "- x" := (Aopp x) (at level 3). +Notation "- 0" := (Aopp Azero) (at level 3) + V8only (at level 40, left associativity). +Notation "- 1" := (Aopp Aone) (at level 3) + V8only (at level 40, left associativity). +Notation "- x" := (Aopp x) (at level 3) + 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. |