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