Corollary find_funct_ptr_inversion:
  forall p b f,
  find_funct_ptr (globalenv p) b = Some f ->
  exists id, In (id, Gfun f) (prog_defs p).Corollary find_funct_inversion:
  forall p v f,
  find_funct (globalenv p) v = Some f ->
  exists id, In (id, Gfun f) (prog_defs p).

Theorem global_addresses_distinct: forall ge id1 id2 b1 b2, id1 <> id2 -> find_symbol ge id1 = Some b1 -> find_symbol ge id2 = Some b2 -> b1 <> b2.