| 1247 |      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
 |