End MapSubsetExtra.
Section MapDisjointDef.
Variables A B : Type.
Definition MapDisjoint (m:Map A) (m':Map B) :=
forall a:ad, in_dom A a m = true -> in_dom B a m' = true -> False.
Definition MapDisjoint_1 (m:Map A) (m':Map B) :=
match MapSweep A (fun (a:ad) (_:A) => in_dom B a m') m with
| None => true
| _ => false
end.
Definition MapDisjoint_2 (m:Map A) (m':Map B) :=
eqmap A (MapDomRestrTo A B m m') (M0 A).

Lemma MapDisjoint_imp_2 :
forall (m:Map A) (m':Map B), MapDisjoint m m' -> MapDisjoint_2 m m'.