let seq be ExtREAL_sequence; :: thesis: superior_realsequence seq is non-increasing

now

let n, m be Element of NAT ; :: thesis: ( m <= n implies (superior_realsequence seq) . n <= (superior_realsequence seq) . m )
consider Y being non empty Subset of ExtREAL such that
A1: Y = { (seq . k) where k is Element of NAT : m <= k } and
A2: (superior_realsequence seq) . m = sup Y by Def7;
consider Z being non empty Subset of ExtREAL such that
A3: Z = { (seq . k) where k is Element of NAT : n <= k } and
A4: (superior_realsequence seq) . n = sup Z by Def7;
assume A5: m <= n ; :: thesis: (superior_realsequence seq) . n <= (superior_realsequence seq) . m
Z c= Y

proof

let z be set ; :: according to TARSKI:def 3 :: thesis: ( not z in Z or z in Y )
assume z in Z ; :: thesis: z in Y
then consider k being Element of NAT such that
A6: z = seq . k and
A7: n <= k by A3;
m <= k by A5, A7, XXREAL_0:2;
hence z in Y by A1, A6; :: thesis: verum

end;

hence (superior_realsequence seq) . n <= (superior_realsequence seq) . m by A2, A4, XXREAL_2:59; :: thesis: verum

end;

hence superior_realsequence seq is non-increasing by Th7; :: thesis: verum