         {:keys [type spec-name val in]} (problem-parts problem opts)]
     (expected-str type spec-name val in problems opts)))
 
-;; TODO - rename to :problem/value-group
-(defmethod problem-group-str :value-group [_type spec-name val path problems opts]
+(defmethod problem-group-str :problem/value-group [_type spec-name val path problems opts]
   (let [problem (first problems)
         subproblems (:problems problem)
         {:keys [form in]} (problem-parts (first subproblems) opts)

                       (str s "\n\n"))))))
         (ansi/color (section-label) :footer)
         (ansi/color "Detected" :footer)
         (ansi/color (count problems1) :footer)
         (ansi/color (if (= 1 (count problems1)) "error" "errors") :footer)))))))

(defn ^:private minimal-fspec [form]
  (let [fspec-sp (s/cat

       "")
     (let [failure nil
           non-matching-value [:expound/value-that-should-never-match]
           problems (groups (annotate-1*
                             failure
                             (map #(dissoc % :reason)
                                  (map
                                   #(dissoc % :expound.spec.problem/type)
                                   problems))))]
       (apply str (for [prob problems]
                    (let [in (-> prob :expound/in)]
                      (expected-str (-> prob :expound.spec.problem/type) :expound/no-spec-name non-matching-value in [prob] opts))))))))

