reserve i, j, k for Element of NAT,
  I for Element of Segm 8,
  i1, i2 for Element of NAT,
  d1, d2, d3, d4 for Element of SCM-Data-Loc,
  S for non empty 1-sorted;
reserve G for non empty 1-sorted;

theorem
 for s being SCM-State of S holds dom s = SCM-Memory
 proof let s be SCM-State of S;
   dom s = dom((SCM-VAL S)*SCM-OK) by CARD_3:9;
  hence thesis by Lm1;
 end;
