--- a/src/HOL/Hahn_Banach/Function_Norm.thy Fri Jul 04 20:07:08 2014 +0200
+++ b/src/HOL/Hahn_Banach/Function_Norm.thy Fri Jul 04 20:18:47 2014 +0200
@@ -141,7 +141,7 @@
then show "0 \<le> inverse \<parallel>x\<parallel>" by (rule order_less_imp_le)
qed
also have "\<dots> = c * (\<parallel>x\<parallel> * inverse \<parallel>x\<parallel>)"
- by (rule Groups.mult_assoc)
+ by (rule Groups.mult.assoc)
also
from gt have "\<parallel>x\<parallel> \<noteq> 0" by simp
then have "\<parallel>x\<parallel> * inverse \<parallel>x\<parallel> = 1" by simp