theorem Th31: :: RINFSUP1:31

for seq being Real_Sequence st seq is bounded_above holds
for n being Nat
for R being Subset of REAL st R = { (seq . k) where k is Nat : n <= k } holds
R is bounded_above