changeset 33004 | 715566791eb0 |
parent 32970 | fbd2bb2489a8 |
child 33029 | 2fefe039edf1 |
child 33037 | b22e44496dc2 |
--- a/src/HOL/Tools/Predicate_Compile/predicate_compile_core.ML Mon Oct 19 23:02:23 2009 +0200 +++ b/src/HOL/Tools/Predicate_Compile/predicate_compile_core.ML Mon Oct 19 23:02:56 2009 +0200 @@ -897,7 +897,7 @@ fun cprod ([], ys) = [] | cprod (x :: xs, ys) = map (pair x) ys @ cprod (xs, ys); -fun cprods xss = foldr (map op :: o cprod) [[]] xss; +fun cprods xss = List.foldr (map op :: o cprod) [[]] xss; fun cprods_subset [] = [[]] | cprods_subset (xs :: xss) =