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