src/HOL/AxClasses/Tutorial/Product.thy
author wenzelm
Mon, 18 Sep 2000 14:10:31 +0200
changeset 10015 8c16ec5ba62b
parent 10007 64bf7da1994a
permissions -rw-r--r--
indicate occurrences of 'handle _';

(*  Title:      HOL/AxClasses/Tutorial/Product.thy
    ID:         $Id$
    Author:     Markus Wenzel, TU Muenchen
*)

theory Product = Main:

axclass
  product < "term"
consts
  product :: "'a::product => 'a => 'a"    (infixl "[*]" 70)

instance bool :: product
  by intro_classes
defs (overloaded)
  product_bool_def: "x [*] y == x & y"

end