--- a/src/HOL/Tools/Predicate_Compile/predicate_compile_aux.ML Sat Nov 30 22:02:36 2024 +0100
+++ b/src/HOL/Tools/Predicate_Compile/predicate_compile_aux.ML Sat Nov 30 22:33:21 2024 +0100
@@ -1204,7 +1204,7 @@
fun define_quickcheck_predicate t thy =
let
val (vs, t') = strip_abs t
- val vs' = Variable.variant_frees (Proof_Context.init_global thy) [] vs (* FIXME proper context!? *)
+ val vs' = Variable.variant_names (Proof_Context.init_global thy) vs (* FIXME proper context!? *)
val t'' = subst_bounds (map Free (rev vs'), t')
val (prems, concl) = strip_horn t''
val constname = "quickcheck"