Module Monoid.FM

val fold_map : ('a -> M.t) -> 'a F.t -> M.t