Proof with eauto 10 with val_erasure regs_erasure.
intros.
unfold eval_addrmode.
assert (Hptr64: Archi.ptr64 = false) by auto.
rewrite Hptr64.
eapply eval_addrmode32_erase;
now eauto.
Qed.

(* Specifications: *)
Lemma compare_ints_erasure:
forall v1 v2 v1' v2' rs rs' m m'
(Hval_erasure: val_erasure v1 v1')
(Hval_erasure': val_erasure v2 v2')
(Hrs: regs_erasure rs rs')
(Hmem: mem_erasure m m'),
regs_erasure (compare_ints v1 v2 rs m)
(compare_ints v1' v2' rs' m').