src/HOL/Tools/ATP/atp_waldmeister.ML
changeset 59582 0fbed69ff081
parent 59469 fb393ecde29d
child 59970 e9f73d87d904
--- a/src/HOL/Tools/ATP/atp_waldmeister.ML	Tue Mar 03 19:08:04 2015 +0100
+++ b/src/HOL/Tools/ATP/atp_waldmeister.ML	Wed Mar 04 19:53:18 2015 +0100
@@ -516,7 +516,7 @@
       if helper_lemmas_needed then
         [(helpersN,
           @{thms waldmeister_fol}
-          |> map (fn th => (("", (Global, General)), preproc (prop_of th)))
+          |> map (fn th => (("", (Global, General)), preproc (Thm.prop_of th)))
           |> map (fn ((s, _) ,t) => mk_formula helper_prefix s Axiom (eq_trm_to_atp thy t)))]
       else
         []