reserve i,j,k,n,m,l,s,t for Nat;
reserve a,b for Real;
reserve F for real-valued FinSequence;
reserve z for Complex;
reserve x,y for Complex;
reserve r,s,t for natural Number;
reserve p,q for natural Number;
reserve i0,i,i1,i2,i4 for Integer;
reserve x for set;

theorem Th70:
  SetPrimenumber p c= Seg p
proof
  let x be object;
  assume
A1: x in SetPrimenumber p;
  then reconsider q = x as Element of NAT;
  q is prime by A1,Def7;
  then
A2: 1 <= q by INT_2:def 4;
  q < p by A1,Def7;
  hence thesis by A2;
end;
