Definition allp_fun_id (Delta : tycontext): environ -> mpred :=
(ALL id : ident ,
(ALL fs : funspec ,
!! ((glob_specs Delta) ! id = Some fs) -->
(EX b : block, local (`eq (fun rho => Map.get (ge_of rho) id) `(Some b)) && `(seplog.func_at fs (b, 0))))).

(* Specifications: *)
Lemma corable_allp_fun_id: forall Delta rho,
corable (allp_fun_id Delta rho).