Wrong equality with a custom comparator

Clojure 1.10.0, Java 11.0.8
master branch

(let [cmp (fn [a b] (- (hash a) (hash b)))]
  (= (pss/sorted-set-by cmp 1 -2 0 5)
     (pss/sorted-set-by cmp 1 -2 0 5)))
;; false

(let [cmp (fn [a b] (- (hash a) (hash b)))]
  (= (sorted-set-by cmp 1 -2 0 5)
     (sorted-set-by cmp 1 -2 0 5)))
;; true     

You can find other wrong data by using test.check:

(ns me.tonsky.persistent-sorted-set.generative
  (:require
   [clojure.test.check :as tc]
   [clojure.test.check.generators :as gen]
   [clojure.test.check.properties :as prop]
   [clojure.test.check.clojure-test :refer [defspec]]
   [me.tonsky.persistent-sorted-set :as pss]))

(defspec hash-cmp
  1000
  (let [cmp     (fn [a b] (- (hash a) (hash b)))]
    (prop/for-all [initial (gen/not-empty (gen/list gen/small-integer))]
                  (let [a (pss/from-sequential cmp initial)
                        b (pss/from-sequential cmp initial)]
                    (comment
                      (println)
                      (prn a)
                      (prn b)
                      (prn (= a b)))
                    
                    (= a b)))))

For strings:

(let [cmp (fn [a b] (- (hash a) (hash b)))]
  (= (pss/sorted-set-by cmp "" "9" "T10" "0")
     (pss/sorted-set-by cmp "" "9" "T10" "0")))
;; false

(let [cmp (fn [a b] (- (hash a) (hash b)))]
  (= (sorted-set-by cmp "" "9" "T10" "0")
     (sorted-set-by cmp "" "9" "T10" "0")))
;; true

Start by reproducing the equality failures with pss/sorted-set-by and pss/from-sequential, then compare their behavior with Clojure's sorted-set-by. Use the supplied test.check hash-cmp property to identify additional failing data; done means equal sets built with the same custom comparator compare equal and the generated cases pass.