1 2 3 4 5 6 7 8 9 10 11
{-# LANGUAGE UndecidableInstances, FlexibleInstances #-} module ContextStack1 where class Cls a where meth :: a instance Cls [a] => Cls a t :: () t = meth