Β« Home

Defintion. Voevodsky's [ag-000T]

ff is an equivalence if its fibers are contractible (or singletons): For every y:Yy : Y, the type

{-# OPTIONS --safe --without-K #-}
module ag-000T where

open import MLTT.Spartan hiding (fiber)
fiber : {X : 𝓀 Μ‡ } {Y : π“₯ Μ‡ } β†’ (X β†’ Y) β†’ Y β†’ 𝓀 βŠ” π“₯ Μ‡
fiber f y = Ξ£ x κž‰ domain f , f x = y

has the property that there is a distinguished element Οƒ0 : fiber f y such that σ = σ0 for all σ : fiber f y.

is-equiv : {X : 𝓀 Μ‡ } {Y : π“₯ Μ‡ } β†’ (f : X β†’ Y) β†’ 𝓀 βŠ” π“₯ Μ‡
is-equiv f = βˆ€ (y : codomain f) β†’ Ξ£ Οƒβ‚€ κž‰ fiber f y , βˆ€ (Οƒ : fiber f y) β†’ Οƒ = Οƒβ‚€