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)