(** Builtin arguments. *)

Lemma invert_eval_builtin_args:
forall al vl,
list_forall2 (eval_builtin_arg ge sp e m) al vl ->
exists vl',
eval_exprlist ge sp e m nil (exprlist_of_expr_list (params_of_builtin_args al)) vl'
/\ Events.eval_builtin_args ge (fun v => v) sp m (convert_builtin_args al vl') vl.