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

theorem Th4:
  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, f being
  FinSeq-Location holds IExec(i ";" J,P,s).f
   = IExec(J,P,Exec(i,Initialized s)).f
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 f be FinSeq-Location;
A1:   IExec(Macro i,P,s) =  Exec(i,Initialized s) by SCMFSA6C:5;
  thus IExec(i ";" J,P,s).f
     = IExec(J,P,IExec(Macro i,P,s)).f by SCMFSA6C:2
    .= ( IExec(J,P,IExec(Macro i,P,s))).f
    .= ( IExec(J,P,Exec(i,Initialized s))).f by A1
    .= IExec(J,P,Exec(i,Initialized s)).f;
end;
