src/HOL/Import/shuffler.ML
changeset 42361 23f352990944
parent 41521 c704c437ec74
child 42364 8c674b3b8e44
--- a/src/HOL/Import/shuffler.ML	Sat Apr 16 15:47:52 2011 +0200
+++ b/src/HOL/Import/shuffler.ML	Sat Apr 16 16:15:37 2011 +0200
@@ -608,7 +608,7 @@
 
 fun gen_shuffle_tac ctxt search thms i st =
     let
-        val thy = ProofContext.theory_of ctxt
+        val thy = Proof_Context.theory_of ctxt
         val _ = message ("Shuffling " ^ (string_of_thm st))
         val t = List.nth(prems_of st,i-1)
         val set = set_prop thy t