theorem Th4:
  (Initialize s).a = s.a
proof
  not a in dom SA0 by SCMPDS_4:18;
  hence (Initialize s).a =s.a by FUNCT_4:11;
end;
