| author | wenzelm | 
| Wed, 10 Jun 1998 11:56:23 +0200 | |
| changeset 5020 | e0f605038a9f | 
| parent 1247 | 18b1441fb603 | 
| child 7651 | e853cd3f3ede | 
| permissions | -rw-r--r-- | 
| 1247 | 1 | (* Title: MonoidGroupInsts.thy | 
| 2 | ID: $Id$ | |
| 3 | Author: Markus Wenzel, TU Muenchen | |
| 4 | ||
| 5 | Some class inclusions or 'abstract instantiations'. | |
| 6 | *) | |
| 7 | ||
| 8 | MonoidGroupInsts = Group + Monoid + | |
| 9 | ||
| 10 | ||
| 11 | (* monoids are semigroups *) | |
| 12 | ||
| 13 | instance | |
| 14 | monoid < semigroup (Monoid.assoc) | |
| 15 | ||
| 16 | ||
| 17 | (* groups are monoids *) | |
| 18 | ||
| 19 | instance | |
| 20 | group < monoid (assoc, left_unit, right_unit) | |
| 21 | ||
| 22 | end |