doc-src/Tutorial/Misc/Defs.thy

HOL/record: shared operations ("more", "fields", etc.) now need to be
always qualified;

Defs = Types +
consts nand, exor :: gate
defs nand_def "nand A B == ~(A & B)"
     exor_def "exor A B == A & ~B | ~A & B"
end