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_translated: forall ros rs fd ros' e e' ls, RTL.find_function ge ros rs = Some fd -> add_equation_ros ros ros' e = Some e' -> satisf rs ls e' -> exists tfd, LTL.find_function tge ros' ls = Some tfd /\ transf_fundef fd = OK tfd.