let check_fct_postconditions ~result kf ~init_state ~active_behaviors
~post_state kind =
try
let spec = (Kernel_function.get_spec kf).spec_behavior in
let slevel = get_slevel kf in
check_postconditions kf Kglobal ~result ~slevel
(Pretty_utils.sfprintf "Function %a@?" Kernel_function.pretty kf)
~init_state ~active_behaviors ~post_state kind spec
with Not_found -> post_state