Remark val_lessdef_normalize:
forall v v' ty,
Val.has_type v ty -> Val.lessdef v v' ->
Val.lessdef v (Val.load_result (chunk_of_type ty) v').

Lemma find_function_tailcall:
forall tge ros ls1 ls2,
ros_compatible_tailcall ros = true ->
find_function tge ros (return_regs ls1 ls2) = find_function tge ros ls2.