src/HOL/AxClasses/Tutorial/Xor.thy
author paulson
Tue, 16 Jul 1996 15:49:46 +0200
changeset 1868 836950047d85
parent 1247 18b1441fb603
child 2907 0e272e4c7cb2
permissions -rw-r--r--
Put in minimal simpset to avoid excessive simplification, just as in revision 1.9 of HOL/indrule.ML
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1247
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
     1
(*  Title:      HOL/AxClasses/Tutorial/Xor.thy
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
     2
    ID:         $Id$
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
     3
    Author:     Markus Wenzel, TU Muenchen
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
     4
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
     5
Define overloaded constants "<*>", "inv", "1" on type "bool".
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
     6
*)
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
     7
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
     8
Xor = Group +
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
     9
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
    10
defs
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
    11
  prod_bool_def "x <*> y == x ~= (y::bool)"
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
    12
  inv_bool_def  "inv x   == x::bool"
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
    13
  unit_bool_def "1       == False"
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
    14
18b1441fb603 Various axiomatic type class demos;
wenzelm
parents:
diff changeset
    15
end