theorem Th35: :: RINFSUP1:35

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