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

diff --git a/helm/software/matita/library/nat/chebyshev_teta.ma b/helm/software/matita/library/nat/chebyshev_teta.ma
index 1765b3807..1bb493f79 100644
--- a/helm/software/matita/library/nat/chebyshev_teta.ma
+++ b/helm/software/matita/library/nat/chebyshev_teta.ma
@@ -162,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)).