theorem Th46: :: SEQ_4:46

for X being non empty real-membered set
for r being Real st ( for s being Real st s in X holds
s <= r ) & ( for t being Real st ( for s being Real st s in X holds
s <= t ) holds
r <= t ) holds
r = upper_bound X by Lm2;