let add_spec_annots kf s l_post spec (b_acc, (p_acc, e_acc)) =
let kind = WpStrategy.Aboth false in
let b_acc = WpStrategy.add_prop_stmt_spec_pre b_acc kind kf s spec in
let add_from acc (bhv, from, p) =
let id =
WpPropId.mk_bhv_from_id kf (Kstmt s) bhv from
in
let labels = NormAtLabels.labels_stmt_post s l_post in
WpStrategy.add_prop acc WpStrategy.Ahyp labels id p
in
let p_froms = post_of_spec_assigns kf (Kstmt s) spec Normal in
let p_acc = List.fold_left add_from p_acc p_froms in
let e_froms = post_of_spec_assigns kf (Kstmt s) spec Exits in
let e_acc = List.fold_left add_from e_acc e_froms in
let a_acc = add_stmt_spec_assigns_hyp (p_acc, e_acc) kf s l_post spec in
(b_acc, a_acc)