From 4ad9bd3e1480b50aa3a4299fedccb30faea86cee Mon Sep 17 00:00:00 2001 From: herbelin Date: Wed, 21 May 2003 16:25:25 +0000 Subject: Mise en conformite de la precedence du '-' unaire avec celle de Notations git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4052 85f007b7-540e-0410-9357-904b9bb8a0f7 --- contrib/ring/Ring_theory.v | 4 ++-- contrib/ring/Setoid_ring_theory.v | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/contrib/ring/Ring_theory.v b/contrib/ring/Ring_theory.v index 339afc9eb5..4552e71a48 100644 --- a/contrib/ring/Ring_theory.v +++ b/contrib/ring/Ring_theory.v @@ -151,9 +151,9 @@ Infix 4 "*" Amult V8only 30 (left associativity). Notation "0" := Azero. Notation "1" := Aone. Notation "- 0" := (Aopp Azero) (at level 3) - V8only (at level 40, left associativity). + V8only (at level 0, left associativity). Notation "- 1" := (Aopp Aone) (at level 3) - V8only (at level 40, left associativity). + V8only (at level 0, left associativity). Notation "- x" := (Aopp x) (at level 3) V8only (at level 0, left associativity). diff --git a/contrib/ring/Setoid_ring_theory.v b/contrib/ring/Setoid_ring_theory.v index 4fc7ea1043..a27285ccac 100644 --- a/contrib/ring/Setoid_ring_theory.v +++ b/contrib/ring/Setoid_ring_theory.v @@ -37,11 +37,11 @@ Infix 4 "*" Amult V8only 30 (left associativity). Notation "0" := Azero. Notation "1" := Aone. Notation "- 0" := (Aopp Azero) (at level 3) - V8only (at level 40, left associativity). + V8only (at level 0, left associativity). Notation "- 1" := (Aopp Aone) (at level 3) - V8only (at level 40, left associativity). + V8only (at level 0, left associativity). Notation "- x" := (Aopp x) (at level 3) - V8only (at level 40, left associativity). + V8only (at level 0, 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. -- cgit v1.2.3