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 get_extcall_arguments_erase:
forall rs rs' m m' ls vs
(Hrs: regs_erasure rs rs')
(Hmem: mem_erasure m m')
(Hargs: get_extcall_arguments rs m ls = Some vs),
exists vs',
get_extcall_arguments rs' m' ls = Some vs' /\
val_erasure_list vs vs'.