1 2 3 4 5 6 7 8
{-# LANGUAGE PolyKinds, GADTs #-} module T11811 where import Data.Kind data Test (a :: x) (b :: x) :: x -> Type where K :: Test Int Bool Double