1 2 3 4 5 6
{-# LANGUAGE TypeFamilies, PolyKinds #-} module T7524 where type family F (a :: k1) (b :: k2) type instance F a a = Int type instance F a b = Bool