1 2 3 4 5 6 7 8 9 10 11 12 13
{-# LANGUAGE TypeInType #-} module Dep1 where import Data.Kind data Proxy k (a :: k) = P x :: Proxy * Int x = P y :: Proxy Bool True y = P