let add_prop_call_post acc kind called_kf bhv tkind ~assumes post =
  let id = WpPropId.mk_fct_post_id called_kf bhv (tkind, post) in
  let labels = NormAtLabels.labels_fct_post in
  let p = Logic_const.pred_of_id_pred post in
  let assumes = Logic_const.pold assumes in
  let p = Logic_const.pimplies (assumes, p) in
    add_prop acc kind labels id p