More simplification using better notation.

diff --git a/helm/software/matita/library/demo/power_derivative.ma b/helm/software/matita/library/demo/power_derivative.ma
index 24656c1d3da9f53f43d170b4837cc765ce1fb138..dc3f4c828f25c26e716678abdbd13e69c2a132f0 100644 (file)
--- a/helm/software/matita/library/demo/power_derivative.ma
+++ b/helm/software/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 _.