src/HOL/AxClasses/Tutorial/Xor.thy
author wenzelm
Fri, 01 Sep 1995 14:27:36 +0200
changeset 1247 18b1441fb603
child 2907 0e272e4c7cb2
permissions -rw-r--r--
Various axiomatic type class demos;

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

Define overloaded constants "<*>", "inv", "1" on type "bool".
*)

Xor = Group +

defs
  prod_bool_def "x <*> y == x ~= (y::bool)"
  inv_bool_def  "inv x   == x::bool"
  unit_bool_def "1       == False"

end