     (if (and
          (not (empty? prefix))
          (some? prefix)
-         (if (= :expound.problem/alt-group (:expound.spec.problem/type grp1))
+         (if (= :expound.problem-group/many-values (:expound.spec.problem/type grp1))
            true
            (not= prefix xs))
-         (if (= :expound.problem/alt-group (:expound.spec.problem/type grp2))
+         (if (= :expound.problem-group/many-values (:expound.spec.problem/type grp2))
            true
            (not= prefix ys)))
       grp1
       nil)))
 
-(defn ^:private alt-group [grp1 grp2]
-  {:expound.spec.problem/type :expound.problem/alt-group
+(defn ^:private problem-group [grp1 grp2]
+  {:expound.spec.problem/type :expound.problem-group/many-values
    :path-prefix               (lcs1 (:path-prefix grp1)
                                     (:path-prefix grp2))
    :problems                  (into
-                               (if (= :expound.problem/alt-group (:expound.spec.problem/type grp1))
+                               (if (= :expound.problem-group/many-values (:expound.spec.problem/type grp1))
                                  (:problems grp1)
                                  [grp1])
 
-                               (if (= :expound.problem/alt-group (:expound.spec.problem/type grp2))
+                               (if (= :expound.problem-group/many-values (:expound.spec.problem/type grp2))
                                  (:problems grp2)
                                  [grp2]))})
 

            (if-let [old-group (some #(alternation % group) grps)]
              (-> grps
                  (remove-vec old-group)
                  (conj (alt-group
                         old-group
                         group)))
              (conj grps group)))

  (walk/postwalk
   (fn [form]
     (if (and (map? form)
              (contains? #{:expound.problem-group/many-values
                           :expound.problem-group/one-value} (:expound.spec.problem/type form))
              (= 1 (count (:problems form))))
       (first (:problems form))
       form))
