Hint Rewrite globvars2pred_unfold : norm.
Hint Rewrite @exp_trivial : norm.

Lemma sepcon_ENTAILL: forall Delta P P' Q Q',
local (tc_environ Delta) && (allp_fun_id Delta && P) |-- P' ->
local (tc_environ Delta) && (allp_fun_id Delta && Q) |-- Q' ->
local (tc_environ Delta) && (allp_fun_id Delta && (P * Q)) |-- P' * Q'.