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_locs:
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)),
locs = [::].