Ltac intcompare H :=
(apply typed_false_cmp_repr in H || apply typed_true_cmp_repr in H);
[ simpl in H | auto; unfold repable_signed, Int.min_signed, Int.max_signed in *; omega .. ].

(* Specifications: *)
Lemma isptr_deref_noload:
forall t p, access_mode t = By_reference -> isptr (deref_noload t p) = isptr p.