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