diff options
| author | herbelin | 2003-11-01 22:03:52 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-01 22:03:52 +0000 |
| commit | f2fdab57784b34bab5ef7e0c9d34fee76c329a33 (patch) | |
| tree | fd2b578aab6b67e6d47bd76dcef1685b7c19cbd0 /contrib | |
| parent | e805bb1b608befa007e3a17373fa972821ee8d9e (diff) | |
Finalement, niveau 0 pour l'argument du '-' uniare, pour eviter que les entiers positifs soient parentheses en tant qu'arguments de fonction; tant pis, il faudra ecrire '-(-x)' au lieu de '--x'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4751 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/ring/Ring_theory.v | 2 | ||||
| -rw-r--r-- | contrib/ring/Setoid_ring_theory.v | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/contrib/ring/Ring_theory.v b/contrib/ring/Ring_theory.v index b938f7db04..4281505e73 100644 --- a/contrib/ring/Ring_theory.v +++ b/contrib/ring/Ring_theory.v @@ -153,7 +153,7 @@ 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, right associativity). + V8only (at level 10, x at level 0). 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 eedc92197a..d31dd69951 100644 --- a/contrib/ring/Setoid_ring_theory.v +++ b/contrib/ring/Setoid_ring_theory.v @@ -38,7 +38,7 @@ 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, right associativity). + V8only (at level 10, x at level 0). 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. |