
theorem Th8:
  for a being Int-Location, I being MacroInstruction of SCM+FSA, k being Nat
   st k < 5 holds card I +k in dom while>0(a,I)
proof
  let a be Int-Location, I be MacroInstruction of SCM+FSA,k be Nat;
  assume
A1: k < 5;
  card while>0(a,I) = card I + 5 by Th4;
  hence thesis by A1,AFINSQ_1:66,XREAL_1:6;
end;
