1
(* Title: Monoid.thy
2
ID: $Id$
3
Author: Markus Wenzel, TU Muenchen
4
*)
5
6
Monoid = Sigs +
7
8
(* monoids *)
9
10
axclass
11
monoid < times, one
12
assoc "(x * y) * z = x * (y * z)"
13
left_unit "1 * x = x"
14
right_unit "x * 1 = x"
15
16
end