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)