let add_called_post called_kf termination_kind =
let spec = Kernel_function.get_spec called_kf in
debug "[add_called_post] '%s' for %a@."
(WpPropId.string_of_termination_kind termination_kind)
Kernel_function.pretty called_kf;
let add_behav acc b =
let kind = WpStrategy.AcallHyp in
let assumes = (Ast_info.behavior_assumes b) in
let add_post acc (tk, p) =
if tk = termination_kind
then WpStrategy.add_prop_call_post acc kind called_kf b tk ~assumes p
else acc
in List.fold_left add_post acc b.b_post_cond
in
let acc = List.fold_left add_behav WpStrategy.empty_acc spec.spec_behavior in
if acc = WpStrategy.empty_acc then
debug "no called %s postcondition for %a@."
(WpPropId.string_of_termination_kind termination_kind)
Kernel_function.pretty called_kf;
acc