Proof
(Genv.find_funct_transf_partial transl_fundef _ TRANSL).

(* Specifications: *)
Lemma sig_transl_function:
forall (f: CminorSel.fundef) (tf: RTL.fundef),
transl_fundef f = OK tf ->
RTL.funsig tf = CminorSel.funsig f.
Lemma varinfo_preserved:
forall b, Genv.find_var_info tge b = Genv.find_var_info ge b.