open import Level module Chapter10.AlgebraicOrnament.Examples.Lifting {ℓ : Level} {K : Set ℓ} {X : K → Set ℓ} where open import Function open import Data.Unit open import Data.Nat open import Data.Fin open import Data.Product open import Relation.Binary.PropositionalEquality open import Chapter6.IDesc open import Chapter6.IDesc.Fixpoint open import Chapter6.IDesc.InitialAlgebra open import Chapter6.IDesc.Examples.Nat open import Chapter10.Ornament import Chapter10.AlgebraicOrnament [_]^ : (D : func ℓ K K) → orn D proj₁ proj₁ [ D ]^ = algOrn where open Chapter10.AlgebraicOrnament.Func {ℓ}{K}{μ D} D ⟨_⟩