Hint Rewrite sem_cast_pointer2' using (try apply Coq.Init.Logic.I; try assumption; reflexivity) : norm.

Lemma force_eval_var_int_ptr :
forall  {cs: compspecs}  Delta rho i t,
tc_environ Delta rho ->
tc_lvalue Delta (Evar i t) rho |--
!! (force_val
match eval_var i t rho with
| Vptr _ _ => Some (eval_var i t rho)
| _ => None
end = eval_var i t rho).