Definition setd {T} (f : M.elt -> T) (g : T -> T -> T) (b : T) (s : M.t) :=
  listd f g b (M.elements s).

Lemma setd_fold_left cls0 l s : listd f inter b l s -> setd f inter b cls0 s -> setd f inter b (fold_left h l cls0) s.