src/HOL/AxClasses/Product.thy
author wenzelm
Tue, 10 Jun 2008 19:15:16 +0200
changeset 27123 11fcdd5897dd
parent 16417 9bc16273c2d4
permissions -rw-r--r--
case_tac/induct_tac: use same declarations as cases/induct;

(*  Title:      HOL/AxClasses/Product.thy
    ID:         $Id$
    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