open import Level open import Function open import Data.Product open import Chapter2.Logic open import Chapter6.IDesc open import Chapter6.IDesc.Fixpoint open import Chapter6.IDesc.InitialAlgebra open import Chapter10.Ornament module Chapter10.Reornament.Make {ℓ : Level} {K I : Set ℓ} {D : func ℓ I I} {u : K → I} (o : orn D u u) where open import Chapter10.Reornament o open import Chapter10.Ornament.Algebra o postulate makeAlg : ∀{k} → (x : μ ⟦ o ⟧orn k) → μ reornD (k , fold ⟦ o ⟧orn ornAlgebra x)