let get_called_postconds (tkind:termination_kind) kf =
  let spec = Kernel_function.get_spec kf in
  List.fold_left
    (fun properties bhv ->
       List.fold_left
         (fun properties postcond ->
            if tkind = fst postcond then
              let pid_spec = Property.ip_of_ensures kf Kglobal bhv postcond in
              pid_spec :: properties
            else properties
         ) properties bhv.b_post_cond
    ) [] spec.spec_behavior