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 "[]" ..