(s/explain-data (s/coll-of any? :count 1) (range)) hangs.
The coll-prob impl has these lines:
(cond
...
(c/and count (not= count (bounded-count count x)))
[{:path path :pred `(= ~count (c/count ~'%)) :val x :via via :in in}]
...)
So for all non-counted collections with number of items larger than count, this branch is never triggered.
Maybe it should use (bounded-count (inc count) x) instead?