let prepare_stmt_spec_post config bhv s l_post assumes tkind post =
let p = Logic_const.pred_of_id_pred post in
let assumes = Logic_const.pold assumes in
(* can use old because label normalisation will be called *)
let p = Logic_const.pimplies (assumes, p) in
let prop_id = mk_stmt_post_id config.kf s bhv tkind post in
let labels = NormAtLabels.labels_stmt_post s l_post in
(labels, prop_id, p)