data LEither : Type -> Type -> Type
Left : a -@ LEither a b
Right : b -@ LEither a b
(Consumable a, Consumable b) => Consumable (LEither a b)
(Duplicable a, Duplicable b) => Duplicable (LEither a b)