Instance sizedSizeMonotonic
A (gen : nat -> G A) `{forall n, SizeMonotonic (gen n)} `{SizedMonotonic A gen} :
SizeMonotonic (sized gen).
Instance sizedSizeMonotonicOpt
A (gen : nat -> G (option A)) `{forall n, SizeMonotonic (gen n)} `{SizedMonotonicOpt A gen} :
SizeMonotonicOpt (sized gen).

(* Specifications: *)
Lemma semResize A n (g : G A) : semGen (resize n g) <--> semGenSize g n .
Lemma semSizeResize A (s n : nat) (g : G A) :
semGenSize (resize n g) s <--> semGenSize g n.