reserve p for preProgram of SCM+FSA,
  ic for Instruction of SCM+FSA,
  i,j,k for Nat,
  fa,f for FinSeq-Location,
  a,b,da,db for Int-Location,
  la,lb for Nat;
reserve p1,p2,q for Instruction-Sequence of SCM+FSA;

theorem Th5:
  for p being Instruction-Sequence of SCM+FSA
  for s be State of SCM+FSA, f be FinSeq-Location, a be read-write Int-Location
  holds IExec(Stop SCM+FSA,p,s).a =s.a &
     IExec(Stop SCM+FSA,p,s).f =s.f
proof
  let p being Instruction-Sequence of SCM+FSA;
  let s be State of SCM+FSA,f be FinSeq-Location,a be read-write Int-Location;
A1: Initialized s
      = s +* (((intloc 0) .--> 1) +* Start-At(0,SCM+FSA))
      .= Initialize(s +* ((intloc 0) .--> 1)) by FUNCT_4:14;
A2: IExec(Stop SCM+FSA,p,s)
    = Initialize (s +* ((intloc 0) .--> 1)) by A1,SCMFSA8C:14
    .=Initialized s by A1;
  hence IExec(Stop SCM+FSA,p,s).a =s.a by SCMFSA_M:37;
  thus thesis by A2,SCMFSA_M:37;
end;
