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_1 :
forall (A:Type) (m:Map A) (pf:ad -> ad),
MapFold1 A (list ad) nil (app (A:=ad)) (fun (a:ad) (_:A) => a :: nil) pf
m =
MapFold1 unit (list ad) nil (app (A:=ad))
(fun (a:ad) (_:unit) => a :: nil) pf (MapDom A m).