Ltac unfold_tc_denote :=
unfold denote_tc_nonzero in *;
unfold isptr in *;
unfold denote_tc_igt in *;
unfold denote_tc_Zle in *;
unfold denote_tc_Zge in *;
unfold denote_tc_samebase in *;
unfold denote_tc_nodivover in *;
unfold denote_tc_initialized in *.

Lemma typecheck_expr_sound_Evar:
forall {CS: compspecs} Delta rho m i t,
typecheck_environ Delta rho ->
denote_tc_assert (typecheck_expr Delta (Evar i t)) rho m ->
tc_val (typeof (Evar i t)) (eval_expr (Evar i t) rho).