X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Ffermat_little_theorem.ma;h=1dc6669cbc4f8cf9f70b7c84b4a13ebbf8c19334;hb=b58b7f9f3fdf8d66522b31828faa5bfa588c31b8;hp=9ba1cb276978437fcee35ff2064b280557d6586f;hpb=c864b3853bbe90664e6ad3128038fc8fa4b5d641;p=helm.git

diff --git a/helm/software/matita/library/nat/fermat_little_theorem.ma b/helm/software/matita/library/nat/fermat_little_theorem.ma
index 9ba1cb276..1dc6669cb 100644
--- a/helm/software/matita/library/nat/fermat_little_theorem.ma
+++ b/helm/software/matita/library/nat/fermat_little_theorem.ma
@@ -12,8 +12,6 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/nat/fermat_little_theorem".
-
 include "nat/exp.ma".
 include "nat/gcd.ma".
 include "nat/permutation.ma".
@@ -220,7 +218,7 @@ cut (O < a)
                   [rewrite > Hcut3.apply congruent_n_n
                   |rewrite < eq_map_iter_i_pi.
                    rewrite < eq_map_iter_i_pi.
-                   apply permut_to_eq_map_iter_i
+                   apply (permut_to_eq_map_iter_i ? ? ? ? ? (λm.m))
                    [apply assoc_times
                    |apply sym_times
                    |rewrite < plus_n_Sm.