Skip to content

Commit

Permalink
Checking for more typos and succ n -> n + 1
Browse files Browse the repository at this point in the history
  • Loading branch information
IanRay11 committed Oct 1, 2024
1 parent 240ab63 commit 93cb9ad
Show file tree
Hide file tree
Showing 3 changed files with 15 additions and 15 deletions.
22 changes: 11 additions & 11 deletions source/UF/ConnectedTypes.lagda
Original file line number Diff line number Diff line change
Expand Up @@ -33,10 +33,6 @@ open import UF.Univalence
We now define the notion of connectedness for types and functions with respect
to truncation levels.

TODO: show that connectedness as defined elsewhere in the library is
a special case of k-connectedness. Connectedness typically means set
connectedness, by our convention it will mean 0-connectedness.

\begin{code}

module _ (te : general-truncations-exist) where
Expand All @@ -57,6 +53,10 @@ module _ (te : general-truncations-exist) where

\end{code}

TODO: show that connectedness as defined elsewhere in the library is
a special case of k-connectedness. Connectedness typically means set
connectedness, by our convention it will mean 0-connectedness.

We characterize −1-connected types as inhabited types and −1-connected maps as
surjections.

Expand Down Expand Up @@ -116,7 +116,7 @@ useful.
(λ x → ap ∣_∣[ k ] (C x))

connectedness-is-lower-closed : {X : 𝓤 ̇} {k : ℕ₋₂}
→ X is k + 1 connected
→ X is (k + 1) connected
→ X is k connected
connectedness-is-lower-closed {𝓤} {X} {k} X-succ-con =
equiv-to-singleton successive-truncations-equiv
Expand Down Expand Up @@ -149,7 +149,7 @@ the identity type at one level below. We will assume univalence only when necess
\begin{code}

inhabited-if-connected : {X : 𝓤 ̇} {k : ℕ₋₂}
→ X is k + 1 connected → ∥ X ∥
→ X is (k + 1) connected → ∥ X ∥
inhabited-if-connected {_} {_} {k} X-conn =
inhabited-if-−1-connected (connectedness-is-lower-closed' ⋆ X-conn)

Expand All @@ -158,7 +158,7 @@ the identity type at one level below. We will assume univalence only when necess

connected-types-are-locally-connected : {X : 𝓤 ̇} {k : ℕ₋₂}
→ is-univalent 𝓤
→ X is k + 1 connected
→ X is (k + 1) connected
→ X is-locally k connected
connected-types-are-locally-connected {_} {_} {k} ua X-conn x y =
equiv-to-singleton (eliminated-trunc-identity-char ua)
Expand All @@ -167,7 +167,7 @@ the identity type at one level below. We will assume univalence only when necess

connected-types-are-inhabited-and-locally-connected : {X : 𝓤 ̇} {k : ℕ₋₂}
→ is-univalent 𝓤
→ X is k + 1 connected
→ X is (k + 1) connected
→ ∥ X ∥
× X is-locally k connected
connected-types-are-inhabited-and-locally-connected ua X-conn =
Expand All @@ -177,7 +177,7 @@ the identity type at one level below. We will assume univalence only when necess
→ is-univalent 𝓤
→ ∥ X ∥
→ X is-locally k connected
→ X is k + 1 connected
→ X is (k + 1) connected
inhabited-and-locally-connected-types-are-connected
{_} {_} {−2} ua anon-x id-conn =
pointed-props-are-singletons (prop-trunc-to-−1-trunc pt anon-x) −1-trunc-is-prop
Expand All @@ -192,7 +192,7 @@ the identity type at one level below. We will assume univalence only when necess

connected-characterization : {X : 𝓤 ̇} {k : ℕ₋₂}
→ is-univalent 𝓤
→ X is k + 1 connected
→ X is (k + 1) connected
↔ ∥ X ∥ × X is-locally k connected
connected-characterization ua =
(connected-types-are-inhabited-and-locally-connected ua
Expand All @@ -201,7 +201,7 @@ the identity type at one level below. We will assume univalence only when necess
ap-is-less-connected : {X : 𝓤 ̇} {Y : 𝓥 ̇} {k : ℕ₋₂}
→ (ua : is-univalent (𝓤 ⊔ 𝓥))
→ (f : X → Y)
→ f is k + 1 connected-map
→ f is (k + 1) connected-map
→ {x x' : X}
→ (ap f {x} {x'}) is k connected-map
ap-is-less-connected ua f f-conn {x} {x'} p =
Expand Down
4 changes: 2 additions & 2 deletions source/UF/TruncatedTypes.lagda
Original file line number Diff line number Diff line change
Expand Up @@ -54,7 +54,7 @@ f is n truncated-map = each-fiber-of f (λ - → - is n truncated)

\end{code}

Being -1-truncated equivalent to being a proposition.
Being -1-truncated is equivalent to being a proposition.

\begin{code}

Expand Down Expand Up @@ -201,7 +201,7 @@ for all n : ℕ₋₂.

truncation-levels-closed-under-≃⁺ : {n : ℕ₋₂} {X : 𝓤 ̇ } {Y : 𝓥 ̇ }
→ Y is (n + 1) truncated
→ (X ≃ Y) is (succ n) truncated
→ (X ≃ Y) is (n + 1) truncated
truncation-levels-closed-under-≃⁺ {𝓤} {𝓥} {n} {X} {Y} tY =
truncated-types-closed-under-embedding ⋆ (equiv-embeds-into-function fe')
(truncated-types-closed-under-Π (λ _ → Y) (λ _ → tY))
Expand Down
4 changes: 2 additions & 2 deletions source/UF/Truncations.lagda
Original file line number Diff line number Diff line change
Expand Up @@ -207,7 +207,7 @@ computation rules.

\end{code}

We characterize the first couple levels of truncation.
We characterize the first couple truncation levels.

(TODO: 1-type is a groupoid).

Expand Down Expand Up @@ -395,7 +395,7 @@ for details see: https://unimath.github.io/agda-unimath/foundation.truncations.

trunc-id-family-computes : (x' : X)
→ trunc-id-family-type ∣ x' ∣[ n + 1 ]
= ∥ x = x' ∥[ n ]
= ∥ x = x' ∥[ n ]
trunc-id-family-computes x' =
ap pr₁ (∥∥ₙ-rec-comp (𝕋-is-of-next-truncation-level ua)
(λ x' → (∥ x = x' ∥[ n ] , ∥∥ₙ-is-truncated))
Expand Down

0 comments on commit 93cb9ad

Please sign in to comment.