Skip to content

feat(Topology): First singular homology group of the Hawaiian earring - #485

Open
vlad902 wants to merge 1 commit into
leanprover:mainfrom
vlad902:hawaiian-earring
Open

feat(Topology): First singular homology group of the Hawaiian earring#485
vlad902 wants to merge 1 commit into
leanprover:mainfrom
vlad902:hawaiian-earring

Conversation

@vlad902

@vlad902 vlad902 commented Jul 29, 2026

Copy link
Copy Markdown

The first singular homology group of the Hawaiian earring is isomorphic to (∏ i : ℕ, ℤ) × (∏ i : ℕ, ℤ / ⊕ i : ℕ, ℤ).

First draft by Aristotle, then significantly edited.

@vlad902 vlad902 changed the title feat(Topology): First singular homology group of the Hawaiian earring. feat(Topology): First singular homology group of the Hawaiian earring Jul 29, 2026
@kim-em

kim-em commented Jul 30, 2026

Copy link
Copy Markdown
Collaborator

I'm not convinced this is hard enough for inclusion. I want to raise the median difficulty of the problem set: too many are being solved!

Only if you're interested, but could you give me an estimate of how hard you think this will be?

@vlad902

vlad902 commented Jul 30, 2026

Copy link
Copy Markdown
Author

So my interest in this is that I have tried to work a bit with homology in Lean and found it fairly difficult and I suspect that AI models are also going to struggle. I think getting the isomorphism is several papers worth of calculations, but I think there is a huge mass of missing theory to get there (that should eventually be in mathlib one day.) Perhaps that's below the current bar, feel free to close!


/-- The direct sum `⊕ i : ℕ, ℤ` embedded in the product `∏ i : ℕ, ℤ`. -/
noncomputable abbrev directSum : AddSubgroup (ℕ → ℤ) :=
(Finsupp.coeFnAddHom (ι := ℕ) (M := ℤ)).range

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

a small trick

Suggested change
(Finsupp.coeFnAddHom (ι := ℕ) (M := ℤ)).range
Finsupp.coeFnAddHom (ι := ℕ) (M := ℤ).range

@[eval_problem]
theorem hawaiian_earring_first_singularHomology_isomorphism :
Nonempty ((singularHomologyFunctor Ab 1 |>.obj (.of ℤ) |>.obj <| .of HawaiianEarring) ≃+
(ℕ → ℤ) × ((ℕ → ℤ) ⧸ directSum)) := by

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

If this work you can just remove the abbrev directSum

Suggested change
(ℕ → ℤ) × ((ℕ → ℤ) ⧸ directSum)) := by
(ℕ → ℤ) × ((ℕ → ℤ) ⧸ Finsupp.coeFnAddHom.range)) := by

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

3 participants