From cf8259ccd6383366bcb324d67e6df7d1c768cacc Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 14 Nov 2003 15:11:29 +0000
Subject: Ordre standard pour l'associativite

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4908 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/ring/NArithRing.v | 4 ++--
 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.
-- 
cgit v1.2.3