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