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

Lemma Elems_of_list_of_dom_c :
forall m:Map A, mapcanon A m -> Elems (ad_list_of_dom m) = MapDom A m.