module Chapter7.Equivalence.ToDesc
         {I J : Set}
       where

open import Level

open import Chapter6.IDesc
open import Chapter7.Container

⟨_⟩⁻¹ : I  J  func zero I J
 φ ⟩⁻¹ = func.mk λ j   (S φ j)  sh  
                         (P φ sh)  ps  
                        `var (n φ ps)))