| author | wenzelm |
| Thu, 03 Aug 2000 18:44:24 +0200 | |
| changeset 9513 | 8531c18d9181 |
| parent 9363 | 86b48eafc70d |
| child 10007 | 64bf7da1994a |
| permissions | -rw-r--r-- |
| 1247 | 1 |
(* Title: HOL/AxClasses/Tutorial/Product.thy |
2 |
ID: $Id$ |
|
3 |
Author: Markus Wenzel, TU Muenchen |
|
4 |
*) |
|
5 |
||
| 8920 | 6 |
theory Product = Main:; |
| 1247 | 7 |
|
8 |
axclass |
|
| 8920 | 9 |
product < "term"; |
| 1247 | 10 |
consts |
| 8920 | 11 |
product :: "'a::product => 'a => 'a" (infixl "[*]" 70); |
| 1247 | 12 |
|
| 8920 | 13 |
instance bool :: product; |
14 |
by intro_classes; |
|
| 9363 | 15 |
defs (overloaded) |
| 8920 | 16 |
product_bool_def: "x [*] y == x & y"; |
17 |
||
18 |
end; |