Remark type_expect_incr:
  forall e ty1 ty2 e' te, type_expect e ty1 ty2 = OK e' -> S.satisf te e' -> S.satisf te e.

Lemma wt_regset_setres: forall env rs v res, wt_regset env rs -> Val.has_type v (type_of_builtin_res env res) -> wt_regset env (regmap_setres res v rs).