reserve x for Int_position,
  n,p0 for Nat;

theorem Th4: ::see SCMPDS_8:2
  for s1,s2 being State of SCMPDS st (for a being Int_position
  holds s1.a = s2.a) holds Initialize (s1)=Initialize (s2)
proof
  let s1,s2 be State of SCMPDS;
  assume
  for a being Int_position holds s1.a = s2.a;
  then DataPart s1 = DataPart s2 by SCMPDS_4:8;
  hence thesis by MEMSTR_0:80;
end;
