X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Fchebyshev_teta.ma;h=1bb493f79c53010261116c3e7234df843700ab92;hb=c99a38b6539be1eb667cced1eed2db3fc75e3162;hp=4c839892ade4ac32d696a817b623d96afc48ad51;hpb=3f5a0152427fd9a89e7239befd259d27b97aaef5;p=helm.git

diff --git a/helm/software/matita/library/nat/chebyshev_teta.ma b/helm/software/matita/library/nat/chebyshev_teta.ma
index 4c839892a..1bb493f79 100644
--- a/helm/software/matita/library/nat/chebyshev_teta.ma
+++ b/helm/software/matita/library/nat/chebyshev_teta.ma
@@ -12,8 +12,6 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/nat/chebyshev_teta".
-
 include "nat/binomial.ma".
 include "nat/pi_p.ma".
 
@@ -164,7 +162,7 @@ elim (bc2 (S(2*m)) m)
   [unfold bc.rewrite > H3.
    rewrite > sym_times.
    rewrite > lt_O_to_div_times
-    [elim (divides_times_to_divides p (m!*(S (2*m)-m)!) n2)
+    [elim (divides_times_to_divides p (m!*(S (2*m)-m)!) n1)
       [apply False_ind.
        elim (divides_times_to_divides p (m!) (S (2*m)-m)!)
         [apply (lt_to_not_le ? ? (lt_to_le ? ? H1)).