--- a/src/Pure/Isar/proof_context.ML Tue Nov 24 14:37:23 2009 +0100
+++ b/src/Pure/Isar/proof_context.ML Tue Nov 24 17:28:25 2009 +0100
@@ -1340,7 +1340,7 @@
val suppressed = len - ! prems_limit;
val prt_prems = if null prems then []
else [Pretty.big_list "prems:" ((if suppressed <= 0 then [] else [Pretty.str "..."]) @
- map (Display.pretty_thm ctxt) (Library.drop (suppressed, prems)))];
+ map (Display.pretty_thm ctxt) ((uncurry drop) (suppressed, prems)))];
in prt_structs @ prt_fixes @ prt_prems end;