interface Lex = open Syntax in {

  oper
    even_A : A ;
    odd_A : A ;
    zero_PN : PN ;

}