reserve s for State of SCM+FSA,
  I for MacroInstruction of SCM+FSA,
  a for read-write Int-Location;
reserve i,j,k,n for Nat;
reserve P,P1,P2,Q for Instruction-Sequence of SCM+FSA;

theorem
  for a being Int-Location, I being really-closed MacroInstruction of SCM+FSA,
      s being State of SCM+FSA st
  I is_halting_onInit s,P &
 IC Comput(P +* while>0(a,I), Initialized s,1 + LifeSpan(P +* I,Initialized s))
  = IC Comput(P +* I, Initialized s, LifeSpan(P +* I,Initialized s)) + 3
   holds CurInstr(P +* while>0(a,I),
    Comput(P +* while>0(a,I),Initialized s,1 + LifeSpan(P +* I,Initialized s)))
  = goto 0
proof
  let a be Int-Location,I be really-closed MacroInstruction of SCM+FSA;
  let s be State of SCM+FSA;
  set s0=Initialized s, sw = Initialized s,
      Pw = P +* while>0(a,I), PI = P +* I,
      s0I= Initialize s0;
A1: sw=s0I by MEMSTR_0:44;
  assume I is_halting_onInit s,P;
  then
A2: I is_halting_on s0,P by SCM_HALT:31;
  assume
  IC Comput(Pw, sw,1 + LifeSpan(PI,sw))
   = IC Comput(PI,sw,LifeSpan(PI,sw)) + 3;
  hence thesis by A2,A1,SCMFSA_9:40;
end;
