Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Tools/ATP/atp_problem_generate.ML
changeset 82345 d935fa3b90f2
parent 80634 a90ab1ea6458 
--- a/src/HOL/Tools/ATP/atp_problem_generate.ML	Tue Mar 25 15:14:08 2025 +0100
+++ b/src/HOL/Tools/ATP/atp_problem_generate.ML	Tue Mar 25 15:24:30 2025 +0100
@@ -1935,8 +1935,7 @@
            map_filter (try (specialize_helper t)) types
          else
            [t])
-        |> tag_list 1
-        |> map (fn (k, t) => ((dub needs_sound j k, (Global, status)), t))
+        |> map_index (fn (k, t) => ((dub needs_sound j (k + 1), (Global, status)), t))
       fun make_facts type_enc = map_filter (make_fact ctxt format type_enc false)
       val sound = is_type_enc_sound type_enc
       val could_specialize = could_specialize_helpers type_enc
isabelle