Opaque Int.repr.
Definition typecheck_tid_ptr_compare
Delta id :=
match (temp_types Delta) ! id with
| Some t => is_int_type t
| None => false
end.

Lemma tc_val_sem_cast:
forall {CS: compspecs} t2 e2 rho phi Delta,
typecheck_environ Delta rho ->
denote_tc_assert (typecheck_expr Delta e2) rho phi ->
denote_tc_assert (isCastResultType (typeof e2) t2  e2) rho phi ->
tc_val t2 (force_val (sem_cast (typeof e2) t2 (eval_expr e2 rho))).