let page_valid (pr: page_ref) (b: b)
  : bool =
    List.mem_assoc pr b.browser_pages