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