doc-src/Tutorial/Misc/ConstDefs.thy

thms "atomize";

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