Notation the_ge := (@the_ge the_program).

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