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 =
    (* post for behavior is [\old(assumes) => ensures] *)
    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