(** * Proof of semantic preservation *)

Definition match_prog (p tp: RTL.program) :=
  match_program (fun cu f tf => tf = transf_fundef f) eq p tp.

Lemma find_function_translated: forall ros rs rs' f, find_function ge ros rs = Some f -> regs_lessdef rs rs' -> find_function tge ros rs' = Some (transf_fundef f).