open import Chapter7.Container module Chapter10.Equivalence.ToCartesian {I J K L : Set}{u : K → I}{v : L → J} {φ : I ▸ J} where open import Data.Unit open import Data.Sum open import Data.Product open import Relation.Binary.PropositionalEquality open import Chapter2.Logic open import Chapter7.Equivalence.ToContainer open import Chapter10.Ornament open import Chapter10.Container.Morphism.Cartesian open import Chapter10.Container.Morphism.Contornament toCartesian : (υ : Contornament φ u v) → ⟦ υ ⟧corn ⇒c[ u ∣ v ] φ toCartesian υ = record { σ = proj₁ ; ρ = refl ; q = λ p → coherence⊢ υ _ _ p } where open Contornament