X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Ftimes.ma;h=f59622218e84c38535f862a7f8917fd7a5b4d87d;hb=dcef667a444aa0f189225855c1433d26b65fb8b7;hp=8de22c1e3c1d4c4c7867cbe24c08b4c6575ef006;hpb=134014e54c374789b38b6c53945f63d21ddbacb0;p=helm.git diff --git a/helm/software/matita/library/nat/times.ma b/helm/software/matita/library/nat/times.ma index 8de22c1e3..f59622218 100644 --- a/helm/software/matita/library/nat/times.ma +++ b/helm/software/matita/library/nat/times.ma @@ -1,3 +1,4 @@ + (**************************************************************************) (* __ *) (* ||M|| *) @@ -37,7 +38,7 @@ theorem times_n_Sm : intros.elim n. simplify.reflexivity. simplify. -demodulate all steps=3. +demodulate all. (* apply eq_f.rewrite < H. transitivity ((n1+m)+n1*m).symmetry.apply assoc_plus. @@ -112,7 +113,7 @@ unfold distributive. intros.elim x. simplify.reflexivity. simplify. -demodulate all steps=16. +demodulate all. (* rewrite > H. rewrite > assoc_plus.rewrite > assoc_plus. apply eq_f.rewrite < assoc_plus. rewrite < (sym_plus ? z). @@ -127,7 +128,7 @@ unfold associative. intros. elim x. simplify.apply refl_eq. simplify. -demodulate all steps=4. +demodulate all. (* rewrite < sym_times. rewrite > distr_times_plus.