Haskell implementation of False