X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Flibrary%2Fdemo%2Fpower_derivative.ma;h=dc3f4c828f25c26e716678abdbd13e69c2a132f0;hb=378a122bd40f832581ee3e82cc428584b6579a57;hp=24656c1d3da9f53f43d170b4837cc765ce1fb138;hpb=41af0583fbc8183183d389303951dca94f2965b0;p=helm.git

diff --git a/matita/library/demo/power_derivative.ma b/matita/library/demo/power_derivative.ma
index 24656c1d3..dc3f4c828 100644
--- a/matita/library/demo/power_derivative.ma
+++ b/matita/library/demo/power_derivative.ma
@@ -319,8 +319,8 @@ theorem derivative_power': ∀n:nat. D[x \sup (1+n)] = (1+n) · x \sup n.
    (D[x \sup (2+m)] = (2+m) · x \sup (1+m)).
   conclude
      (D[x \sup (2+m)])
-   = (D[x \sup 1 · x \sup (1+m)]) by _.
-   = (D[x \sup 1] · x \sup (1+m) + x · D[x \sup (1+m)]) by _.
+   = (D[x · x \sup (1+m)]) by _.
+   = (D[x] · x \sup (1+m) + x · D[x \sup (1+m)]) by _.
    = (x \sup (1+m) + x · (costante (1+m) · x \sup m)) by _.
 clear H.
    = (x \sup (1+m) + costante (1+m) · x \sup (1+m)) by _.