From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Wed, 2 Apr 2008 09:39:23 +0000 (+0000)
Subject: removed dummy rewrite
X-Git-Tag: make_still_working~5470
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=0f67d865f8fa608397c9cd5d534c51e7f1e4ae55;p=helm.git

removed dummy rewrite
---

diff --git a/helm/software/matita/library/Z/plus.ma b/helm/software/matita/library/Z/plus.ma
index cd5651245..eeb1bc643 100644
--- 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 dd5f37c36..129336d8e 100644
--- 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 6b5dbbe66..73e251bf6 100644
--- 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 0d3bac82c..ff48d4d06 100644
--- 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 4ba2242b4..8da13d9ab 100644
--- 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) =