theorem Th16:
  for P being Subset of T holds P is finite implies P is bounded
proof
  let P be Subset of T;
  defpred P[set] means ex X being Subset of T st X = $1 & X is bounded;
  {}T is bounded;
  then
A1: P[{}];
A2: for x,B being set st x in P & B c= P & P[B] holds P[B \/ {x}]
  proof
    let x,B be set such that
A3: x in P and
    B c= P and
A4: P[B];
    reconsider x as Element of T by A3;
    reconsider W = {x} as Subset of T;
    consider X being Subset of T such that
A5: X = B & X is bounded by A4;
A6: W is bounded by Th15;
    ex Y being Subset of T st Y = B \/ {x} & Y is bounded
    proof
      take X \/ W;
      thus thesis by A5,A6,Th13;
    end;
    hence thesis;
  end;
  assume
A7: P is finite;
  P[P] from FINSET_1:sch 2(A7,A1,A2);
  hence thesis;
end;
