instance LexEng of Lex = open SyntaxEng, ParadigmsEng in {

  oper
    even_A = mkA "even" ;
    odd_A = mkA "odd" ;
    zero_PN = mkPN "zero" ;

}