changeset 80701 | 39cd50407f79 |
parent 78812 | d769a183d51d |
child 80709 | e6f026505c5b |
--- a/src/HOL/Tools/groebner.ML Tue Aug 13 18:31:40 2024 +0200 +++ b/src/HOL/Tools/groebner.ML Tue Aug 13 18:53:24 2024 +0200 @@ -789,7 +789,7 @@ val poly_eq_ss = simpset_of (put_simpset HOL_basic_ss \<^context> addsimps @{thms simp_thms} - addsimprocs [poly_eq_simproc]) + |> Simplifier.add_proc poly_eq_simproc) local fun is_defined v t =