Hint Resolve closed_wrt_stackframe_of : closed.
Definition included {U} (S S': U -> Prop) := forall x, S x -> S' x.

(* Specifications: *)
Lemma closed_wrt_TT:
forall  (S: ident -> Prop),
closed_wrt_vars S (@TT (environ -> mpred) _).
Lemma closed_wrtl_TT:
forall  (S: ident -> Prop),
closed_wrt_lvars S (@TT (environ -> mpred) _).