 reserve i,j,k,k0,m,n,N for Nat;
 reserve x,y for Real;
 reserve p for Prime;
 reserve s for Real_Sequence;

theorem LePrimeSelf:
  n <= primenumber n
  proof
    SetPrimenumber primenumber n c= Seg primenumber n by NEWTON:73; then
    card SetPrimenumber primenumber n <= card Seg primenumber n
      by CARD_1:11,FIELD_5:3;
    hence thesis by NEWTON:def 8;
  end;
