1 

     2 import CW8a._

     3 

     4 assert(der('a', ZERO | ONE) == (ZERO | ZERO))

     5 assert(der('a', (CHAR('a') | ONE) ~ CHAR('a')) == ALT((ONE | ZERO) ~ CHAR('a'), ONE))

     6 assert(der('a', (CHAR('a') | CHAR('a')) ~ CHAR('a')) == (ONE | ONE) ~ CHAR('a'))

     7 assert(der('a', STAR(CHAR('a'))) == (ONE ~ STAR(CHAR('a'))))

     8 assert(der('b', STAR(CHAR('a'))) == (ZERO ~ STAR(CHAR('a'))))