(* 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.

Lemma closed_wrtl_SEPx: forall S P,
closed_wrt_lvars S (SEPx P).