src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML
changeset 55948 bb21b380f65d
parent 55452 29ec8680e61f
child 56081 72fad75baf7e
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML	Thu Mar 06 10:11:38 2014 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML	Thu Mar 06 10:12:47 2014 +0100
@@ -144,7 +144,7 @@
         val do_preplay = preplay_timeout <> Time.zeroTime
         val compress_isar = if isar_proofs = NONE andalso do_preplay then 1000.0 else compress_isar
 
-        val is_fixed = Variable.is_declared ctxt orf can Name.dest_skolem
+        val is_fixed = Variable.is_declared ctxt orf Name.is_skolem
         fun skolems_of t = Term.add_frees t [] |> filter_out (is_fixed o fst) |> rev
 
         fun get_role keep_role ((num, _), role, t, rule, _) =