Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Tools/Nitpick/nitpick_scope.ML
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
isabelle