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

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