src/Tools/nbe.ML
changeset 24292 26ac9fe0e80e
parent 24283 8ca96f4e49cd
child 24347 245ff8661b8c
--- a/src/Tools/nbe.ML	Wed Aug 15 22:21:13 2007 +0200
+++ b/src/Tools/nbe.ML	Thu Aug 16 11:45:05 2007 +0200
@@ -346,7 +346,7 @@
   Logic.mk_equals (t, eval thy code t t' deps);
 
 fun normalization_invoke thy code t t' deps =
-  Thm.invoke_oracle_i thy "Code_Setup.normalization" (thy, Normalization (code, t, t', deps));
+  Thm.invoke_oracle_i thy "HOL.normalization" (thy, Normalization (code, t, t', deps));
   (*FIXME get rid of hardwired theory name*)
 
 fun normalization_conv ct =