1 2 3 4 5 6
{-# LANGUAGE TypeFamilies #-} {-# LANGUAGE MultiParamTypeClasses #-} module ClassEqContext where class (Show a,a ~ b) => C a b