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