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 Th14:
  for s be State of SCM+FSA, I be MacroInstruction of SCM+FSA, f be
FinSeq-Location,a be read-write Int-Location st s.a <= 0
 holds IExec(while>0(a,I),P,s).f=s.f
proof
  let s be State of SCM+FSA,I be MacroInstruction of SCM+FSA,
      f be FinSeq-Location,a be read-write Int-Location;
  set D = Data-Locations SCM+FSA;
  assume
A1: s.a <= 0;
  f in FinSeq-Locations by SCMFSA_2:def 5;
  then
A2: f in D by SCMFSA_2:100,XBOOLE_0:def 3;
  hence IExec(while>0(a,I),P,s).f =(DataPart IExec(while>0(a,I),P,s)).f by
FUNCT_1:49
    .= (DataPart Initialized s).f by A1,Th13
    .= (Initialized s).f by A2,FUNCT_1:49
    .= s.f by SCMFSA_M:37;
end;
