changeset 1115 | f24e9d21a948 |
parent 1113 | 9f6c606d5b59 |
child 1120 | 42b623872781 |
--- a/Quot/quotient_tacs.ML Wed Feb 10 11:10:44 2010 +0100 +++ b/Quot/quotient_tacs.ML Wed Feb 10 11:11:06 2010 +0100 @@ -29,7 +29,7 @@ (* Since HOL_basic_ss is too "big" for us, we *) (* need to set up our own minimal simpset. *) -fun mk_minimal_ss ctxt = +fun mk_minimal_ss ctxt = Simplifier.context ctxt empty_ss setsubgoaler asm_simp_tac setmksimps (mksimps [])