diff options
| author | herbelin | 2003-11-14 15:11:29 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-14 15:11:29 +0000 |
| commit | cf8259ccd6383366bcb324d67e6df7d1c768cacc (patch) | |
| tree | a8c39b0c176a1c405b31e9ef4367e1850b16e879 | |
| parent | 9772d55236a9d87218b4eb9e261e41cb3cf4c4af (diff) | |
Ordre standard pour l'associativite
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4908 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/ring/NArithRing.v | 4 | ||||
| -rw-r--r-- | theories/NArith/BinNat.v | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/contrib/ring/NArithRing.v b/contrib/ring/NArithRing.v index 018503dc8a..65814a1400 100644 --- a/contrib/ring/NArithRing.v +++ b/contrib/ring/NArithRing.v @@ -30,9 +30,9 @@ Save. Definition NTheory : (Semi_Ring_Theory Nplus Nmult (Pos xH) Nul Neq). Split. Apply Nplus_comm. - Symmetry; Apply Nplus_assoc. + Apply Nplus_assoc. Apply Nmult_comm. - Symmetry; Apply Nmult_assoc. + Apply Nmult_assoc. Apply Nplus_0_l. Apply Nmult_1_l. Apply Nmult_0_l. diff --git a/theories/NArith/BinNat.v b/theories/NArith/BinNat.v index 084afccbc0..e11194a5d9 100644 --- a/theories/NArith/BinNat.v +++ b/theories/NArith/BinNat.v @@ -107,7 +107,7 @@ Rewrite add_sym; Reflexivity. Qed. Theorem Nplus_assoc : - (n,m,p:entier)(Nplus (Nplus n m) p)=(Nplus n (Nplus m p)). + (n,m,p:entier)(Nplus n (Nplus m p))=(Nplus (Nplus n m) p). Proof. Intros. NewDestruct n; Try Reflexivity. @@ -163,7 +163,7 @@ Rewrite times_sym; Reflexivity. Qed. Theorem Nmult_assoc : - (n,m,p:entier)(Nmult (Nmult n m) p)=(Nmult n (Nmult m p)). + (n,m,p:entier)(Nmult n (Nmult m p))=(Nmult (Nmult n m) p). Proof. Intros. NewDestruct n; Try Reflexivity. |