reserve x,a for Int_position,
  s for State of SCMPDS;
reserve P,Q for Instruction-Sequence of SCMPDS;

theorem Th16:
  for a be Int_position,i be Integer,m be Nat,I be
  Program of SCMPDS holds m < card I+2 iff  m in dom while>0(a,i,I)
proof
  let a be Int_position,i be Integer,m be Nat, I be Program of
  SCMPDS;
  card while>0(a,i,I)=card I + 2 by Th15;
  hence thesis by AFINSQ_1:66;
end;
