(* end semBindUnsized1 *)

(* Specifications: *)
Lemma semBindUnsized2 :
forall A B (g : G A) (f : A -> G B),
(forall a, Unsized (f a)) ->
semGen (bindGen g f) <--> \bigcup_(a in semGen g) semGen (f a).
(* 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).