let add_prop_fct_pre acc kind kf bhv ~assumes pre =
let id = WpPropId.mk_pre_id kf Kglobal bhv pre in
let labels = NormAtLabels.labels_fct_pre in
let p = Logic_const.pred_of_id_pred pre in
let p = match assumes with None -> p
| Some assumes -> Logic_const.pimplies (assumes, p)
in
let p = Logic_const.pat (p, Logic_const.pre_label) in
(* TODO: why this at ??? [2011-07-08-Anne] *)
add_prop acc kind labels id p