     (ct/report-failure property result trial-number failing-args)
 
     {:result result
+     :seed seed
      :failing-size size
      :num-tests (inc trial-number)
      :fail (vec failing-args)

          (cond
            (instance? Throwable result) (failure
                                           property result-map-rose
                                           so-far size)
            result (do
                     (ct/report-trial property so-far num-tests)
                     (recur (inc so-far) rest-size-seq))
            :default (failure property result-map-rose so-far size)))))))

(defn- smallest-shrink
  [total-nodes-visited depth smallest]

                  (recur children (gen/rose-root head) (inc total-nodes-visited) (inc depth)))))))))))

(defn- failure
  [property failing-rose-tree trial-number size seed]
  (let [root (gen/rose-root failing-rose-tree)
        result (:result root)
        failing-args (:args root)]
