src/HOL/ex/atp_export.ML
changeset 43276 91bf67e0e755
parent 43259 30c141dc22d6
child 43305 8b59c1d87fd6
--- a/src/HOL/ex/atp_export.ML	Wed Jun 08 14:44:54 2011 +0200
+++ b/src/HOL/ex/atp_export.ML	Wed Jun 08 15:25:44 2011 +0200
@@ -22,7 +22,7 @@
 val fact_name_of = prefix ATP_Translate.fact_prefix o ascii_of
 
 fun facts_of thy =
-  Sledgehammer_Filter.all_facts (ProofContext.init_global thy) Symtab.empty
+  Sledgehammer_Filter.all_facts (Proof_Context.init_global thy) Symtab.empty
                                 true (K true) [] []
 
 fun fold_body_thms f =
@@ -44,7 +44,7 @@
   in names end
 
 fun interesting_const_names ctxt =
-  let val thy = ProofContext.theory_of ctxt in
+  let val thy = Proof_Context.theory_of ctxt in
     Sledgehammer_Filter.const_names_in_fact thy
         (Sledgehammer_Provers.is_built_in_const_for_prover ctxt ATP_Systems.eN)
   end