src/Tools/induct.ML
changeset 81545 6f8a56a6b391
parent 81543 fa37ee54644c
child 81954 6f2bcdfa9a19
--- a/src/Tools/induct.ML	Fri Dec 06 15:20:43 2024 +0100
+++ b/src/Tools/induct.ML	Fri Dec 06 20:26:33 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_bounds goal (Logic.strip_params goal);
+    val params = Syntax_Trans.variant_bounds ctxt goal (Logic.strip_params goal);
   in
     if not (null params) then
       (warning ("Cannot determine rule instantiation due to pending parameter(s): " ^