theorem
  for s being State of SCM+FSA, i being keeping_0 sequential
  Instruction of SCM+FSA, J being InitHalting 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 InitHalting really-closed Program of SCM+FSA;
  let f be FinSeq-Location;
  thus IExec(i ";" J,p,s).f = IExec(J,p,IExec(Macro i,p,s)).f by Th19
    .= IExec(J,p,Exec(i,Initialized s)).f by SCMFSA6C:5;
end;
