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⁺)