theorem Th6:
  B c= A implies for x being UpperBound of A holds x is UpperBound of B
proof
  assume
A1: B c= A;
  let x be UpperBound of A;
  let y;
  assume y in B;
  hence thesis by A1,Def1;
end;
