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