(* end semCheckableBool *)
Next Obligation.
rewrite !semFmapSize !semReturnSize. apply imset_eq. reflexivity.
Qed.

(* Specifications: *)
Lemma semCheckableResultSize:
forall (res: Result) (size: nat),
semCheckableSize res size <-> resultSuccessful res.
Lemma semCheckableResult :
forall (res: Result),
semCheckable res  <-> resultSuccessful res.