|
1247
|
1 |
(* Title: HOL/AxClasses/Tutorial/Semigroups.thy
|
|
|
2 |
ID: $Id$
|
|
|
3 |
Author: Markus Wenzel, TU Muenchen
|
|
|
4 |
*)
|
|
|
5 |
|
|
10007
|
6 |
theory Semigroups = Main:
|
|
1247
|
7 |
|
|
|
8 |
consts
|
|
10007
|
9 |
times :: "'a => 'a => 'a" (infixl "[*]" 70)
|
|
1247
|
10 |
axclass
|
|
8920
|
11 |
semigroup < "term"
|
|
10007
|
12 |
assoc: "(x [*] y) [*] z = x [*] (y [*] z)"
|
|
1247
|
13 |
|
|
8920
|
14 |
consts
|
|
10007
|
15 |
plus :: "'a => 'a => 'a" (infixl "[+]" 70)
|
|
1247
|
16 |
axclass
|
|
8920
|
17 |
plus_semigroup < "term"
|
|
10007
|
18 |
assoc: "(x [+] y) [+] z = x [+] (y [+] z)"
|
|
1247
|
19 |
|
|
10007
|
20 |
end
|