Program Instance unsizedMonotonicChecker (c : Checker) `{UnsizedChecker c} :
SizeMonotonicChecker c.
Next Obligation.
rewrite unsizedChecker. move => b Hb. by eauto.
Qed.

Lemma mapTotalResult_idSize {C} `{Checkable C} (f : Result -> Result) (c : C) s :
(forall res, resultSuccessful res = resultSuccessful (f res)) ->
(semCheckerSize (mapTotalResult f c) s <-> semCheckableSize c s).