Hint Resolve closed_wrt_tc_expr : closed.
Hint Resolve closed_wrt_tc_lvalue : closed.

(* Specifications: *)
Lemma closed_wrt_lift1':
forall (A B : Type) (S : ident -> Prop) (f : A -> B)
(P : environ -> A),
closed_wrt_vars S P -> closed_wrt_vars S (`f P).