Skip to content

Commit 3be903d

Browse files
chore(Mathlib/Topology/Category/LightProfinite/Limits.lean): automated extraction (#37454)
This PR was automatically created from PR #37449 by @dagurtomas via a [review comment](#37449 (comment)) by @dagurtomas. Co-authored-by: dagurtomas <25623829+dagurtomas@users.noreply.github.com> Co-authored-by: Dagur Asgeirsson <dagurtomas@gmail.com>
1 parent b43655d commit 3be903d

File tree

1 file changed

+14
-0
lines changed

1 file changed

+14
-0
lines changed

Mathlib/Topology/Category/LightProfinite/Limits.lean

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -40,6 +40,20 @@ instance : HasExplicitFiniteCoproducts.{w, u}
4040
abbrev isTerminalPUnit : IsTerminal (LightProfinite.of PUnit.{u + 1}) :=
4141
CompHausLike.isTerminalPUnit
4242

43+
instance {X Y Z : LightProfinite} (f : X ⟶ Z) (g : Y ⟶ Z) [h : Epi g] :
44+
Epi (CompHausLike.pullback.fst f g) := by
45+
rw [LightProfinite.epi_iff_surjective] at h ⊢
46+
intro x
47+
obtain ⟨y, hy⟩ := h (f x)
48+
exact ⟨⟨⟨x, y⟩, hy.symm⟩, rfl⟩
49+
50+
instance {X Y Z : LightProfinite} (f : X ⟶ Z) (g : Y ⟶ Z) [h : Epi f] :
51+
Epi (CompHausLike.pullback.snd f g) := by
52+
rw [LightProfinite.epi_iff_surjective] at h ⊢
53+
intro y
54+
obtain ⟨x, hx⟩ := h (g y)
55+
exact ⟨⟨⟨x, y⟩, hx⟩, rfl⟩
56+
4357
example : FinitaryExtensive LightProfinite.{u} := inferInstance
4458

4559
noncomputable example : PreservesFiniteCoproducts lightProfiniteToCompHaus.{u} := inferInstance

0 commit comments

Comments
 (0)