let quantify_at_label frame lab p = try let x_l,a_l = List.assoc lab frame.states in D.forall [x_l;a_l] p with Not_found -> p