--- a/src/HOL/Tools/Predicate_Compile/predicate_compile_core.ML Wed Apr 27 17:58:45 2011 +0200
+++ b/src/HOL/Tools/Predicate_Compile/predicate_compile_core.ML Wed Apr 27 19:39:50 2011 +0200
@@ -1902,7 +1902,7 @@
val ((T, ts), statistics) = eval ctxt stats param_user_modes comp_options k t_compr
val setT = HOLogic.mk_setT T
val elems = HOLogic.mk_set T ts
- val cont = Free ("...", setT)
+ val cont = Free ("dots", setT) (* FIXME proper name!? *)
(* check expected values *)
val () =
case raw_expected of