Lemma tc_val_ptr_lemma {CS: compspecs} : forall rho m Delta id t a, typecheck_environ Delta rho -> denote_tc_assert (typecheck_expr Delta (Etempvar id (Tpointer t a))) rho m -> (*(temp_types Delta) ! id = Some (Tpointer t a, init) ->*) (*modified for init changes*) strict_bool_val (eval_id id rho) (Tpointer t a) = Some true -> tc_val (Tpointer t a) (eval_id id rho).