Notation the_ge := (@the_ge the_program).

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'.