removed dummy rewrite

diff --git a/helm/software/matita/library/Z/plus.ma b/helm/software/matita/library/Z/plus.ma
index cd565124589d1e20dbac077a384e1aac6fa06125..eeb1bc643fb83fb756978d4de17da9ad813fb761 100644 (file)
--- a/helm/software/matita/library/Z/plus.ma
+++ b/helm/software/matita/library/Z/plus.ma
@@ -308,7 +308,6 @@ intro.simplify.intros (z y).
 rewrite < Zplus_z_OZ.
 rewrite < (Zplus_z_OZ y).
 rewrite < (Zplus_Zopp x).
-rewrite < (Zplus_Zopp x).
 rewrite < assoc_Zplus.
 rewrite < assoc_Zplus.
 apply eq_f2

diff --git a/helm/software/matita/library/nat/chebyshev_thm.ma b/helm/software/matita/library/nat/chebyshev_thm.ma
index dd5f37c3610e742ebc71a7224c23482bb7452d8c..129336d8e70fc15ac9d61f24d27cd5da6ccba153 100644 (file)
--- a/helm/software/matita/library/nat/chebyshev_thm.ma
+++ b/helm/software/matita/library/nat/chebyshev_thm.ma
@@ -77,7 +77,7 @@ cut (\forall m.pi_p (S n) primeb
            [apply (bool_elim ? (leb ((S n1)*(S n1)) m))
               [intro;rewrite > true_to_pi_p_Sn in \vdash (? ? ? (? % ?))
                  [rewrite > false_to_pi_p_Sn in \vdash (? ? ? (? ? %))
-                    [rewrite > H1;rewrite > H2;rewrite < assoc_times;reflexivity
+                    [rewrite > H1;rewrite < assoc_times;reflexivity
                     |rewrite > H;lapply (leb_true_to_le ? ? H2);
                      lapply (le_to_not_lt ? ? Hletin);
                      apply (bool_elim ? (leb (S m) (S n1 * S n1)))

diff --git a/helm/software/matita/library/nat/count.ma b/helm/software/matita/library/nat/count.ma
index 6b5dbbe660f4b23a9253a55e90832552ccae2fba..73e251bf6b35929353622914eb364e393ad85a5f 100644 (file)
--- a/helm/software/matita/library/nat/count.ma
+++ b/helm/software/matita/library/nat/count.ma
@@ -33,7 +33,7 @@ theorem sigma_plus: \forall n,p,m:nat.\forall f:nat \to nat.
 sigma (S (p+n)) f m = sigma p (\lambda x.(f ((S n) + x))) m + sigma n f m.
 intros. elim p.
 simplify.
-rewrite < (sym_plus n m).reflexivity.
+reflexivity.
 simplify.
 rewrite > assoc_plus in \vdash (? ? ? %).
 rewrite < H.

diff --git a/helm/software/matita/library/nat/map_iter_p.ma b/helm/software/matita/library/nat/map_iter_p.ma
index 0d3bac82c6572b33eca87f3c2dfdf6626280a9c5..ff48d4d061141c9f7a84bf642e04c7aa55ac2408 100644 (file)
--- a/helm/software/matita/library/nat/map_iter_p.ma
+++ b/helm/software/matita/library/nat/map_iter_p.ma
@@ -192,7 +192,7 @@ split
          apply H5
           [rewrite < H8.assumption
           |apply le_n
-          |unfold.intro.rewrite > H8 in H2.
+          |unfold.intro.
            apply (not_le_Sn_n n).rewrite < H9.assumption
           ]   
         ]

diff --git a/helm/software/matita/library/nat/neper.ma b/helm/software/matita/library/nat/neper.ma
index 4ba2242b4907c35cf376c9668811724f990d50c1..8da13d9ab08e7fdbb4d7f165e75394eb69af15b4 100644 (file)
--- a/helm/software/matita/library/nat/neper.ma
+++ b/helm/software/matita/library/nat/neper.ma
@@ -334,7 +334,7 @@ elim b
             |apply le_log
               [assumption
               |cut (O = exp O n!)
-                 [rewrite > Hcut;apply monotonic_exp1;constructor 2;
+                 [apply monotonic_exp1;constructor 2;
                   apply leb_true_to_le;assumption
                  |elim n
                     [reflexivity
@@ -944,7 +944,7 @@ elim k
               |assumption]
            |assumption]
         |assumption]
-     |do 2 rewrite > false_to_sigma_p_Sn;assumption]]
+     |do 2 try rewrite > false_to_sigma_p_Sn;assumption]]
 qed.
 
 lemma neper_sigma_p3 : \forall a,n.O < a \to O < n \to n \divides a \to (exp (S n) n)/(exp n n) =