let act_assoc_valid (ar: act_ref) (b: b)
  : act =
      begin try List.assoc ar b.browser_environments with
      | Not_found -> assert false
      end