disable new polymorphic code for now, until remaining issues in "equality_inf" are resolved
authorblanchet
Sat, 12 Jun 2010 11:12:31 +0200
changeset 37403 7e3d7af86215
parent 37402 12cb33916e37
child 37404 e6b1a0693f3f
disable new polymorphic code for now, until remaining issues in "equality_inf" are resolved
src/HOL/Tools/Sledgehammer/sledgehammer_fact_preprocessor.ML
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_fact_preprocessor.ML	Sat Jun 12 11:11:07 2010 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_fact_preprocessor.ML	Sat Jun 12 11:12:31 2010 +0200
@@ -398,7 +398,12 @@
     let
       val ctxt0 = Variable.global_thm_context th
       val (nnfth, ctxt) = to_nnf th ctxt0
+
+      val inline = false
+(*
+FIXME: Reintroduce code:
       val inline = exists_type (exists_subtype (can dest_TFree)) (prop_of nnfth)
+*)
       val defs = skolem_theorems_of_assume inline s nnfth
       val (cnfs, ctxt) = Meson.make_cnf defs nnfth ctxt
     in