src/HOL/AxClasses/Tutorial/MonoidGroupInsts.thy
author nipkow
Tue, 23 Jun 1998 18:07:45 +0200
changeset 5071 548f398d770b
parent 1247 18b1441fb603
permissions -rw-r--r--
Consequences of the change from [ := ] to ( := ) in theory Update.

(*  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