==================== Typechecked ====================
Word.bitLsh{-r3A-} =
    _/\_ a_tr3y -> \ x1_B1 ->
	case x1_B1 of { Word.:Bits{-r3C-} x2_B2 x3_B3  -> x2_B2;}
Word.bitRsh{-r3z-} =
    _/\_ a_tr3y -> \ x1_B1 ->
	case x1_B1 of { Word.:Bits{-r3C-} x2_B2 x3_B3  -> x3_B3;}
AbsBinds [a_taqz] [d.Bits_aqy] []


ghc: module version changed to 1; reason: no old .hi file
_exports_
Word Bits(:Bits :Bits bitLsh bitRsh);
_fixities_
infixl 8 bitLsh;
infixl 8 bitRsh;
_declarations_
1 class Bits a where {bitLsh :: a -> PrelBase.Int -> a; bitRsh :: a -> PrelBase.Int -> a} ;