WORD_BIT_EQ_CONV : conv
- WORD_BIT_EQ_CONV ``a << 2 >>> 1 = ((5 -- 0) a << 1) :word8`` > val it = |- (a << 2 >>> 1 = (5 -- 0) a << 1) = T : thm