Definition in_dom (a:ad) (m:Map A) :=
    match MapGet A m a with
    | None => false
    | _ => true
    end.

Lemma in_dom_put : forall (m:Map A) (a0:ad) (y0:A) (a:ad), in_dom a (MapPut A m a0 y0) = orb (Neqb a a0) (in_dom a m).