(* *)
(**************************************************************************)
-set "baseuri" "cic:/matita/nat/fermat_little_theorem".
-
include "nat/exp.ma".
include "nat/gcd.ma".
include "nat/permutation.ma".
[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.