小编K-1*_*K-1的帖子

当 a 和 b 都为真或它们都为假时，我试图得到真。有人能告诉我我做错了什么吗？

imply :: (a -> Bool, b -> Bool) -> Bool
a = False
b = True
imply (a, a) = True
imply (b, b) = True
imply _ = False