let add_prop_stmt_post acc kind kf s bhv tkind l_post ~assumes post =
  let id = WpPropId.mk_stmt_post_id kf s bhv (tkind, post) in
  let labels = NormAtLabels.labels_stmt_post s l_post in
  let p = Logic_const.pred_of_id_pred post in
  let p = match assumes with None -> p
    | Some assumes ->
        let assumes = Logic_const.pold assumes in
          (* can use old because label normalisation will be called *)
          Logic_const.pimplies (assumes, p)
  in add_prop acc kind labels id p