    :description
    (describe-list "includes" [x])
    :describe-mismatch
-   (fn [xs]
-     (describe-list
-       "includes"
-       (->> xs
-         (filter #(not (#{x} %))))))})
+   standard-describe-mismatch})
 
 (defn run-match
   "runs a matcher, given a value to match against.

   :description
   (describe-list "every?" [(:description m)])
   :describe-mismatch
   (fn [xs]
     (describe-list
       "every?"
       (->> xs
         (filter #(not ((:match m) %)))
         (map #((:describe-mismatch m) %)))))})

(defn has-count
  "passes if the sequence received has the given count

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

(defn every?
  [m]
