src/Doc/Classes/Classes.thy
changeset 61566 c3d6e570ccef
parent 61438 151f894984d8
child 62939 ef8d840f39fb
--- a/src/Doc/Classes/Classes.thy	Wed Nov 04 08:13:49 2015 +0100
+++ b/src/Doc/Classes/Classes.thy	Wed Nov 04 08:13:52 2015 +0100
@@ -457,7 +457,7 @@
   "replicate 0 _ = []"
   | "replicate (Suc n) xs = xs @ replicate n xs"
 
-interpretation %quote list_monoid: monoid append "[]" where
+interpretation %quote list_monoid: monoid append "[]" rewrites
   "monoid.pow_nat append [] = replicate"
 proof -
   interpret monoid append "[]" ..