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