reserve x for set,
  i for Instruction of SCM+FSA,
  a,b for Int-Location,
  f for FinSeq-Location,
  l, l1 for Nat,
  s,s1,s2 for State of SCM+FSA,
  P,P1,P2 for Instruction-Sequence of SCM+FSA;

theorem Th7:
  for i being keeping_0 sequential Instruction of SCM+FSA, j being
sequential Instruction of SCM+FSA holds IExec(i ";" j,P,s).a
 = Exec(j, Exec(i,Initialized s)).a
proof
  let i be keeping_0 sequential Instruction of SCM+FSA,
      j be sequential Instruction of SCM+FSA;
  set Mi = Macro i;
  thus IExec(i ";" j,P,s).a = IExec(Mi ";" j,P, s).a
    .= Exec(j,IExec(Mi,P,s)).a by Th5
    .= Exec(j, Exec(i, Initialized s)).a by Th4;
end;
