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

Lemma mapTotalResult_id {C} `{Checkable C} (f : Result -> Result) (c : C) :
(forall res, resultSuccessful res = resultSuccessful (f res)) ->
(semChecker (mapTotalResult f c) <-> semCheckable c).