doc-src/Tutorial/Misc/ConstDefs.thy

check_case: disallow (T)Vars in invoked case;

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