X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Ftotient1.ma;h=e12c85adbe5e171962595ca9f4343d4b36686c81;hb=4dc47c9675ffd5fa50296ffaa9b5997501518c98;hp=c6b78ec90864ebea03557c675d267e8e2d6a3607;hpb=92165c07e82baa982ec06ff9ab325f97659a3900;p=helm.git

diff --git a/helm/software/matita/library/nat/totient1.ma b/helm/software/matita/library/nat/totient1.ma
index c6b78ec90..e12c85adb 100644
--- a/helm/software/matita/library/nat/totient1.ma
+++ b/helm/software/matita/library/nat/totient1.ma
@@ -12,8 +12,6 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/nat/totient1".
-
 include "nat/totient.ma".
 include "nat/iteration2.ma".
 include "nat/gcd_properties1.ma".
@@ -107,7 +105,7 @@ apply (trans_eq ? ?
                   | apply divides_gcd_n
                   ]
                 ]
-              | apply cic:/matita/nat/compare/eq_to_eqb_true.con.
+              | apply eq_to_eqb_true.
                 rewrite > (eq_gcd_div_div_div_gcd x n (gcd x n))
                 [ apply (div_n_n (gcd x n) Hcut)
                 | assumption