diff options
| -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. |