changeset 33957 | e9afca2118d4 |
parent 33955 | fff6f11b1f09 |
child 33982 | 1ae222745c4a |
--- a/src/HOL/Tools/Nitpick/nitpick_scope.ML Tue Nov 24 17:28:44 2009 +0100 +++ b/src/HOL/Tools/Nitpick/nitpick_scope.ML Wed Nov 25 09:13:46 2009 +0100 @@ -496,7 +496,7 @@ bisim_depths mono_Ts nonmono_Ts val ranks = map rank_of_block blocks val all = all_combinations_ordered_smartly (map (rpair 0) ranks) - val head = (uncurry take) (max_scopes, all) + val head = take max_scopes all val descs = map_filter (scope_descriptor_from_combination ext_ctxt blocks) head in