--- a/src/HOL/Computational_Algebra/Polynomial_Factorial.thy Thu Apr 04 11:40:45 2024 +0200
+++ b/src/HOL/Computational_Algebra/Polynomial_Factorial.thy Thu Apr 04 15:29:41 2024 +0200
@@ -632,6 +632,8 @@
semiring_gcd_mult_normalize}") euclidean_ring_gcd
by (rule euclidean_ring_gcd_class.intro, rule factorial_euclidean_semiring_gcdI) standard
+instance poly :: ("{field, normalization_euclidean_semiring, factorial_ring_gcd,
+ semiring_gcd_mult_normalize}") factorial_semiring_multiplicative ..
subsection \<open>Polynomial GCD\<close>