reserve I for Element of Segm 8,
  S for non empty 1-sorted,
  t for Element of S,
  x for set,
  k for Element of NAT;
 reserve R for Ring, T for InsType of SCM-Instr R;
reserve R for Ring,
  r for Element of R,
  a, b, c, d1, d2 for Data-Location of R,
  i1 for Nat;
reserve s for State of SCM R;

theorem
 for R being Ring
  holds the_Values_of SCM R = (SCM-VAL R)*SCM-OK by Lm1;
