Notation the_ge := (@the_ge the_program).

Lemma make_arg_erasure: forall rs rs' m m' r arg arg' rs2 m2 (Hregs: regs_erasure rs rs') (Hmem: mem_erasure' m m') (Hargs: val_erasure arg arg') (Hmake: make_arg rs m r arg = Some (rs2, m2)), exists rs2' m2', make_arg rs' m' r arg' = Some (rs2', m2') /\ regs_erasure rs2 rs2' /\ mem_erasure' m2 m2'.