module Chapter2.Equivalence.ToDesc {I J : Set} where open import Chapter2.IDesc open import Chapter2.Container ⟨_⟩⁻¹ : I ▸ J → func I J ⟨ φ ⟩⁻¹ = func.mk λ j → `Σ (S φ j) (λ sh → `Π (P φ sh) (λ ps → `var (n φ ps)))