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

Lemma exp_ENTAILL: forall Delta B (P Q: B -> environ -> mpred),
(forall x: B, local (tc_environ Delta) && (allp_fun_id Delta && P x) |-- Q x) ->
local (tc_environ Delta) && (allp_fun_id Delta && exp P) |-- exp Q.