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)