aboutsummaryrefslogtreecommitdiff
path: root/theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v
diff options
context:
space:
mode:
authorletouzey2008-06-02 23:26:13 +0000
committerletouzey2008-06-02 23:26:13 +0000
commitf82bfc64fca9fb46136d7aa26c09d64cde0432d2 (patch)
tree471a75d813fb70072c384b926f334e27919cf889 /theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v
parentb37cc1ad85d2d1ac14abcd896f2939e871705f98 (diff)
In abstract parts of theories/Numbers, plus/times becomes add/mul,
for increased consistency with bignums parts (commit part I: content of files) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11039 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v')
-rw-r--r--theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v16
1 files changed, 8 insertions, 8 deletions
diff --git a/theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v b/theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v
index 115f78be0d..54d7aec524 100644
--- a/theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v
+++ b/theories/Numbers/Natural/SpecViaZ/NSigNAxioms.v
@@ -35,9 +35,9 @@ Definition NZeq := N.eq.
Definition NZ0 := N.zero.
Definition NZsucc := N.succ.
Definition NZpred := N.pred.
-Definition NZplus := N.add.
+Definition NZadd := N.add.
Definition NZminus := N.sub.
-Definition NZtimes := N.mul.
+Definition NZmul := N.mul.
Theorem NZeq_equiv : equiv N.t N.eq.
Proof.
@@ -64,7 +64,7 @@ rewrite 2 N.spec_pred0; congruence.
rewrite 2 N.spec_pred; f_equal; auto; try omega.
Qed.
-Add Morphism NZplus with signature N.eq ==> N.eq ==> N.eq as NZplus_wd.
+Add Morphism NZadd with signature N.eq ==> N.eq ==> N.eq as NZadd_wd.
Proof.
unfold N.eq; intros; rewrite 2 N.spec_add; f_equal; auto.
Qed.
@@ -77,7 +77,7 @@ rewrite 2 N.spec_sub0; f_equal; congruence.
rewrite 2 N.spec_sub; f_equal; congruence.
Qed.
-Add Morphism NZtimes with signature N.eq ==> N.eq ==> N.eq as NZtimes_wd.
+Add Morphism NZmul with signature N.eq ==> N.eq ==> N.eq as NZmul_wd.
Proof.
unfold N.eq; intros; rewrite 2 N.spec_mul; f_equal; auto.
Qed.
@@ -137,12 +137,12 @@ Qed.
End Induction.
-Theorem NZplus_0_l : forall n, 0 + n == n.
+Theorem NZadd_0_l : forall n, 0 + n == n.
Proof.
intros; red; rewrite N.spec_add, N.spec_0; auto with zarith.
Qed.
-Theorem NZplus_succ_l : forall n m, (N.succ n) + m == N.succ (n + m).
+Theorem NZadd_succ_l : forall n m, (N.succ n) + m == N.succ (n + m).
Proof.
intros; red; rewrite N.spec_add, 2 N.spec_succ, N.spec_add; auto with zarith.
Qed.
@@ -169,13 +169,13 @@ rewrite N.spec_pred, N.spec_sub; auto with zarith.
rewrite N.spec_sub; auto with zarith.
Qed.
-Theorem NZtimes_0_l : forall n, 0 * n == 0.
+Theorem NZmul_0_l : forall n, 0 * n == 0.
Proof.
intros; red.
rewrite N.spec_mul, N.spec_0; auto with zarith.
Qed.
-Theorem NZtimes_succ_l : forall n m, (N.succ n) * m == n * m + m.
+Theorem NZmul_succ_l : forall n m, (N.succ n) * m == n * m + m.
Proof.
intros; red.
rewrite N.spec_add, 2 N.spec_mul, N.spec_succ; ring.