(* Title: HOL/AxClasses/Product.thy
ID: $Id: Product.thy,v 1.5 2005/06/17 14:13:06 haftmann Exp $
Author: Markus Wenzel, TU Muenchen
*)
theory Product imports Main begin
axclass product < type
consts
product :: "'a::product => 'a => 'a" (infixl "[*]" 70)
instance bool :: product
by intro_classes
defs (overloaded)
product_bool_def: "x [*] y == x & y"
end