(* end semBindUnsized1 *)

(* begin semBindSizeMonotonic *)
Lemma semBindSizeMonotonic {A B} (g : G A) (f : A -> G B)
`{Hg : SizeMonotonic _ g} `{Hf : forall a, SizeMonotonic (f a)} :
semGen (bindGen g f) <--> \bigcup_(a in semGen g) semGen (f a).