| author | clasohm | 
| Mon, 11 Sep 1995 12:38:20 +0200 | |
| changeset 1253 | 131f72e2cd56 | 
| parent 1247 | 18b1441fb603 | 
| permissions | -rw-r--r-- | 
| 1247 | 1 | (* Title: HOL/AxClasses/Tutorial/Semigroup.thy | 
| 2 | ID: $Id$ | |
| 3 | Author: Markus Wenzel, TU Muenchen | |
| 4 | ||
| 5 | Define class "semigroup". | |
| 6 | *) | |
| 7 | ||
| 8 | Semigroup = HOL + | |
| 9 | ||
| 10 | consts | |
| 11 | "<*>" :: "['a, 'a] => 'a" (infixl 70) | |
| 12 | ||
| 13 | axclass | |
| 14 | semigroup < term | |
| 15 | assoc "(x <*> y) <*> z = x <*> (y <*> z)" | |
| 16 | ||
| 17 | end |