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 call_regs_param_values: forall sg ls, map (fun p => Locmap.getpair p (call_regs ls)) (loc_parameters sg) = map (fun p => Locmap.getpair p ls) (loc_arguments sg).