@@ -7,16 +7,26 @@ module category-theory.split-essentially-surjective-functors-precategories where
7
7
<details ><summary >Imports</summary >
8
8
9
9
``` agda
10
+ open import category-theory.categories
11
+ open import category-theory.cores-precategories
10
12
open import category-theory.essential-fibers-of-functors-precategories
11
13
open import category-theory.essentially-surjective-functors-precategories
14
+ open import category-theory.fully-faithful-functors-precategories
12
15
open import category-theory.functors-precategories
16
+ open import category-theory.isomorphisms-in-categories
13
17
open import category-theory.isomorphisms-in-precategories
14
18
open import category-theory.precategories
19
+ open import category-theory.pseudomonic-functors-precategories
15
20
21
+ open import foundation.contractible-types
16
22
open import foundation.dependent-pair-types
23
+ open import foundation.equivalences
17
24
open import foundation.function-types
18
25
open import foundation.functoriality-dependent-pair-types
19
26
open import foundation.propositional-truncations
27
+ open import foundation.propositions
28
+ open import foundation.retracts-of-types
29
+ open import foundation.sections
20
30
open import foundation.universe-levels
21
31
```
22
32
@@ -25,8 +35,9 @@ open import foundation.universe-levels
25
35
## Idea
26
36
27
37
A [ functor] ( category-theory.functors-precategories.md ) ` F : C → D ` between
28
- [ precategories] ( category-theory.precategories.md ) is ** split essentially
29
- surjective** if there is a section of the
38
+ [ precategories] ( category-theory.precategories.md ) is
39
+ {{#concept "split essentially surjective" Disambiguation="functor between set-level precategories" Agda=is-split-essentially-surjective-functor-Precategory Agda=split-essentially-surjective-functor-Precategory}}
40
+ if there is a section of the
30
41
[ essential fiber] ( category-theory.essential-fibers-of-functors-precategories.md )
31
42
over every object of ` D ` .
32
43
@@ -166,14 +177,110 @@ module _
166
177
( is-essentially-surjective-is-split-essentially-surjective-functor-Precategory)
167
178
```
168
179
169
- ### Being split essentially surjective is a property of fully faithful functors when the codomain is a category
180
+ ### Being split essentially surjective is a property of fully faithful functors when the domain is a category
170
181
171
- This remains to be shown. This is Lemma 6.8 of _ Univalent Categories and the
172
- Rezk completion_ .
182
+ This is Lemma 6.8 of {{#cite AKS15}}, although we give a different proof.
183
+
184
+ ** Proof.** Let ` F : 𝒞 → 𝒟 ` be a functor of precategories, where ` 𝒞 ` is
185
+ univalent. It suffices to assume ` F ` is fully faithful on the
186
+ [ core] ( category-theory.cores-categories.md ) of ` 𝒞 ` . Then, to show that
187
+ ` is-split-essentially-surjective ` is a proposition, i.e., that
188
+
189
+ ``` text
190
+ (d : 𝒟₀) → Σ (x : 𝒞₀), (Fx ≅ d)
191
+ ```
192
+
193
+ is a proposition it is equivalent to show that if it has an element it is
194
+ contractible, so assume ` F ` is split essentially surjective. Then, it suffices
195
+ to show that for every ` d : 𝒟₀ ` , the type ` Σ (x : 𝒞₀), (Fx ≅ d) ` is
196
+ contractible. By split essential surjectivity there is an element ` y : 𝒞₀ ` such
197
+ that ` Fy ≅ d ` and since postcomposing by an isomorphism is an equivalence of
198
+ isomorphism-sets, we have
199
+
200
+ ``` text
201
+ (Fx ≅ d) ≃ (Fx ≅ Fy) ≃ (x ≅ y)
202
+ ```
203
+
204
+ so ` (Σ (x : 𝒞₀), (Fx ≅ d)) ≃ (Σ (x : 𝒞₀), (x ≅ y)) ` , and the latter is
205
+ contractible by univalence.
206
+
207
+ ``` agda
208
+ module _
209
+ {l1 l2 l3 l4 : Level}
210
+ (C : Precategory l1 l2) (D : Precategory l3 l4)
211
+ (F : functor-Precategory C D)
212
+ (c : is-category-Precategory C)
213
+ where
214
+
215
+ is-proof-irrelevant-is-split-essentially-surjective-has-section-on-isos-functor-is-category-domain-Precategory :
216
+ ( (x y : obj-Precategory C) →
217
+ section (preserves-iso-functor-Precategory C D F {x} {y})) →
218
+ is-proof-irrelevant
219
+ ( is-split-essentially-surjective-functor-Precategory C D F)
220
+ is-proof-irrelevant-is-split-essentially-surjective-has-section-on-isos-functor-is-category-domain-Precategory
221
+ H s =
222
+ is-contr-Π
223
+ ( λ d →
224
+ is-contr-retract-of
225
+ ( Σ (obj-Category (C , c)) (iso-Category (C , c) (pr1 (s d))))
226
+ ( retract-tot
227
+ ( λ x →
228
+ comp-retract
229
+ ( retract-section
230
+ ( preserves-iso-functor-Precategory C D F)
231
+ ( H (pr1 (s d)) x))
232
+ ( retract-equiv
233
+ ( equiv-inv-iso-Precategory D ∘e
234
+ equiv-postcomp-hom-iso-Precategory
235
+ ( core-precategory-Precategory D)
236
+ ( map-equiv
237
+ ( compute-iso-core-Precategory D)
238
+ ( inv-iso-Precategory D (pr2 (s d))))
239
+ ( obj-functor-Precategory C D F x)))))
240
+ ( is-torsorial-iso-Category (C , c) (pr1 (s d))))
241
+
242
+ is-prop-is-split-essentially-surjective-has-section-on-isos-functor-is-category-domain-Precategory :
243
+ ( (x y : obj-Precategory C) →
244
+ section (preserves-iso-functor-Precategory C D F {x} {y})) →
245
+ is-prop
246
+ ( is-split-essentially-surjective-functor-Precategory C D F)
247
+ is-prop-is-split-essentially-surjective-has-section-on-isos-functor-is-category-domain-Precategory
248
+ =
249
+ is-prop-is-proof-irrelevant ∘
250
+ is-proof-irrelevant-is-split-essentially-surjective-has-section-on-isos-functor-is-category-domain-Precategory
251
+
252
+ is-prop-is-split-essentially-surjective-is-fully-faithful-on-isos-functor-is-category-domain-Precategory :
253
+ ( (x y : obj-Precategory C) →
254
+ is-equiv (preserves-iso-functor-Precategory C D F {x} {y})) →
255
+ is-prop (is-split-essentially-surjective-functor-Precategory C D F)
256
+ is-prop-is-split-essentially-surjective-is-fully-faithful-on-isos-functor-is-category-domain-Precategory
257
+ H =
258
+ is-prop-is-split-essentially-surjective-has-section-on-isos-functor-is-category-domain-Precategory
259
+ ( λ x y → section-is-equiv (H x y))
260
+
261
+ is-prop-is-split-essentially-surjective-is-pseudomonic-functor-is-category-domain-Precategory :
262
+ is-pseudomonic-functor-Precategory C D F →
263
+ is-prop (is-split-essentially-surjective-functor-Precategory C D F)
264
+ is-prop-is-split-essentially-surjective-is-pseudomonic-functor-is-category-domain-Precategory
265
+ H =
266
+ is-prop-is-split-essentially-surjective-is-fully-faithful-on-isos-functor-is-category-domain-Precategory
267
+ ( λ x y →
268
+ is-equiv-preserves-iso-is-pseudomonic-functor-Precategory C D F H
269
+ { x}
270
+ { y})
271
+
272
+ is-prop-is-split-essentially-surjective-is-fully-faithful-functor-is-category-domain-Precategory :
273
+ is-fully-faithful-functor-Precategory C D F →
274
+ is-prop (is-split-essentially-surjective-functor-Precategory C D F)
275
+ is-prop-is-split-essentially-surjective-is-fully-faithful-functor-is-category-domain-Precategory
276
+ H =
277
+ is-prop-is-split-essentially-surjective-is-pseudomonic-functor-is-category-domain-Precategory
278
+ ( is-pseudomonic-is-fully-faithful-functor-Precategory C D F H)
279
+ ```
173
280
174
281
## References
175
282
176
- {{#bibliography}} {{#reference AKS15}}
283
+ {{#bibliography}}
177
284
178
285
## External links
179
286
0 commit comments