# Theory Product

Up to index of Isabelle/HOL/AxClasses

theory Product
imports Main
begin

    (*  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