:: deftheorem Def5 defines sort_d RFINSEQ2:def 5 :
for f being real-valued FinSequence
for b2 being non-increasing FinSequence of REAL holds
( b2 = sort_d f iff f,b2 are_fiberwise_equipotent );