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_arg_erase:
forall rs rs' m m' l v
(Hrs: regs_erasure rs rs')
(Hmem: mem_erasure m m')
(Harg: get_extcall_arg rs m l = Some v),
exists v',
get_extcall_arg rs' m' l = Some v' /\
val_erasure v v'.