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

theorem Th3:
  for s being State of SCM+FSA, i being keeping_0 sequential
  Instruction of SCM+FSA,
   J being parahalting really-closed Program of SCM+FSA, a being
  Int-Location
   holds IExec(i ";" J,P,s).a = IExec(J,P,Exec(i,Initialized s)).a
proof
  let s be State of SCM+FSA;
  let i be keeping_0 sequential Instruction of SCM+FSA;
  let J be parahalting really-closed Program of SCM+FSA;
  let a be Int-Location;
A1:   IExec(Macro i,P,s) =  Exec(i,Initialized s) by SCMFSA6C:5;
  thus IExec(i ";" J,P,s).a
     = IExec(J,P,IExec(Macro i,P,s)).a by SCMFSA6C:1
    .= ( IExec(J,P,IExec(Macro i,P,s))).a
    .= ( IExec(J,P,Exec(i,Initialized s))).a by A1
    .= IExec(J,P,Exec(i,Initialized s)).a;
end;
