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

Lemma andp_subst_ENTAILL: forall Delta P P' Q Q' i v t,
(temp_types Delta) ! i = Some t ->
local (tc_environ Delta) && (allp_fun_id Delta && P') |-- local (`(tc_val' t) v) ->
local (tc_environ Delta) && (allp_fun_id Delta && P') |-- Q' ->
local (tc_environ Delta) && (allp_fun_id Delta && P) |-- Q ->
local (tc_environ Delta) && (allp_fun_id Delta && (P' && subst i v P)) |-- Q' && subst i v Q.