reserve A for Tolerance_Space,
  X, Y for Subset of A;

theorem
  for x being Element of A st Class (the InternalRel of A, x) meets X
  holds x in UAp X;
