X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Flibrary%2Fnat%2Ffermat_little_theorem.ma;h=f7953346a35f8affd74864ff62e9c02c730176b8;hb=11c50230046ab06ad542aa2f441d7525edbb678d;hp=9ba1cb276978437fcee35ff2064b280557d6586f;hpb=4c3688332df4e8a3c690b70923e197b5d7113b5b;p=helm.git

diff --git a/matita/library/nat/fermat_little_theorem.ma b/matita/library/nat/fermat_little_theorem.ma
index 9ba1cb276..f7953346a 100644
--- a/matita/library/nat/fermat_little_theorem.ma
+++ b/matita/library/nat/fermat_little_theorem.ma
@@ -220,7 +220,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.