let win_assoc_valid (wr: win_ref) (b: b)
  : win =
      begin try List.assoc wr b.browser_windows with
      | Not_found -> assert false
      end