let check_fct_preconditions kf state =
  try
    let spec = (Kernel_function.get_spec kf).spec_requires in
    let slevel = get_slevel kf in
    check_preconditions ~slevel
      (Pretty_utils.sfprintf "%a@?" Kernel_function.pretty_name kf)
      (State_set.singleton state) spec
  with Not_found -> (State_set.singleton state)