theorem Th7:
  X is unbounded implies X is non empty
proof
  set B1 = the Element of A;
  assume X is unbounded;
  then ex C st C in X & B1 c= C by Th6;
  hence thesis;
end;
