
theorem Th3:
  for I being MacroInstruction of SCM+FSA, a being Int-Location
  holds card while=0(a,I) = card I + 5
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) + 4 by Th1
         .= card I + 1 + 4 by COMPOS_2:11
         .= card I + 5;
end;
