let prepare_pre_pred config ki bhv pre p =
  let prop_id = mk_pre_id config.kf ki bhv pre in
  let p, labels = match ki with
    | Kglobal -> Logic_const.pat (p, Logic_const.pre_label),
                 NormAtLabels.labels_fct_pre
    | Kstmt s -> p, NormAtLabels.labels_stmt_pre s
  in (labels, prop_id, p)