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 functions_translated: forall v f, Genv.find_funct ge v = Some f -> Genv.find_funct tge v = Some (tunnel_fundef f).