
theorem Th5:
  for a being Int-Location, I being MacroInstruction of SCM+FSA, k being Nat
  st k < 5 holds k in dom while=0(a,I)
proof
  let a be Int-Location, I be MacroInstruction of SCM+FSA,k be Nat;
A1: 5 <= card I + 5 by NAT_1:11;
A2: card while=0(a,I) = card I + 5 by Th3;
  assume k < 5;
  then k < card I + 5 by A1,XXREAL_0:2;
  hence thesis by A2,AFINSQ_1:66;
end;
