reserve n,m for Nat;

theorem
  for f being non-increasing real-valued FinSequence holds sort_d f = f
  proof
    let f be non-increasing real-valued FinSequence;
    f is FinSequence of REAL by RVSUM_1:145;
    hence thesis by Def5;
  end;
