reinstated popular add_ac and mult_ac to avoid needless incompatibilities in user space
authornipkow
Fri, 18 Jul 2014 14:21:42 +0200
changeset 57571 d38a98f496dd
parent 57570 70fcc6428393
child 57572 57932dd40916
reinstated popular add_ac and mult_ac to avoid needless incompatibilities in user space
src/HOL/Groups.thy
--- a/src/HOL/Groups.thy	Fri Jul 18 14:03:09 2014 +0200
+++ b/src/HOL/Groups.thy	Fri Jul 18 14:21:42 2014 +0200
@@ -169,10 +169,14 @@
 
 declare add.left_commute [algebra_simps, field_simps]
 
+theorems add_ac = add.assoc add.commute add.left_commute
+
 end
 
 hide_fact add_commute
 
+theorems add_ac = add.assoc add.commute add.left_commute
+
 class semigroup_mult = times +
   assumes mult_assoc [algebra_simps, field_simps]: "(a * b) * c = a * (b * c)"
 begin
@@ -193,10 +197,14 @@
 
 declare mult.left_commute [algebra_simps, field_simps]
 
+theorems mult_ac = mult.assoc mult.commute mult.left_commute
+
 end
 
 hide_fact mult_commute
 
+theorems mult_ac = mult.assoc mult.commute mult.left_commute
+
 class monoid_add = zero + semigroup_add +
   assumes add_0_left: "0 + a = a"
     and add_0_right: "a + 0 = a"