"Down" for sorting

This one is a rip-off from http://hackage.haskell.org/packages/archive/base/latest/doc/html/Data-Ord.html#t:Down. Instead of reexporting I included the source because it only appears there in a very recent version.