open import Level

open import Data.Product

open import Relation.Binary.PropositionalEquality

open import Chapter6.IDesc
open import Chapter6.IDesc.Fixpoint

open import Chapter10.Ornament

module Chapter10.Reornament.Coherence
         { : 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
open import Chapter10.Reornament.Algebra o

postulate
  coherentOrn : ∀{k t}  
                (t⁺ : μ reornD (k , t))  
                t  forgetOrnament (forgetReornament t⁺)