Lemma eval_lvalue_ptr : forall {CS: compspecs} rho m e (Delta: tycontext) te ve ge, mkEnviron ge ve te = rho -> typecheck_var_environ ve (var_types Delta) -> typecheck_glob_environ ge (glob_types Delta) -> denote_tc_assert (typecheck_lvalue Delta e) rho m -> exists base, exists ofs, eval_lvalue e rho = Vptr base ofs.