src/Pure/assumption.ML

--- a/src/Pure/assumption.ML	Tue Nov 24 17:28:44 2009 +0100
+++ b/src/Pure/assumption.ML	Wed Nov 25 09:13:46 2009 +0100
@@ -88,12 +88,12 @@
 (* local assumptions *)
 
 fun local_assumptions_of inner outer =
-  (uncurry drop) (length (all_assumptions_of outer), all_assumptions_of inner);
+  drop (length (all_assumptions_of outer)) (all_assumptions_of inner);
 
 val local_assms_of = maps #2 oo local_assumptions_of;
 
 fun local_prems_of inner outer =
-  (uncurry drop) (length (all_prems_of outer), all_prems_of inner);
+  drop (length (all_prems_of outer)) (all_prems_of inner);
 
 
 (* add assumptions *)