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