src/HOL/AxClasses/Tutorial/Group.thy

Put in minimal simpset to avoid excessive simplification,
just as in revision 1.9 of HOL/indrule.ML

(*  Title:      HOL/AxClasses/Tutorial/Group.thy
    ID:         $Id$
    Author:     Markus Wenzel, TU Muenchen

Define classes "semigroup", "group", "agroup".
*)

Group = Sigs +

(* semigroups *)

axclass
  semigroup < term
  assoc         "(x <*> y) <*> z = x <*> (y <*> z)"


(* groups *)

axclass
  group < semigroup
  left_unit     "1 <*> x = x"
  left_inv      "inv x <*> x = 1"


(* abelian groups *)

axclass
  agroup < group
  commut        "x <*> y = y <*> x"

end