1 2 3 4 5 6 7 8
{-# LANGUAGE TypeFamilies #-} {-# LANGUAGE MultiParamTypeClasses #-} module ClassEqContext where class a ~ b => C a b instance C Char Char