 reserve x for Real,
    p,k,l,m,n,s,h,i,j,k1,t,t1 for Nat,
    X for Subset of REAL;
reserve x for object, X,Y,Z for set;

theorem
  card Segm n c= card Segm m iff n <= m by Th27;
