src/FOL/simpdata.ML
changeset 32155 e2bf2f73b0c8
parent 32149 ef59550a55d3
child 32177 bc02c5bfcb5b
--- a/src/FOL/simpdata.ML	Thu Jul 23 22:20:37 2009 +0200
+++ b/src/FOL/simpdata.ML	Thu Jul 23 23:12:21 2009 +0200
@@ -130,7 +130,7 @@
 
 (*No simprules, but basic infastructure for simplification*)
 val FOL_basic_ss =
-  Simplifier.theory_context (the_context ()) empty_ss
+  Simplifier.theory_context @{theory} empty_ss
   setsubgoaler asm_simp_tac
   setSSolver (mk_solver "FOL safe" safe_solver)
   setSolver (mk_solver "FOL unsafe" unsafe_solver)