Hint Resolve areg_sound aregs_sound: va.

(* Specifications: *)
Lemma abuiltin_arg_sound:
forall bc ge rs sp m ae rm am,
ematch bc rs ae ->
romatch bc m rm ->
mmatch bc m am ->
genv_match bc ge ->
bc sp = BCstack ->
forall a v,
eval_builtin_arg ge (fun r => rs#r) (Vptr sp Ptrofs.zero) m a v ->
vmatch bc v (abuiltin_arg ae am rm a).
Lemma abuiltin_args_sound:
forall bc ge rs sp m ae rm am,
ematch bc rs ae ->
romatch bc m rm ->
mmatch bc m am ->
genv_match bc ge ->
bc sp = BCstack ->
forall al vl,
eval_builtin_args ge (fun r => rs#r) (Vptr sp Ptrofs.zero) m al vl ->
list_forall2 (vmatch bc) vl (map (abuiltin_arg ae am rm) al).
Lemma set_builtin_res_sound:
forall bc rs ae v av res,
ematch bc rs ae ->
vmatch bc v av ->
ematch bc (regmap_setres res v rs) (set_builtin_res res av ae).