author | wenzelm |
Sun, 16 Jul 2000 20:56:32 +0200 | |
changeset 9367 | df7a4824111e |
parent 9366 | a83f3abbfc93 |
child 9368 | 415587dff134 |
--- a/src/HOL/Integ/IntDiv.ML Sun Jul 16 20:56:14 2000 +0200 +++ b/src/HOL/Integ/IntDiv.ML Sun Jul 16 20:56:32 2000 +0200 @@ -92,7 +92,7 @@ (*Proving posDivAlg's termination condition*) val [tc] = posDivAlg.tcs; -goalw_cterm [] (cterm_of (sign_of thy) (HOLogic.mk_Trueprop tc)); +goalw_cterm [] (cterm_of (sign_of (the_context ())) (HOLogic.mk_Trueprop tc)); by Auto_tac; val lemma = result();