src/HOL/Tools/groebner.ML
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 =