theorem
  seq is non-increasing implies superior_realsequence seq = seq
proof
  assume seq is non-increasing;
  then for n being Element of NAT holds
   (superior_realsequence seq).n = seq.n by Lm3;
  hence thesis by FUNCT_2:63;
end;
