theorem Th49: :: RINFSUP1:49
for n being Nat
for seq being Real_Sequence st seq is bounded_above holds
(superior_realsequence seq) . (n + 1) <= (superior_realsequence seq) . n