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 ad_list_of_dom_not_stutters :
forall m:Map A, ad_list_stutters (ad_list_of_dom m) = false.