BITS_ELIM_CONV : conv
# BITS_ELIM_CONV `BIT0(BIT1(BIT1 _0)) = 6`;; val it : thm = |- BIT0 (BIT1 (BIT1 _0)) = 6 <=> 2 * (2 * (2 * 0 + 1) + 1) = 6 # (BITS_ELIM_CONV THENC NUM_REDUCE_CONV) `BIT0(BIT1(BIT1 _0)) = 6`;; val it : thm = |- BIT0 (BIT1 (BIT1 _0)) = 6 <=> T