let quantify_at_vars env label p =
    try
      let lsubst = MT.get_at_vars ~remove:false env label in
      let quantif p (v, _e) = MT.pred_forall ~fresh:false v p in
        List.fold_left quantif p lsubst
    with Not_found -> p
      | Types.Unsupported t ->
          let msg = "unsupported type for \\at expression: "^t in
            raise (Calculus.InvalidModel msg)