Hint Resolve closed_wrt_imp closed_wrtl_imp : closed.

(* Specifications: *)
Lemma closed_wrt_sepcon: forall S (P Q: environ->mpred),
closed_wrt_vars S P -> closed_wrt_vars S Q ->
closed_wrt_vars S (P * Q).
Lemma closed_wrtl_sepcon: forall S (P Q: environ->mpred),
closed_wrt_lvars S P -> closed_wrt_lvars S Q ->
closed_wrt_lvars S (P * Q).