module T5 where data X = X instance Eq X where (==) = _ x = ()