author | nipkow |
Thu, 10 May 2001 17:28:40 +0200 | |
changeset 11295 | 66925f23ac7f |
parent 10681 | ec76e17f73c5 |
child 12338 | de0f4a63baa5 |
permissions | -rw-r--r-- |
(* Title: HOL/AxClasses/Semigroups.thy ID: $Id$ Author: Markus Wenzel, TU Muenchen License: GPL (GNU GENERAL PUBLIC LICENSE) *) 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