doc-src/Tutorial/Misc/ConstDefs.thy

do nat pass theory value, but sg_ref;

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