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 }
-}