From d5114ec666477ab24a72d00a8265093152db8af8 Mon Sep 17 00:00:00 2001
From: Egbert Rijke <e.m.rijke@gmail.com>
Date: Thu, 23 Nov 2023 23:01:20 -0500
Subject: [PATCH] Cellular maps (#923)

---
 src/orthogonal-factorization-systems.lagda.md |  1 +
 .../cellular-maps.lagda.md                    | 63 +++++++++++++++++++
 2 files changed, 64 insertions(+)
 create mode 100644 src/orthogonal-factorization-systems/cellular-maps.lagda.md

diff --git a/src/orthogonal-factorization-systems.lagda.md b/src/orthogonal-factorization-systems.lagda.md
index 31bc562be6..850c0cac52 100644
--- a/src/orthogonal-factorization-systems.lagda.md
+++ b/src/orthogonal-factorization-systems.lagda.md
@@ -9,6 +9,7 @@
 ```agda
 module orthogonal-factorization-systems where
 
+open import orthogonal-factorization-systems.cellular-maps public
 open import orthogonal-factorization-systems.closed-modalities public
 open import orthogonal-factorization-systems.extensions-of-maps public
 open import orthogonal-factorization-systems.factorization-operations public
diff --git a/src/orthogonal-factorization-systems/cellular-maps.lagda.md b/src/orthogonal-factorization-systems/cellular-maps.lagda.md
new file mode 100644
index 0000000000..0bcd3a38aa
--- /dev/null
+++ b/src/orthogonal-factorization-systems/cellular-maps.lagda.md
@@ -0,0 +1,63 @@
+# Cellular maps
+
+```agda
+module orthogonal-factorization-systems.cellular-maps where
+```
+
+<details><summary>Imports</summary>
+
+```agda
+open import foundation.connected-maps
+open import foundation.truncation-levels
+open import foundation.universe-levels
+
+open import orthogonal-factorization-systems.mere-lifting-properties
+```
+
+</details>
+
+## Idea
+
+A map `f : A → B` is said to be **`k`-cellular** if it satisfies the left
+[mere lifting propery](orthogonal-factorization-systems.mere-lifting-properties.md)
+with respect to [`k`-connected maps](foundation.connected-maps.md). In other
+words, a map `f` is `k`-cellular if the
+[pullback-hom](orthogonal-factorization-systems.pullback-hom.md)
+
+```text
+  ⟨ f , g ⟩
+```
+
+with any `k`-connected map `g` is [surjective](foundation.surjective-maps.md).
+The terminology `k`-cellular comes from the fact that the `k`-connected maps are
+precisely the maps that satisfy the right mere lifting property wtih respect to
+the [spheres](synthetic-homotopy-theory.spheres.md)
+
+```text
+  Sⁱ → unit
+```
+
+for all `-1 ≤ i ≤ k`. In this sense, `k`-cellular maps are "built out of
+spheres". Alternatively, `k`-cellular maps might also be called **`k`-projective
+maps**. This emphasizes the condition that `k`-projective maps lift against
+`k`-connected maps.
+
+In the topos of spaces, the `k`-cellular maps are the left class of an
+_external_ weak factorization system on spaces of which the right class is the
+class of `k`-connected maps, but there is no such weak factorization system
+definable internally.
+
+## Definitions
+
+### The predicate of being a `k`-cellular map
+
+```agda
+module _
+  {l1 l2 : Level} (k : 𝕋) {A : UU l1} {B : UU l2} (f : A → B)
+  where
+
+  is-cellular-map : UUω
+  is-cellular-map =
+    {l3 l4 : Level} {X : UU l3} {Y : UU l4} (g : X → Y) →
+    is-connected-map k g → mere-diagonal-lift f g
+```