theorem Th15:
  Int([#] TS) = [#] TS
proof
  Int ([#] TS) = ({} TS)` by PRE_TOPC:22;
  hence thesis;
end;
