(** Translation of arguments and results to builtins. *)
Remark builtin_arg_match:
forall ge (rs: regset) sp m a v,
eval_builtin_arg ge (fun r => rs (preg_of r)) sp m a v ->
eval_builtin_arg ge rs sp m (map_builtin_arg preg_of a) v.

Lemma agree_set_res:
forall res ms sp rs v v',
agree ms sp rs ->
Val.lessdef v v' ->
agree (Mach.set_res res v ms) sp (Asm.set_res (map_builtin_res preg_of res) v' rs).