let check_fct_postconditions kf state =
  try
    check_postconditions
      (Pretty_utils.sfprintf "Function %a,@?" Kernel_function.pretty_name kf)
      state (Kernel_function.get_spec kf).spec_behavior
  with Not_found -> state