module Chapter6.Patch.Examples.Append (A : Set) where open import Chapter6.Functions.Examples.Plus open import Chapter6.FunOrnament.Examples.Append open import Chapter6.Patch typeILookup : Set typeILookup = Patch _+_ (typeAppend A)