(** Connection between Mach and Asm calling conventions for external functions. *)

Lemma extcall_args_match:
forall ms sp rs m m', agree ms sp rs -> Mem.extends m m' ->
forall ll vl,
list_forall2 (Mach.extcall_arg_pair ms m sp) ll vl ->
exists vl', list_forall2 (Asm.extcall_arg_pair rs m') ll vl' /\ Val.lessdef_list vl vl'.