Cofree 空空

特定

data Empty a

我們有

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