Program Instance unsizedMonotonicChecker (c : Checker) `{UnsizedChecker c} : 
  SizeMonotonicChecker c.

Lemma semBindGenSizeMonotonic {A} (gen : G A) (f : A -> Checker) `{SizeMonotonic _ gen} `{forall a, SizeMonotonicChecker (f a)} : (semChecker (bindGen gen f) <-> forall a, semGen gen a -> semChecker (f a)).