--- a/src/HOL/Decision_Procs/Algebra_Aux.thy Sun Sep 23 21:49:31 2018 +0200
+++ b/src/HOL/Decision_Procs/Algebra_Aux.thy Mon Sep 24 14:30:09 2018 +0200
@@ -234,7 +234,7 @@
by (induct n) (simp_all add: m_ac)
definition cring_class_ops :: "'a::comm_ring_1 ring"
- where "cring_class_ops \<equiv> \<lparr>carrier = UNIV, mult = ( * ), one = 1, zero = 0, add = (+)\<rparr>"
+ where "cring_class_ops \<equiv> \<lparr>carrier = UNIV, mult = (*), one = 1, zero = 0, add = (+)\<rparr>"
lemma cring_class: "cring cring_class_ops"
apply unfold_locales