for seq being Real_Sequence st seq is bounded holds
for n being Nat
for R being Subset of REAL st R = { (seq . k) where k is Nat : n <= k } holds
R is real-bounded by Th31, Th32;