Notation the_ge := (@the_ge the_program).

Lemma compare_longs_erasure: forall v1 v1' v2 v2' rs rs' m m' (Hval1: val_erasure v1 v1') (Hval2: val_erasure v2 v2') (Hregs: regs_erasure rs rs') (Hmem: mem_erasure m m'), regs_erasure (compare_longs v1 v2 rs m) (compare_longs v1' v2' rs' m').