theorem Th46:
  s1 = s +* S implies s1.IC SCM+FSA = S.IC SCM
proof
A1: dom S = SCM-Memory by PARTFUN1:def 2;
  assume s1 = s +* S;
  hence s1.IC SCM+FSA
     = S.IC SCM by A1,Th1,AMI_3:1,FUNCT_4:13;
end;
