diff options
| author | barras | 2003-10-22 10:35:04 +0000 |
|---|---|---|
| committer | barras | 2003-10-22 10:35:04 +0000 |
| commit | 6475388a91c899e8bcf7b69b223180025d4f85ff (patch) | |
| tree | 6031dc6e72bb676fa9d9e4f9f2be8ab50c1ca2e3 /contrib/ring | |
| parent | 9da09a4da10aa36699538bde01086172c64689eb (diff) | |
reorganisation des niveaux (ex: = est a 70)
Hint Destruct: syntaxe similaire aux autres hints...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4696 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/ring')
| -rw-r--r-- | contrib/ring/Ring_theory.v | 14 | ||||
| -rw-r--r-- | contrib/ring/Setoid_ring_theory.v | 10 |
2 files changed, 12 insertions, 12 deletions
diff --git a/contrib/ring/Ring_theory.v b/contrib/ring/Ring_theory.v index 3a3fb0640b..55ad8023f3 100644 --- a/contrib/ring/Ring_theory.v +++ b/contrib/ring/Ring_theory.v @@ -25,8 +25,8 @@ Variable Azero : A. is a good choice. The proof of A_eq_prop is in this case easy. *) Variable Aeq : A -> A -> bool. -Infix 4 "+" Aplus V8only 40 (left associativity). -Infix 4 "*" Amult V8only 30 (left associativity). +Infix 4 "+" Aplus V8only 50 (left associativity). +Infix 4 "*" Amult V8only 40 (left associativity). Notation "0" := Azero. Notation "1" := Aone. @@ -146,16 +146,16 @@ Variable Azero : A. Variable Aopp : A -> A. Variable Aeq : A -> A -> bool. -Infix 4 "+" Aplus V8only 40 (left associativity). -Infix 4 "*" Amult V8only 30 (left associativity). +Infix 4 "+" Aplus V8only 50 (left associativity). +Infix 4 "*" Amult V8only 40 (left associativity). Notation "0" := Azero. Notation "1" := Aone. Notation "- 0" := (Aopp Azero) (at level 0) - V8only (at level 40, left associativity). + V8only (at level 50, left associativity). Notation "- 1" := (Aopp Aone) (at level 0) - V8only (at level 40, left associativity). + V8only (at level 50, left associativity). Notation "- x" := (Aopp x) (at level 0) - V8only (at level 40, left associativity). + V8only (at level 50, 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 8b9ae52f0f..c97536846b 100644 --- a/contrib/ring/Setoid_ring_theory.v +++ b/contrib/ring/Setoid_ring_theory.v @@ -31,16 +31,16 @@ Variable Azero : A. Variable Aopp : A -> A. Variable Aeq : A -> A -> bool. -Infix 4 "+" Aplus V8only 40 (left associativity). -Infix 4 "*" Amult V8only 30 (left associativity). +Infix 4 "+" Aplus V8only 50 (left associativity). +Infix 4 "*" Amult V8only 40 (left associativity). Notation "0" := Azero. Notation "1" := Aone. Notation "- 0" := (Aopp Azero) (at level 0) - V8only (at level 40, left associativity). + V8only (at level 50, left associativity). Notation "- 1" := (Aopp Aone) (at level 0) - V8only (at level 40, left associativity). + V8only (at level 50, left associativity). Notation "- x" := (Aopp x) (at level 0) - V8only (at level 40, left associativity). + V8only (at level 50, 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. |