...

[helm.git] / helm / software / matita / library / Z / dirichlet_product.ma

diff --git a/helm/software/matita/library/Z/dirichlet_product.ma b/helm/software/matita/library/Z/dirichlet_product.ma
index 6328bc7dca8ca34f3a836d2f7b54af8a4a204ada..b9c4cbcaf837ccc03485b7b58ddf7b895db49a95 100644 (file)
--- 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.