# HG changeset patch
# User nipkow
# Date 1515587756 -3600
# Node ID 12b0c11e3d20d88a495a03200482d52b768b6cfb
# Parent  172a02125bface80b6986cc0e173a2e651dfebd3
tuned op

diff -r 172a02125bfa -r 12b0c11e3d20 src/HOL/Decision_Procs/Algebra_Aux.thy
--- a/src/HOL/Decision_Procs/Algebra_Aux.thy	Wed Jan 10 12:35:03 2018 +0100
+++ b/src/HOL/Decision_Procs/Algebra_Aux.thy	Wed Jan 10 13:35:56 2018 +0100
@@ -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 = op *, one = 1, zero = 0, add = op +\<rparr>"
+  where "cring_class_ops \<equiv> \<lparr>carrier = UNIV, mult = op *, one = 1, zero = 0, add = (op +)\<rparr>"
 
 lemma cring_class: "cring cring_class_ops"
   apply unfold_locales