Definition vanalyze (cu: program) (f: function) :=
  ValueAnalysis.analyze (romem_for cu) f.

Lemma find_function_translated: forall ros rs fd trs ne, find_function ge ros rs = Some fd -> eagree rs trs (add_ros_need_all ros ne) -> exists cu tfd, find_function tge ros trs = Some tfd /\ transf_fundef (romem_for cu) fd = OK tfd /\ linkorder cu prog.