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 (* TODO use tk in id*)
    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)