reserve m for Nat;
reserve P,PP,P1,P2 for Instruction-Sequence of SCM+FSA;

theorem Th53:
  for s being State of SCM+FSA,
      I being parahalting really-closed Program of
  SCM+FSA, a being Int-Location st I does not destroy a
   holds IExec(I,P,s).a = (Initialized s).a
proof
  let s be State of SCM+FSA;
  set D = Data-Locations SCM+FSA;
  let I be parahalting really-closed Program of SCM+FSA;
  let a be Int-Location;
A1: DataPart Initialized s =
   DataPart(Initialize Initialized s) by MEMSTR_0:79;
  assume I does not destroy a;
  hence
  IExec(I,P,s).a = Comput(P +* I, (Initialize Initialized s),
  0).a by Th52
    .= (Initialize Initialized s).a
    .= (Initialized s).a by A1,SCMFSA_M:2;
end;
