Coq: selection sort, dcpo's.