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_arguments_erasure:
forall rs rs2 rs' m m2 m' locs arg arg'
(Hregs: regs_erasure rs rs')
(Hmem: mem_erasure' m m')
(Hargs: val_erasure arg arg')
(Hmake: make_arguments rs m locs [:: arg] = Some (rs2, m2)),
exists rs2' m2',
make_arguments rs' m' locs [:: arg'] = Some (rs2', m2')/\
regs_erasure rs2 rs2' /\
mem_erasure' m2 m2'.