Hint Resolve type_use_incr: ty.

(* Specifications: *)
Lemma type_use_sound:
forall te x ty e e', type_use e x ty = OK e' -> satisf te e' -> T.sub (te x) ty.
Lemma type_uses_incr:
forall te xl tyl e e', type_uses e xl tyl = OK e' -> satisf te e' -> satisf te e.