(* Lemma closed_wrt_LOCALx: forall S Q R, Forall (fun q => closed_wrt_vars S (local q)) Q -> closed_wrt_vars S R -> closed_wrt_vars S (LOCALx Q R). *)
Hint Resolve closed_wrt_LOCALx closed_wrtl_LOCALx: closed.

(* Specifications: *)
Lemma closed_wrt_SEPx: forall S P,
closed_wrt_vars S (SEPx P).
Lemma closed_wrtl_SEPx: forall S P,
closed_wrt_lvars S (SEPx P).