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