let check_fct_preconditions kf init_state =
  let init_states = State_set.singleton init_state in
  try
    let spec = Kernel_function.get_spec kf in
    let slevel = get_slevel kf in
    let active_behaviors = ActiveBehaviors.create init_states kf in
    check_preconditions kf Kglobal ~slevel
      (Pretty_utils.sfprintf "Function %a@?" Kernel_function.pretty kf)
      active_behaviors init_states spec
  with Not_found -> init_states