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