doc-src/Tutorial/Misc/ConstDefs.thy

new file containing simproc invocations, from NatBin.ML

ConstDefs = Types +
constdefs nand :: gate
         "nand A B == ~(A & B)"
          exor :: gate
         "exor A B == A & ~B | ~A & B"
end