    :description
    (describe-list "all-of" (map :description ms))
    :describe-mismatch
-   (fn [a]
-     (describe-list
-       "all-of"
-       (->> ms
-         (filter #(not ((:match %) a)))
-         (map #((:describe-mismatch %) a)))))})
+   standard-describe-mismatch})
 
 (defn any-of
   "passes if any of the given matchers pass:

  [a]
  {:match (fn [b] (core/= a b))
   :description (describe-list "=" [a])
   :describe-mismatch pr-str})

(def empty?
  "matches if the collection passed is empty

   :description
   (describe-list "some" [(:description m)])
   :describe-mismatch
   standard-describe-mismatch})

(defn every?
  [m]
