Instance fmapUnsized {A B} (f : A -> B) (g : G A) `{Unsized _ g} :
Unsized (fmap f g).
Instance fmapMonotonic
{A B} (f : A -> B) (g : G A) `{SizeMonotonic _ g} :
SizeMonotonic (fmap f g).

Lemma semPromote A (m : Rose (G A)) :
semGen (promote m) <-->
codom2 (fun size seed => fmapRose (fun g => run g size seed) m).