Definition cast_pointer_to_bool t1 t2 :=
match t1 with (Tpointer _ _ | Tarray _ _ _ | Tfunction _ _ _) =>
match t2 with Tint IBool _ _ => true | _ => false end
| _ => false
end.

Lemma eval_both_relate:
forall {CS: compspecs} Delta ge te ve rho e m,
genv_cenv ge = cenv_cs ->
rho = construct_rho (filter_genv ge) ve te ->
typecheck_environ Delta rho ->
(denote_tc_assert (typecheck_expr Delta e) rho (m_phi m) ->
Clight.eval_expr ge ve te (m_dry m) e  (eval_expr e rho))
/\
(denote_tc_assert (typecheck_lvalue Delta e) rho (m_phi m) ->
exists b, exists ofs,
Clight.eval_lvalue ge ve te (m_dry m) e b ofs /\
eval_lvalue e rho = Vptr b ofs).