theorem
  for s being State of SCMPDS holds dom s = {IC SCMPDS} \/ SCM-Data-Loc
 proof
  let s be State of SCMPDS;
   dom s = the carrier of SCMPDS by PARTFUN1:def 2;
   hence thesis by SCMPDS_2:84,STRUCT_0:4;
 end;
