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_un cls1 cls2 s : setd f inter TT cls1 s -> setd f inter TT cls2 s -> setd f inter TT (M.union cls1 cls2) s.