Hint Resolve @closed_wrt_lift4C @closed_wrtl_lift4C : closed.

(* Specifications: *)
Lemma closed_wrt_const:
forall A (P: A) S, closed_wrt_vars S (fun rho: environ => P).
Lemma closed_wrtl_const:
forall A (P: A) S, closed_wrt_lvars S (fun rho: environ => P).