X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Flibrary%2Fdemo%2Fpower_derivative.ma;h=9e59079bd8daf9489fc66a5d1fb1befc3a352ad5;hb=e5dbc68dd1aa9cb8f836dde06eab1e73f103f721;hp=07e658e0b0c0c373c3ab6fbbbbb8d54d895cdf61;hpb=a1c4c601850c71e094a4703af00f02ca2026d8ed;p=helm.git diff --git a/matita/library/demo/power_derivative.ma b/matita/library/demo/power_derivative.ma index 07e658e0b..9e59079bd 100644 --- a/matita/library/demo/power_derivative.ma +++ b/matita/library/demo/power_derivative.ma @@ -121,7 +121,7 @@ lemma Fmult_one_f: ∀f:R→R.1·f=f. simplify; apply f_eq_extensional; intro; - auto. + autobatch. qed. lemma Fmult_zero_f: ∀f:R→R.0·f=0. @@ -130,7 +130,7 @@ lemma Fmult_zero_f: ∀f:R→R.0·f=0. simplify; apply f_eq_extensional; intro; - auto. + autobatch. qed. lemma Fmult_commutative: symmetric ? Fmult. @@ -139,7 +139,7 @@ lemma Fmult_commutative: symmetric ? Fmult. unfold Fmult; apply f_eq_extensional; intros; - auto. + autobatch. qed. lemma Fmult_associative: associative ? Fmult. @@ -149,7 +149,7 @@ lemma Fmult_associative: associative ? Fmult. unfold Fmult; apply f_eq_extensional; intros; - auto. + autobatch. qed. lemma Fmult_Fplus_distr: distributive ? Fmult Fplus. @@ -160,7 +160,7 @@ lemma Fmult_Fplus_distr: distributive ? Fmult Fplus. apply f_eq_extensional; intros; simplify; - auto. + autobatch. qed. lemma monomio_product: @@ -173,13 +173,13 @@ lemma monomio_product: [ simplify; apply f_eq_extensional; intro; - auto + autobatch | simplify; apply f_eq_extensional; intro; cut (x\sup (n1+m) = x \sup n1 · x \sup m); [ rewrite > Hcut; - auto + autobatch | change in ⊢ (? ? % ?) with ((λx:R.x\sup(n1+m)) x); rewrite > H; reflexivity @@ -196,7 +196,7 @@ lemma costante_sum: intros; elim n; [ simplify; - auto + autobatch | simplify; clear x; clear H; @@ -205,19 +205,19 @@ lemma costante_sum: [ simplify; elim m; [ simplify; - auto + autobatch | simplify; rewrite < H; - auto + autobatch ] | simplify; rewrite < H; clear H; elim n; [ simplify; - auto + autobatch | simplify; - auto + autobatch ] ] ].