open import Chapter2.Container module Chapter5.Container.Morphism.Cartesian.Identity {I J : Set}{φ : I ▸ J} where open import Function open import Data.Unit open import Relation.Binary.PropositionalEquality open import Chapter2.Container open import Chapter5.Container.Morphism.Contornament idO : Contornament φ id id idO = record { extend = λ _ _ → ⊤ ; refine = λ _ p → n φ p ; coherence⊢ = λ sh e p → refl } {- idO : φ ⇒c[ id ∣ id ] φ idO = record { σ = id ; ρ = refl ; q = λ p → refl } -}