
theorem
  for a being Int-Location, I being MacroInstruction of SCM+FSA holds
  while>0(a,I). (card I + 2) = goto  0
proof
  set J = Stop SCM+FSA;
  let a be Int-Location;
  let I be MacroInstruction of SCM+FSA;
  set I1= I ';' goto  0;
  set Lc4= card I + 2;
  Lc4 in dom while>0(a,I) & dom while>0(a,I) = dom if>0(a,I1)
  by Th8,FUNCT_7:30;
  hence while>0(a,I).Lc4 = goto 0 by FUNCT_7:31;
end;
