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)