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