X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Flibrary%2Fnat%2Fcount.ma;h=2abcf25c3b1f43245c61bd8d7d046c663b1a259d;hb=ecdf96be61f7f9cee7336b81d24780e59d1ea554;hp=20913fa6041c103527cfd73e7a5c7708b15924de;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/matita/library/nat/count.ma b/matita/library/nat/count.ma
index 20913fa60..2abcf25c3 100644
--- a/matita/library/nat/count.ma
+++ b/matita/library/nat/count.ma
@@ -70,9 +70,7 @@ sigma m (\lambda a.(sigma n (\lambda b.f (b*(S m) + a)) O)) O.
 intro.elim n.simplify.
 rewrite < plus_n_O.
 apply eq_sigma.intros.reflexivity.
-change with 
-(sigma (m+(S n1)*(S m)) f O =
-sigma m (\lambda a.(f ((S(n1+O))*(S m)+a)) + (sigma n1 (\lambda b.f (b*(S m)+a)) O)) O).
+simplify.
 rewrite > sigma_f_g.
 rewrite < plus_n_O.
 rewrite < H.
@@ -158,8 +156,7 @@ apply (trans_eq ? ?
 (sigma m (\lambda n.(bool_to_nat (f2 n))*(bool_to_nat (f1 i))) O)).
 reflexivity.
 apply sym_eq. apply sigma_times.
-change in match (pred (S n)) with n.
-change in match (pred (S m)) with m.
+simplify.
 apply sym_eq. apply sigma_times.
 unfold permut.
 split.