let lookup_called_preconditions_at kf stmt =
let spec = Kernel_function.get_spec kf in
List.fold_left
(fun properties bhv ->
List.fold_left
(fun properties precond ->
let pid_spec = Property.ip_of_requires kf Kglobal bhv precond in
if PreCondAt.mem pid_spec stmt then
let pid_call = PreCondAt.property pid_spec stmt in
pid_call :: properties
else
properties
) properties bhv.b_requires
) [] spec.spec_behavior