End ListOfDomDef.

(* Specifications: *)
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).
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).