theorem
  x is Data-Location of R iff x in Data-Locations SCM R
 proof
   Data-Locations SCM R = Data-Locations SCM by Th22;
  hence thesis by Th1;
 end;
