changeset 81542 | e2ab4147b244 |
parent 81516 | 31b05aef022d |
child 81952 | 4652c6b36ee8 |
--- a/src/Pure/logic.ML Mon Dec 02 22:16:29 2024 +0100 +++ b/src/Pure/logic.ML Tue Dec 03 22:46:24 2024 +0100 @@ -667,7 +667,7 @@ (*reverses parameters for substitution*) fun goal_params st i = let val gi = get_goal st i - val rfrees = map Free (rev (Term.variant_frees gi (strip_params gi))) + val rfrees = map Free (rev (Term.variant_bounds gi (strip_params gi))) in (gi, rfrees) end; fun concl_of_goal st i =