(* *)
(**************************************************************************)
-set "baseuri" "cic:/matita/nat/times".
-
include "nat/plus.ma".
let rec times n m \def
[ O \Rightarrow O
| (S p) \Rightarrow m+(times p m) ].
-(*CSC: the URI must disappear: there is a bug now *)
-interpretation "natural times" 'times x y = (cic:/matita/nat/times/times.con x y).
+interpretation "natural times" 'times x y = (times x y).
+
+theorem times_Sn_m:
+\forall n,m:nat. m+n*m = S n*m.
+intros. reflexivity.
+qed.
theorem times_n_O: \forall n:nat. O = n*O.
intros.elim n.
reflexivity.
qed.
+alias num (instance 0) = "natural number".
+lemma times_SSO: \forall n.2*(S n) = S(S(2*n)).
+intro.simplify.rewrite < plus_n_Sm.reflexivity.
+qed.
+
+theorem or_eq_eq_S: \forall n.\exists m.
+n = (S(S O))*m \lor n = S ((S(S O))*m).
+intro.elim n
+ [apply (ex_intro ? ? O).
+ left.reflexivity
+ |elim H.elim H1
+ [apply (ex_intro ? ? a).
+ right.apply eq_f.assumption
+ |apply (ex_intro ? ? (S a)).
+ left.rewrite > H2.
+ apply sym_eq.
+ apply times_SSO
+ ]
+ ]
+qed.
+
theorem symmetric_times : symmetric nat times.
unfold symmetric.
intros.elim x.
simplify.apply times_n_O.
+(* applyS times_n_Sm. *)
simplify.rewrite > H.apply times_n_Sm.
qed.
\def distributive_times_plus.
theorem associative_times: associative nat times.
-unfold associative.intros.
-elim x.simplify.apply refl_eq.
+unfold associative.
+intros.
+elim x. simplify.apply refl_eq.
simplify.rewrite < sym_times.
rewrite > distr_times_plus.
rewrite < sym_times.
variant assoc_times: \forall n,m,p:nat. (n*m)*p = n*(m*p) \def
associative_times.
+
+lemma times_times: ∀x,y,z. x*(y*z) = y*(x*z).
+intros.autobatch paramodulation.
+qed.
+