module Chapter6.FunOrnament.Examples.Append where open import Data.Unit open import Chapter1.Logic open import Chapter2.IDesc.Examples.Nat open import Chapter5.Ornament open import Chapter5.Ornament.Examples.List open import Chapter6.Functions.Examples.Plus open import Chapter6.FunOrnament typeAppend : (A : Set) → FunctionOrn type+ typeAppend A = μ⁺ ListO A [ inv tt ]→ μ⁺ ListO A [ inv tt ]→ μ⁺ ListO A [ inv tt ]× `⊤