theorem Th1:
  Values a = the carrier of R
proof
  a in Data-Locations SCM & the_Values_of SCM R = (SCM-VAL R)*SCM-OK
   by SCMRING2:1,24;
  hence thesis by AMI_3:27,SCMRING1:4;
end;
