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