Proof (Genv.find_var_info_transf_partial transl_fundef _ TRANSL).

(* Specifications: *)
Lemma sig_preserved_body:
forall f tf cenv size,
transl_funbody cenv size f = OK tf ->
tf.(fn_sig) = Csharpminor.fn_sig f.
Lemma sig_preserved:
forall f tf,
transl_fundef f = OK tf ->
Cminor.funsig tf = Csharpminor.funsig f.
Lemma sig_preserved_body:
forall f tf cenv size,
transl_funbody cenv size f = OK tf ->
tf.(fn_sig) = Csharpminor.fn_sig f.
Lemma sig_preserved:
forall f tf,
transl_fundef f = OK tf ->
Cminor.funsig tf = Csharpminor.funsig f.