src/Pure/Isar/proof_context.ML
changeset 33955 fff6f11b1f09
parent 33700 768d14a67256
child 33957 e9afca2118d4
     1.1 --- a/src/Pure/Isar/proof_context.ML	Tue Nov 24 14:37:23 2009 +0100
     1.2 +++ b/src/Pure/Isar/proof_context.ML	Tue Nov 24 17:28:25 2009 +0100
     1.3 @@ -1340,7 +1340,7 @@
     1.4        val suppressed = len - ! prems_limit;
     1.5        val prt_prems = if null prems then []
     1.6          else [Pretty.big_list "prems:" ((if suppressed <= 0 then [] else [Pretty.str "..."]) @
     1.7 -          map (Display.pretty_thm ctxt) (Library.drop (suppressed, prems)))];
     1.8 +          map (Display.pretty_thm ctxt) ((uncurry drop) (suppressed, prems)))];
     1.9      in prt_structs @ prt_fixes @ prt_prems end;
    1.10  
    1.11