| author | wenzelm |
| Tue, 03 Oct 2000 01:15:11 +0200 | |
| changeset 10132 | 8e9a8ede2f11 |
| parent 10007 | 64bf7da1994a |
| permissions | -rw-r--r-- |
(* Title: HOL/AxClasses/Tutorial/Semigroups.thy ID: $Id$ Author: Markus Wenzel, TU Muenchen *) theory Semigroups = Main: consts times :: "'a => 'a => 'a" (infixl "[*]" 70) axclass semigroup < "term" assoc: "(x [*] y) [*] z = x [*] (y [*] z)" consts plus :: "'a => 'a => 'a" (infixl "[+]" 70) axclass plus_semigroup < "term" assoc: "(x [+] y) [+] z = x [+] (y [+] z)" end