changeset 25538 | 58e8ba3b792b |
parent 25402 | 0a1005435e11 |
child 27330 | 1af2598b5f7d |
--- a/src/HOL/Tools/function_package/pattern_split.ML Wed Dec 05 14:15:59 2007 +0100 +++ b/src/HOL/Tools/function_package/pattern_split.ML Wed Dec 05 14:16:05 2007 +0100 @@ -48,7 +48,7 @@ fun join ((vs1,sub1), (vs2,sub2)) = (merge (op aconv) (vs1,vs2), sub1 @ sub2) -fun join_product (xs, ys) = map join (product xs ys) +fun join_product (xs, ys) = map_product (curry join) xs ys fun join_list [] = [] | join_list xs = foldr1 (join_product) xs