let annot_for_asked_bhv b_list asked_bhv =
  b_list = [] || List.exists (fun x -> x = asked_bhv) b_list