reserve R for Ring,
  r for Element of R,
  a, b, d1, d2 for Data-Location of R,
  il, i1, i2 for Nat,
  I for Instruction of SCM R,
  s,s1, s2 for State of SCM R,
  T for InsType of the InstructionsF of SCM R,
  k for Nat;

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;
