src/HOL/Tools/ATP/atp_problem_generate.ML
changeset 60328 9c94e6a30d29
parent 59970 e9f73d87d904
child 60924 610794dff23c
--- a/src/HOL/Tools/ATP/atp_problem_generate.ML	Mon Jun 01 13:32:36 2015 +0200
+++ b/src/HOL/Tools/ATP/atp_problem_generate.ML	Mon Jun 01 13:35:16 2015 +0200
@@ -759,7 +759,7 @@
 fun do_introduce_combinators ctxt Ts t =
   (t |> conceal_bounds Ts
      |> Thm.cterm_of ctxt
-     |> Meson_Clausify.introduce_combinators_in_cterm
+     |> Meson_Clausify.introduce_combinators_in_cterm ctxt
      |> Thm.prop_of |> Logic.dest_equals |> snd
      |> reveal_bounds Ts)
   (* A type variable of sort "{}" will make abstraction fail. *)