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