let get_stmt_hyp kf asked_bhv s l_post =
  let do_annot a acc =
    let ca = Annotations.get_code_annotation a in
      match ca.annot_content with
        | AStmtSpec (b_list, spec) when annot_for_asked_bhv b_list asked_bhv ->
            (try add_spec_annots kf s l_post spec acc
             with NoFromForBhv -> (* TODO: not sure this is correct!*) acc)
        | _ -> (* ignore other annotations *) acc
  in
  let before_acc, after_acc, exits_acc =
    WpStrategy.empty_acc, WpStrategy.empty_acc, WpStrategy.empty_acc in
  let acc = before_acc, (after_acc, exits_acc) in
    Annotations.single_fold_stmt do_annot s acc