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)