1 2 3 4 5 6 7 8
{-# LANGUAGE TypeOperators, KindSignatures #-} module T7645 where data (+) a b = P f :: ((+) a (a :: *), Maybe) f = undefined