1 2 3 4 5 6 7 8 9 10 11 12
{-# LANGUAGE MultiParamTypeClasses #-} module T4921 where class C a b where f :: (a,b) instance C Int Char where f = undefined x = fst f y = fst f :: Int