WORD_MUL_LSL_ss : ssfrag
- SIMP_CONV (std_ss++WORD_MUL_LSL_ss) [] ``49w * a`` > val it = |- 49w * a = a << 5 + a << 4 + a : thm - SIMP_CONV (std_ss++WORD_ss++WORD_MUL_LSL_ss) [] ``2w * a + a << 1`` <<HOL message: inventing new type variable names: 'a>> > val it = |- 2w * a + a << 1 = a << 2 : thm