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,
   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 InitHalting really-closed Program of SCM+FSA;
  let a be Int-Location;
  thus IExec(i ";" J,p,s).a
     = IExec(J,p,IExec(Macro i,p,s)).a by Th18
    .= IExec(J,p,Exec(i,Initialized s)).a by SCMFSA6C:5;
end;
