let add_stmt_invariant_annot config v s ca b_list inv ((b_acc, a_acc) as acc) =
let add_to_acc k =
let b_acc = add_prop_inv_fixpoint config b_acc k s ca inv in
(b_acc, a_acc)
in
let acc =
match is_annot_for_config config v s b_list with
| TBRok | TBRpart -> add_to_acc (WpStrategy.AcutB true)
| TBRhyp -> add_to_acc (WpStrategy.AcutB false)
| TBRno -> acc
in acc