X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2FZ%2Fdirichlet_product.ma;h=c45b4dc53443d1d3eb76e84044217bb1e5dc1dd1;hb=294c323165c26790c2dd57fdbea2de30278f1ca6;hp=6328bc7dca8ca34f3a836d2f7b54af8a4a204ada;hpb=f262223fb7b49a191b25d27ecc58818b9d7a357d;p=helm.git

diff --git a/helm/software/matita/library/Z/dirichlet_product.ma b/helm/software/matita/library/Z/dirichlet_product.ma
index 6328bc7dc..c45b4dc53 100644
--- a/helm/software/matita/library/Z/dirichlet_product.ma
+++ b/helm/software/matita/library/Z/dirichlet_product.ma
@@ -257,7 +257,7 @@ apply (trans_eq ? ?
                        assumption
                       ]
                     |elim (divides_b_true_to_divides ? ? H4).
-                     apply (witness ? ? n2).
+                     apply (witness ? ? n1).
                      rewrite > assoc_times.
                      rewrite < H5.
                      rewrite < sym_times.