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 kf Kglobal ~result ~slevel
      (Pretty_utils.sfprintf "Function %a@?" Kernel_function.pretty_name kf)
      init_state state kind spec
  with Not_found -> state