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