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)