
theorem
  for I being MacroInstruction of SCM+FSA, a being Int-Location holds card
  while<0(a,I) = card I + 6
proof
  let I be MacroInstruction of SCM+FSA, a be Int-Location;
  thus card while<0(a,I) = card if<0(a,I ';' goto 0) by FUNCT_7:30
       .= card(I ';' goto 0) + 5 by Th19
       .= card I +1+5 by COMPOS_2:11
       .= card I + 6;
end;
