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