module Chapter6.Patch.Examples.Lookup (A : Set) where open import Chapter6.Functions.Examples.Le open import Chapter6.FunOrnament.Examples.Lookup open import Chapter6.Patch typeILookup : Set typeILookup = Patch _<_ (typeLookup A)