Fold.Endo_Fold_Map
val fold_map : ('a -> 'b Bastet.Endo.Monoid.t) -> 'a F.t -> 'b Bastet.Endo.Monoid.t