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