A1: now

let t be real number ; :: thesis: ( ( for s being real number st s in X holds
t >= s ) implies t >= sup X )
assume for s being real number st s in X holds
t >= s ; :: thesis: t >= sup X
then for x being ext-real number st x in X holds
x <= t ;
then t is UpperBound of X by XXREAL_2:def 1;
hence t >= sup X by XXREAL_2:def 3; :: thesis: verum

end;

for s being real number st s in X holds
s <= sup X by XXREAL_2:4;
hence upper_bound X = sup X by A1, Lm2; :: thesis: verum