src/Pure/ProofGeneral/proof_general_pgip.ML

--- a/src/Pure/ProofGeneral/proof_general_pgip.ML	Fri Apr 18 23:49:46 2008 +0200
+++ b/src/Pure/ProofGeneral/proof_general_pgip.ML	Fri Apr 18 23:58:04 2008 +0200
@@ -628,8 +628,6 @@
 
         fun idtable ty ctx ids = {objtype=ty,context=ctx,ids=ids}
 
-        val thms_of_thy = map fst o PureThy.thms_of o ThyInfo.get_theory
-
         val thy_name = Path.implode o #1 o Path.split_ext o Path.base
 
         fun filerefs f =