let add_prop_stmt_pre acc kind kf s bhv ~assumes pre =
let id = WpPropId.mk_pre_id kf (Kstmt s) bhv pre in
let labels = NormAtLabels.labels_stmt_pre s 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 add_prop acc kind labels id p