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. *)