theorem Th9:
  dom DataPart s = Data-Locations S
proof
  Data-Locations S c= dom s by Th8;
  hence thesis by RELAT_1:62;
end;
