src/HOL/AxClasses/Tutorial/Group.thy

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/HOL/AxClasses/Tutorial/Group.thy	Fri Sep 01 14:27:36 1995 +0200
@@ -0,0 +1,31 @@
+(*  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