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