let
fold_enum_by_base f m acc =
fold_i (
fun
k v acc
->
f (inject k v) acc) m acc