Haskell使用蕴含(==>)检查带有前提条件的属性