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

(* 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.