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

theorem
  UAp [#]A = [#]A
proof
  LAp [#]A c= UAp [#]A by Th14;
  then [#]A c= UAp [#]A by Th20;
  hence thesis;
end;
