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