[Haskell-beginners] bottom case in proof by induction