open import Data.Product

open import Relation.Binary.PropositionalEquality

open import Chapter2.IDesc
open import Chapter2.IDesc.Fixpoint

open import Chapter5.Ornament

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

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