Proof (Genv.find_funct_transf_partial transl_fundef _ TRANSL).

(* Specifications: *)
Lemma varinfo_preserved:
forall b, Genv.find_var_info tge b = Genv.find_var_info ge b.
Lemma varinfo_preserved:
forall b, Genv.find_var_info tge b = Genv.find_var_info ge b.