type family (f :: m (a ~> b)) <*> (ma :: m a) :: m b where ...
type family (f :: a ~> b) <$> (ma :: m a) :: m b
type family Apply (f :: a ~> b) (x :: a) :: b
type family Const (a :: t) (b :: t') :: t where ...
type family Flip__ (f :: a ~> (b ~> c)) (y :: b) (x :: a) :: c where ...
type family Compose_ (f :: b ~> c) (g :: a ~> b) (x :: a) :: c where ...