let get_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
            let pid_call = PreCondAt.property pid_spec stmt in
            pid_call :: properties
         ) properties bhv.b_requires
    ) [] spec.spec_behavior