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  `⊤