theorem Th8:
  Data-Locations S c= dom s
proof
  dom s = the carrier of S by PARTFUN1:def 2;
  hence thesis;
end;
