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 find_funct_prop: forall (P: F -> Prop) p v f, (forall id f, In (id, Gfun f) (prog_defs p) -> P f) -> find_funct (globalenv p) v = Some f -> P f.