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;
