src/Tools/atomize_elim.ML

--- a/src/Tools/atomize_elim.ML	Sat Apr 16 15:47:52 2011 +0200
+++ b/src/Tools/atomize_elim.ML	Sat Apr 16 16:15:37 2011 +0200
@@ -115,7 +115,7 @@
 
 fun atomize_elim_tac ctxt = SUBGOAL (fn (subg, i) =>
     let
-      val thy = ProofContext.theory_of ctxt
+      val thy = Proof_Context.theory_of ctxt
       val _ $ thesis = Logic.strip_assums_concl subg
                        
       (* Introduce a quantifier first if the thesis is not bound *)