Hint Resolve regs_erasure_get regs_erasure_refl regs_erasure_set
: regs_erasure.
Notation the_ge := (@the_ge the_program).
(** ** Result about at_external, after_external and initial_core *)

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