proof in haskell ?