                  (let [in (-> prob :expound/in)]
                    (expected-str (-> prob :expound.spec.problem/type) :expound/no-spec-name non-matching-value in [prob] opts))))))
 
-(defmethod expected-str :expound.problem/insufficient-input [_type spec-name form path problems opts]
+(defmethod expected-str :expound.problem/insufficient-input [_type _spec-name _form _path problems opts]
   (let [problem (first problems)]
     (printer/format
      "should have additional elements. The next element%s %s"

   (header-label "Spec failed")
   (expected-str _type spec-name form path problems opts)))

(defmethod expected-str :expound.problem/missing-key [_type spec-name _form path problems opts]
  (explain-missing-keys problems))

(defmethod problem-group-str :expound.problem/missing-key [type spec-name form path problems opts]

   opts
   (expected-str type spec-name form path problems opts)))

(defmethod expected-str :expound.problem/fspec-ret-failure [_type _spec-name _form _path problems opts]
  (s/assert ::singleton problems)
  (let [problem (first problems)]
    (printer/format
