   ((case (:autoconstructive-diversification-test argmap)
      :gecco2016 gecco2016-diversifying?
      :three-gens-diff-diffs three-gens-diff-diffs-diversifying?
+     :three-gens-same-inputs-diff-diffs three-gens-same-inputs-diff-diffs-diversifying?
      :three-gens-some-diff-diffs three-gens-some-diff-diffs-diversifying?
      :size-and-instruction size-and-instruction-diversifying?
      :three-gens-size-and-instruction three-gens-size-and-instruction-diversifying?

    (and (> (reduce min diffs) 0)
         (apply distinct? diffs))))

(defn three-gens-some-diff-diffs-diversifying?
  "Returns true iff genome g passes the diversification test."
  [g argmap]

        :is-random-replacement
        (if use-child false true)))))


