mkPiKinds :: [TyVar] -> Kind -> Kind
-- mkPiKinds [k1, k2, (a:k1 -> *)] k2
-- returns forall k1 k2. (k1 -> *) -> k2
mkPiKinds [] res = res
mkPiKinds :: [TyVar] -> Kind -> Kind
mkPiKinds [] res = res
mkPiKinds [] res = res