WORD_ARITH_CONV : conv
- SIMP_CONV (std_ss++WORD_ARITH_ss++WORD_ARITH_EQ_ss) [] ``$- a = b : 'a word`` > val it = |- ($- a = b) = ($- 1w * a + $- 1w * b = 0w) : thm - WORD_ARITH_CONV ``$- a = b : 'a word`` > val it = |- ($- a = b) = (a + b = 0w) : thm