Proof (Genv.find_funct_ptr_transf_partial2 transl_fundef transl_globvar _ TRANSL).

(* Specifications: *)
Lemma var_info_translated:
forall b v,
Genv.find_var_info ge b = Some v ->
exists tv, Genv.find_var_info tge b = Some tv /\ transf_globvar transl_globvar v = OK tv.