Variable comm : forall a b:M, op a b = op b a.

Lemma MapFold_Merge_disjoint :
forall (f:ad -> A -> M) (m1 m2:Map A),
MapDisjoint A A m1 m2 ->
MapFold A M neutral op f (MapMerge A m1 m2) =
op (MapFold A M neutral op f m1) (MapFold A M neutral op f m2).