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

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