let seq1, seq2 be Real_Sequence; :: thesis: ( seq1 is bounded_above & seq2 is bounded_above implies sup (seq1 + seq2) <= (sup seq1) + (sup seq2) )
assume A1: ( seq1 is bounded_above & seq2 is bounded_above ) ; :: thesis: sup (seq1 + seq2) <= (sup seq1) + (sup seq2)
for n being Element of NAT holds (seq1 + seq2) . n <= (sup seq1) + (sup seq2)

proof

let n be Element of NAT ; :: thesis: (seq1 + seq2) . n <= (sup seq1) + (sup seq2)
A2: (seq1 + seq2) . n = (seq1 . n) + (seq2 . n) by SEQ_1:11;
( seq1 . n <= sup seq1 & seq2 . n <= sup seq2 ) by A1, Th7;
hence (seq1 + seq2) . n <= (sup seq1) + (sup seq2) by A2, XREAL_1:9; :: thesis: verum

end;

hence sup (seq1 + seq2) <= (sup seq1) + (sup seq2) by Th9; :: thesis: verum