theorem Th4:
  x in A implies x <= sup A
proof
  sup A is UpperBound of A by Def3;
  hence thesis by Def1;
end;
