| author | haftmann | 
| Tue, 06 Nov 2007 13:12:49 +0100 | |
| changeset 25308 | fc01c83a466d | 
| parent 16417 | 9bc16273c2d4 | 
| permissions | -rw-r--r-- | 
(* Title: HOL/AxClasses/Semigroups.thy ID: $Id$ Author: Markus Wenzel, TU Muenchen *) theory Semigroups imports Main begin consts times :: "'a => 'a => 'a" (infixl "[*]" 70) axclass semigroup < type assoc: "(x [*] y) [*] z = x [*] (y [*] z)" consts plus :: "'a => 'a => 'a" (infixl "[+]" 70) axclass plus_semigroup < type assoc: "(x [+] y) [+] z = x [+] (y [+] z)" end