Cofree 空空

特定

data Empty a

我们有

data Cofree Empty a
   --  = a :< ...  not possible!