src/HOL/Tools/Predicate_Compile/predicate_compile_core.ML
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) =