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 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.