Hint Resolve closed_wrt_subset closed_wrtl_subset : closed.

(* Specifications: *)
Lemma closed_wrt_Forall_subset:
forall S S' (H: included S' S) B (f: list (environ -> B)),
Forall (closed_wrt_vars S) f ->
Forall (closed_wrt_vars S') f.
Lemma closed_wrtl_Forall_subset:
forall S S' (H: included S' S) B (f: list (environ -> B)),
Forall (closed_wrt_lvars S) f ->
Forall (closed_wrt_lvars S') f.
Lemma lvalue_closed_tempvar:
forall {cs: compspecs} S i t, ~ S i -> lvalue_closed_wrt_vars S (Etempvar i t).
Lemma lvalue_closedl_tempvar:
forall S i t, lvalue_closed_wrt_lvars S (Etempvar i t).