This section presents the Relations.Truncation module of the Agda Universal Algebra Library.

We start with a brief discussion of standard notions of *truncation*, *h-sets* (which we just call *sets*), and the *uniqueness of identity types* principle.
We then prove that a monic function into a *set* is an embedding. The section concludes with a *uniqueness of identity proofs* principle for blocks of equivalence relations.

Readers who want to learn more about “proof-relevant mathematics” and other concepts mentioned in this module may wish to consult other sources, such as Section 34 and 35 of Martín Escardó’s notes, or Guillaume Brunerie, Truncations and truncated higher inductive types, or Section 7.1 of the HoTT book.

{-# OPTIONS --without-K --exact-split --safe #-} module Relations.Truncation where open import Relations.Quotients public open import MGS-MLTT using (_⇔_) public

This brief introduction is intended for novices; those already familiar with the concept of *truncation* and *uniqueness of identity proofs* may want to skip to the next subsection.

In general, we may have many inhabitants of a given type, hence (via Curry-Howard) many proofs of a given proposition. For instance, suppose we have a type `A`

and an identity relation `_≡₀_`

on `A`

so that, given two inhabitants of `A`

, say, `a b : A`

, we can form the type `a ≡₀ b`

. Suppose `p`

and `q`

inhabit the type `a ≡₀ b`

; that is, `p`

and `q`

are proofs of `a ≡₀ b`

, in which case we write `p q : a ≡₀ b`

. We might then wonder whether and in what sense are the two proofs `p`

and `q`

the equivalent.

We are asking about an identity type on the identity type `≡₀`

, and whether there is some inhabitant,
say, `r`

of this type; i.e., whether there is a proof `r : p ≡ₓ₁ q`

that the proofs of `a ≡₀ b`

are the same.
If such a proof exists for all `p q : a ≡₀ b`

, then the proof of `a ≡₀ b`

is unique; as a property of
the types `A`

and `≡₀`

, this is sometimes called *uniqueness of identity proofs* (uip).

Now, perhaps we have two proofs, say, `r s : p ≡₁ q`

that the proofs `p`

and `q`

are equivalent. Then of course we wonder whether `r ≡₂ s`

has a proof! But at some level we may decide that the potential to distinguish two proofs of an identity in a meaningful way (so-called *proof-relevance*) is not useful or desirable. At that point, say, at level `k`

, we would be naturally inclined to assume that there is at most one proof of any identity of the form `p ≡ₖ q`

. This is called truncation (at level `k`

).

In homotopy type theory, a type `A`

with an identity relation `≡₀`

is called a *set* (or *0-groupoid*) if for every pair `x y : A`

there is at most one proof of `x ≡₀ y`

. In other words, the type `A`

, along with it’s equality type `≡₀`

, form a *set* if for all `x y : A`

there is at most one proof of `x ≡₀ y`

.

This notion is formalized in the Type Topology library, using the `is-subsingleton`

type that we saw earlier (Overture.Inverses), as follows.^{1}.

module hide-is-set {𝓤 : Universe} where is-set : 𝓤 ̇ → 𝓤 ̇ is-set A = (x y : A) → is-subsingleton (x ≡ y) open import MGS-Embeddings using (is-set) public

Thus, the pair `(A , ≡₀)`

forms a set if and only if it satisfies `∀ x y : A → is-subsingleton (x ≡₀ y)`

.

We will also need the function to-Σ-≡, which is part of Escardó’s characterization of *equality in Sigma types*.^{2} It is defined as follows.

module hide-to-Σ-≡ {𝓤 𝓦 : Universe}{A : 𝓤 ̇}{B : A → 𝓦 ̇} where to-Σ-≡ : {σ τ : Σ B} → Σ p ꞉ ∣ σ ∣ ≡ ∣ τ ∣ , (transport B p ∥ σ ∥) ≡ ∥ τ ∥ → σ ≡ τ to-Σ-≡ (refl {x = x} , refl {x = a}) = refl {x = (x , a)} open import MGS-Embeddings using (to-Σ-≡) public

We will use `is-embedding`

, `is-set`

, and `to-Σ-≡`

in the next subsection to prove that a monic function into a set is an embedding.

Before moving on to define propositions, we discharge an obligation we mentioned but left unfulfilled in the embeddings section of the Overture.Inverses module. Recall, we described and imported the `is-embedding`

type, and we remarked that an embedding is not simply a monic function. However, if we assume that the codomain is truncated so as to have unique identity proofs (i.e., is a set), then we can prove that any monic function into that codomain will be an embedding. On the other hand, embeddings are always monic, so we will end up with an equivalence.

module _ {𝓤 𝓦 : Universe}{A : 𝓤 ̇}{B : 𝓦 ̇} where monic-is-embedding|Set : (f : A → B) → is-set B → Monic f → is-embedding f monic-is-embedding|Set f Bset fmon b (u , fu≡b) (v , fv≡b) = γ where fuv : f u ≡ f v fuv = ≡-trans fu≡b (fv≡b ⁻¹) uv : u ≡ v uv = fmon u v fuv arg1 : Σ p ꞉ (u ≡ v) , (transport (λ a → f a ≡ b) p fu≡b) ≡ fv≡b arg1 = uv , Bset (f v) b (transport (λ a → f a ≡ b) uv fu≡b) fv≡b γ : u , fu≡b ≡ v , fv≡b γ = to-Σ-≡ arg1

In stating the previous result, we introduce a new convention to which we will try to adhere. If the antecedent of a theorem includes the assumption that one of the types involved is a *set* (in the sense defined above), then we add to the name of the theorem the suffix `|Set`

, which calls to mind the standard mathematical notation for the restriction of a function.

Embeddings are always monic, so we conclude that when a function’s codomain is a set, then that function is an embedding if and only if it is monic.

embedding-iff-monic|Set : (f : A → B) → is-set B → is-embedding f ⇔ Monic f embedding-iff-monic|Set f Bset = (embedding-is-monic f), (monic-is-embedding|Set f Bset)

Recall, `IsBlock`

was defined in the Relations.Quotients module as follows:

```
IsBlock : {A : 𝓤 ̇}(C : Pred A 𝓦){R : Rel A 𝓦} → 𝓤 ⊔ 𝓦 ⁺ ̇
IsBlock {A} C {R} = Σ u ꞉ A , C ≡ [ u ] {R}
```

In the next module (Relations.Extensionality) we will define a *quotient extensionality* principle that will require a form of unique identity proofs—specifically, we will assume that for each predicate `C : Pred A 𝓦`

there is at most one proof of `IsBlock C`

. We call this proof-irrelevance principle “uniqueness of block identity proofs”, and define it as follows.

blk-uip : {𝓦 𝓤 : Universe}(A : 𝓤 ̇)(R : Rel A 𝓦 ) → 𝓤 ⊔ 𝓦 ⁺ ̇ blk-uip {𝓦} A R = ∀ (C : Pred A 𝓦) → is-subsingleton (IsBlock C {R})

It might seem unreasonable to postulate that there is at most one inhabitant of `IsBlock C`

, since equivalence classes typically have multiple members, any one of which could serve as a class representative. However, postulating `blk-uip A R`

is tantamount to collapsing each `R`

-block to a single point, and this is indeed the correct semantic interpretation of the elements of the quotient `A / R`

.

This section defines more general truncated predicates which we call *continuous propositions* and *dependent propositions*. Recall, above (in the Relations.Continuous module) we defined types called `ContRel`

and `DepRel`

to represent relations of arbitrary arity over arbitrary collections of sorts.

Naturally, we define the corresponding *truncated continuous relation type* and *truncated dependent relation type*, the inhabitants of which we will call *continuous propositions* and *dependent propositions*, respectively.

module _ {𝓤 : Universe}{I : 𝓥 ̇} where open import Relations.Continuous using (ContRel; DepRel) IsContProp : {A : 𝓤 ̇}{𝓦 : Universe} → ContRel I A 𝓦 → 𝓥 ⊔ 𝓤 ⊔ 𝓦 ̇ IsContProp {A = A} P = Π 𝑎 ꞉ (I → A) , is-subsingleton (P 𝑎) ContProp : 𝓤 ̇ → (𝓦 : Universe) → 𝓤 ⊔ 𝓥 ⊔ 𝓦 ⁺ ̇ ContProp A 𝓦 = Σ P ꞉ (ContRel I A 𝓦) , IsContProp P cont-prop-ext : 𝓤 ̇ → (𝓦 : Universe) → 𝓤 ⊔ 𝓥 ⊔ 𝓦 ⁺ ̇ cont-prop-ext A 𝓦 = {P Q : ContProp A 𝓦 } → ∣ P ∣ ⊆ ∣ Q ∣ → ∣ Q ∣ ⊆ ∣ P ∣ → P ≡ Q IsDepProp : {I : 𝓥 ̇}{𝒜 : I → 𝓤 ̇}{𝓦 : Universe} → DepRel I 𝒜 𝓦 → 𝓥 ⊔ 𝓤 ⊔ 𝓦 ̇ IsDepProp {I = I} {𝒜} P = Π 𝑎 ꞉ Π 𝒜 , is-subsingleton (P 𝑎) DepProp : (I → 𝓤 ̇) → (𝓦 : Universe) → 𝓤 ⊔ 𝓥 ⊔ 𝓦 ⁺ ̇ DepProp 𝒜 𝓦 = Σ P ꞉ (DepRel I 𝒜 𝓦) , IsDepProp P dep-prop-ext : (I → 𝓤 ̇) → (𝓦 : Universe) → 𝓤 ⊔ 𝓥 ⊔ 𝓦 ⁺ ̇ dep-prop-ext 𝒜 𝓦 = {P Q : DepProp 𝒜 𝓦} → ∣ P ∣ ⊆ ∣ Q ∣ → ∣ Q ∣ ⊆ ∣ P ∣ → P ≡ Q

^{*} Sections marked with an asterisk include new types that are more abstract and general than some of the types defined in other sections. As yet these general types are not used elsewhere in the UALib, so sections marked * may be safely skimmed or skipped.

^{1} As Escardó explains, “at this point, with the definition of these notions, we are entering the realm of univalent mathematics, but not yet needing the univalence axiom.”

^{2} See https://www.cs.bham.ac.uk/~mhe/HoTT-UF-in-Agda-Lecture-Notes/HoTT-UF-Agda.html#sigmaequality.

^{3} This is another example of proof-irrelevance. Indeed, if `R`

is a binary proposition and we have two proofs of `R x y`

, then the proofs are indistinguishable.