Cofree(Const c)作家 c

特定

data Const c a = Const c

我们有

data Cofree (Const c) a
     = a :< Const c

这是同构的

data Writer c a = Writer c a