Hint Resolve closed_wrt_sepcon closed_wrtl_sepcon : closed.

(* Specifications: *)
Lemma closed_wrt_emp {A} {ND: NatDed A} {SL: SepLog A}:
forall S, closed_wrt_vars S emp.
Lemma closed_wrtl_allp: forall A S P,
(forall x: A, closed_wrt_lvars S (P x)) ->
closed_wrt_lvars S (allp P).