[Haskell-cafe] bottom case in proof by induction