changeset 1113 | 9f6c606d5b59 |
parent 1112 | c7069b09730b |
child 1120 | 42b623872781 |
--- a/Quot/quotient_tacs.ML Wed Feb 10 10:55:14 2010 +0100 +++ b/Quot/quotient_tacs.ML Wed Feb 10 11:09:30 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 [])