
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 Th6,FUNCT_7:30;
  hence while=0(a,I).Lc4 =goto  0 by FUNCT_7:31;
end;
