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): " ^