1 

     2 

     3 

     4 assert(simp(ZERO | ONE) == ONE)

     5 assert(simp(STAR(ZERO | ONE)) == STAR(ZERO | ONE))

     6 assert(simp(ONE ~ (ONE ~ (ONE ~ CHAR('a')))) == CHAR('a'))

     7 assert(simp(ONE ~ (ONE ~ (ONE ~ ZERO))) == ZERO)

     8 assert(simp(ALT(ONE ~ (ONE ~ (ONE ~ ZERO)), CHAR('a'))) == CHAR('a'))

     9 assert(simp(CHAR('a') | CHAR('a')) == CHAR('a'))

    10 assert(simp(ONE | CHAR('a')) == (ONE | CHAR('a')))

    11 assert(simp(ALT((CHAR('a') | ZERO) ~ ONE,

    12                ((ONE | CHAR('b')) | CHAR('c')) ~ (CHAR('d') ~ ZERO))) == CHAR('a'))

    13