let get_loop_invariant asked_bh s =
let add_ind acc annot = match annot with
| Before
( User ({ annot_content = AInvariant(lbh, normal_inv, inv)} as ca)
| AI (_, ({annot_content = AInvariant(lbh, normal_inv, inv)} as ca))) ->
(* obsolete ? *)
if normal_inv then
if test_behav asked_bh lbh then add_inv s ca.annot_id inv acc
else acc
else
(Wp_parameters.warning "ignored assert_inv : %a"
!Ast_printer.d_code_annotation ca;
acc)
| _ -> acc
in List.fold_left add_ind [] (Annotations.get s)