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