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

Lemma Ptrofs_to_int_repr:
Archi.ptr64=false ->
forall i, Ptrofs.to_int (Ptrofs.repr i) = Int.repr i.