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 type_instr_sound: forall e i e' te, type_instr e i = OK e' -> S.satisf te e' -> wt_instr f te i.