{-# LANGUAGE PolyKinds #-} {-# LANGUAGE MultiParamTypeClasses, AllowAmbiguousTypes #-} {-# OPTIONS_GHC -Wall -fno-warn-tabs #-} module Data.TypeLevel.TypeVal where class T (t :: k) v where t :: v