Section MapDisjointExtra.
Variables A B : Type.

Lemma MapDisjoint_M2 :
forall (m0 m1:Map A) (m2 m3:Map B),
MapDisjoint A B m0 m2 ->
MapDisjoint A B m1 m3 -> MapDisjoint A B (M2 A m0 m1) (M2 B m2 m3).