let get_called_post kf termination_kind =
  let spec = Kernel_function.get_spec kf in
  Wp_parameters.debug ~dkey "[get_called_post] '%s' for %a@."
    (WpPropId.string_of_termination_kind termination_kind)
    Kernel_function.pretty  kf;
  let posts = post_of_spec_assigns kf Kglobal spec termination_kind in
  let mk_prop acc (bhv, from, post) =
    let id = WpPropId.mk_bhv_from_id kf Kglobal bhv from in
    let labels = NormAtLabels.labels_fct_post in
      WpStrategy.add_prop acc WpStrategy.AcallHyp labels id post
  in List.fold_left mk_prop WpStrategy.empty_acc posts