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)