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_lvalue_Evar: forall {CS: compspecs} i t pt Delta rho m, typecheck_environ Delta rho -> denote_tc_assert (typecheck_lvalue Delta (Evar i t)) rho m -> is_pointer_type pt = true -> tc_val pt (eval_lvalue (Evar i t) rho).