And to recover the named binding: let whee = (\x -> x == x && null (show x)) :: Show a => Eq a => a => Bool