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

Lemma andp_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'.