| author | clasohm | 
| Mon, 11 Sep 1995 12:38:20 +0200 | |
| changeset 1253 | 131f72e2cd56 | 
| parent 1247 | 18b1441fb603 | 
| permissions | -rw-r--r-- | 
(* Title: HOL/AxClass/Tutorial/MonoidGroupInsts.thy ID: $Id$ Author: Markus Wenzel, TU Muenchen Add derived class inclusions monoid < semigroup and group < monoid to type signature -- some kind of 'abstract instantiations'. *) MonoidGroupInsts = Monoid + Group + (* monoids are semigroups *) instance monoid < semigroup (Monoid.assoc) (* groups are monoids *) instance group < monoid (assoc, left_unit, right_unit) end