diff options
| author | barras | 2003-11-13 18:02:09 +0000 |
|---|---|---|
| committer | barras | 2003-11-13 18:02:09 +0000 |
| commit | 9aab7ae10aa1d535734f336c4bce16d908576d65 (patch) | |
| tree | 34c92bbeaae2cc973dfbec48d921eae6934d9cdc /contrib | |
| parent | 4c18a78b54ff33361990a6f19bcad69bb7a4417c (diff) | |
moins unaire au niveau 35, tactiques simple_induction et simple_destruct, Local devient Let
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4897 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/ring/Ring_theory.v | 5 | ||||
| -rw-r--r-- | contrib/ring/Setoid_ring_theory.v | 5 |
2 files changed, 2 insertions, 8 deletions
diff --git a/contrib/ring/Ring_theory.v b/contrib/ring/Ring_theory.v index 4281505e73..ddc52f8127 100644 --- a/contrib/ring/Ring_theory.v +++ b/contrib/ring/Ring_theory.v @@ -150,10 +150,7 @@ 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 10). -Notation "- 1" := (Aopp Aone) (at level 0) V8only (at level 10). -Notation "- x" := (Aopp x) (at level 0) - V8only (at level 10, x at level 0). +Notation "- x" := (Aopp x) (at level 0) V8only. 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 d31dd69951..d6c19410f2 100644 --- a/contrib/ring/Setoid_ring_theory.v +++ b/contrib/ring/Setoid_ring_theory.v @@ -35,10 +35,7 @@ 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 10). -Notation "- 1" := (Aopp Aone) (at level 0) V8only (at level 10). -Notation "- x" := (Aopp x) (at level 0) - V8only (at level 10, x at level 0). +Notation "- x" := (Aopp x) (at level 0) V8only. 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. |