Section ListOfDomDef.
Variable A : Type.
Definition ad_list_of_dom :=
MapFold A (list ad) nil (app (A:=ad)) (fun (a:ad) (_:A) => a :: nil).
End ListOfDomDef.

Lemma ad_list_of_dom_Dom :
forall (A:Type) (m:Map A),
ad_list_of_dom A m = ad_list_of_dom unit (MapDom A m).