tuned;
authorwenzelm
Sun, 16 Jul 2000 20:56:32 +0200
changeset 9367 df7a4824111e
parent 9366 a83f3abbfc93
child 9368 415587dff134
tuned;
src/HOL/Integ/IntDiv.ML
--- 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();