Data.Comp.Ops

data (f :+: g) e

fromInl

fromInr

caseF

type family Elem (f :: * -> *) (g :: * -> *) :: Emb where ...

class Subsume e f g

type f :<: g

inj

proj

type f :=: g

spl

data (f :*: g) a

ffst

fsnd

data (f :&: a) e

class DistAnn s p s'

class RemA s s'