src/HOLCF/Pcpo.thy

--- a/src/HOLCF/Pcpo.thy	Tue Apr 03 19:31:48 2007 +0200
+++ b/src/HOLCF/Pcpo.thy	Wed Apr 04 00:10:59 2007 +0200
@@ -206,8 +206,7 @@
       | _ => SOME meta_UU_reorient;
 in
   val UU_reorient_simproc = 
-    Simplifier.simproc (the_context ())
-      "UU_reorient_simproc" ["UU=x"] reorient_proc
+    Simplifier.simproc @{theory} "UU_reorient_simproc" ["UU=x"] reorient_proc
 end;
 
 Addsimprocs [UU_reorient_simproc];