Definition branch_target (f: function) (pc: node) : node :=
  U.repr (record_gotos f) pc.Definition count_gotos (f: function) (pc: node) : nat :=
  snd (record_gotos' f) pc.

Lemma function_ptr_translated: forall v f, Genv.find_funct_ptr ge v = Some f -> Genv.find_funct_ptr tge v = Some (tunnel_fundef f).