X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2FZ%2Fdirichlet_product.ma;h=b9c4cbcaf837ccc03485b7b58ddf7b895db49a95;hb=2104e9482cbdd6067b54eb077f4c76f2eb4428fa;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..b9c4cbcaf 100644
--- a/helm/software/matita/library/Z/dirichlet_product.ma
+++ b/helm/software/matita/library/Z/dirichlet_product.ma
@@ -12,8 +12,6 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/Z/dirichlet_product".
-
 include "nat/primes.ma".
 include "Z/sigma_p.ma".
 include "Z/times.ma".
@@ -257,7 +255,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.