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.

(* Specifications: *)
Lemma typecheck_tid_ptr_compare_sub:
forall Delta Delta',
tycontext_sub Delta Delta' ->
forall id, typecheck_tid_ptr_compare Delta id = true ->
typecheck_tid_ptr_compare Delta' id = true.
Lemma int64_eq_e:
forall i j, Int64.eq i j = true -> i=j.
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))).