Global Instance Permutation_flat_map (g : A -> list B) :
Proper ((@Permutation A) ==> (@Permutation B)) (flat_map g).
End Permutation_map.

(* Specifications: *)
Lemma Permutation_map_same_l {A} (f : A -> A) (l : list A) :
List.NoDup (List.map f l) -> List.incl (List.map f l) l -> Permutation (List.map f l) l.
Lemma nat_bijection_Permutation n f :
bFun n f ->
Injective f ->
let l := seq 0 n in Permutation (map f l) l.