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