theorem Th2:
  for i being Element of SCM-Memory st i in SCM-Data-Loc
   holds ((SCM-VAL G)*SCM-OK).i = the carrier of G
proof
  let i be Element of SCM-Memory;
   i in SCM-Memory;
   then i in dom SCM-OK by PARTFUN1:def 2;
   then
A1: ((SCM-VAL G)*SCM-OK).i = (SCM-VAL G).(SCM-OK.i) by FUNCT_1:13;
  assume i in SCM-Data-Loc;
   then ((SCM-VAL G)*SCM-OK).i = (SCM-VAL G).1 by A1,AMI_2:def 4;
  hence thesis;
end;
