src/HOL/Tools/refute.ML
changeset 33955 fff6f11b1f09
parent 33522 737589bb9bb8
child 33968 f94fb13ecbb3
--- a/src/HOL/Tools/refute.ML	Tue Nov 24 14:37:23 2009 +0100
+++ b/src/HOL/Tools/refute.ML	Tue Nov 24 17:28:25 2009 +0100
@@ -2889,7 +2889,7 @@
               (* go back up the stack until we find a level where we can go *)
               (* to the next sibling node                                   *)
               let
-                val offsets' = Library.dropwhile
+                val offsets' = dropwhile
                   (fn off' => off' mod size_elem = size_elem - 1) offsets
               in
                 case offsets' of