reserve n,m for Nat;

theorem
  for f being non-decreasing real-valued FinSequence holds sort_a f = f
  proof
    let f be non-decreasing real-valued FinSequence;
    f is FinSequence of REAL by RVSUM_1:145;
    hence thesis by Def6;
