src/Tools/induct.ML
changeset 81543 fa37ee54644c
parent 81516 31b05aef022d
child 81545 6f8a56a6b391
--- a/src/Tools/induct.ML	Tue Dec 03 22:46:24 2024 +0100
+++ b/src/Tools/induct.ML	Fri Dec 06 13:33:25 2024 +0100
@@ -607,7 +607,7 @@
   let
     val maxidx = Thm.maxidx_of st;
     val goal = Thm.term_of (Thm.cprem_of st i);  (*exception Subscript*)
-    val params = Term.variant_frees goal (Logic.strip_params goal);
+    val params = Term.variant_bounds goal (Logic.strip_params goal);
   in
     if not (null params) then
       (warning ("Cannot determine rule instantiation due to pending parameter(s): " ^