Proof (Genv.find_funct_ptr_transf_partial TRANSF).

Lemma find_function_translated:
forall j ls rs m ros f,
agree_regs j ls rs ->
m |= globalenv_inject ge j ->
Linear.find_function ge ros ls = Some f ->
exists bf, exists tf,
find_function_ptr tge ros rs = Some bf
/\ Genv.find_funct_ptr tge bf = Some tf
/\ transf_fundef f = OK tf.