# HG changeset patch
# User desharna
# Date 1632126179 -7200
# Node ID 102b55e81aca9b7ed33a9b23d8a50d598d18bf98
# Parent  714e87ce6e9d30094b17782569f9b90bb0337a88
proper firstorderization in Sledgehammer

diff -r 714e87ce6e9d -r 102b55e81aca src/HOL/Tools/ATP/atp_problem_generate.ML
--- a/src/HOL/Tools/ATP/atp_problem_generate.ML	Sun Sep 19 21:55:11 2021 +0200
+++ b/src/HOL/Tools/ATP/atp_problem_generate.ML	Mon Sep 20 10:22:59 2021 +0200
@@ -1738,6 +1738,8 @@
           in
             args |> chop ary |>> list_app head |> list_app_ops
           end
+        | IAbs ((name, T), tm) =>
+          list_app_ops (IAbs ((name, T), introduce_app_ops tm), args)
         | _ => list_app_ops (head, args))
       end
     fun introduce_predicators tm =