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) c= X holds
  x in LAp X;
