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/function_package/lexicographic_order.ML
changeset 25538 58e8ba3b792b
parent 25509 e537c91b043d
child 25545 21cd20c1ce98 
--- a/src/HOL/Tools/function_package/lexicographic_order.ML	Wed Dec 05 14:15:59 2007 +0100
+++ b/src/HOL/Tools/function_package/lexicographic_order.ML	Wed Dec 05 14:16:05 2007 +0100
@@ -120,8 +120,7 @@
   | mk_funorder_funs T = [ constant_1 T ]
 
 fun mk_ext_base_funs thy (Type("+", [fT, sT])) =
-    product (mk_ext_base_funs thy fT) (mk_ext_base_funs thy sT)
-       |> map (uncurry mk_sum_case)
+      map_product mk_sum_case (mk_ext_base_funs thy fT) (mk_ext_base_funs thy sT)
   | mk_ext_base_funs thy T = mk_base_funs thy T
 
 fun mk_all_measure_funs thy (T as Type ("+", _)) =
isabelle