ClassFieldTower.Sawin.exists_sawinInitialProTwo_minimalPresentation
Published library source ↗Same source in NYLL ↗
theorem exists_sawinInitialProTwo_minimalPresentation :
∃ sourceData : FreeProC.EpimorphicallyFreeProCGroupOnConvergingSetData.{0, 0}
(FiniteGroupClass.pGroup 2),
∃ r : ℕ, ∃ P : FiniteProPPresentation 2 5 r sourceData
(maximalRealProPOutside 2 sawinRationalPrimeSupport ≃ₐ[ℚ]
maximalRealProPOutside 2 sawinRationalPrimeSupport),
P.IsMinimal ∧ r ≤ 6In-scope Lean context
namespace ClassFieldTower.Sawin
open ProCGroups ClassFieldTower.ProP
private local instance initialPresentationPrimeTwo : Fact (Nat.Prime 2) := ⟨Nat.prime_two⟩
private local instance initialPresentationIsGalois :
IsGalois ℚ (maximalRealProPOutside 2 sawinRationalPrimeSupport) :=
maximalRealProPOutside_isGalois 2 sawinRationalPrimeSupportFull declaration and proof
/-- The initial arithmetic group has an actual minimal presentation on five
generators and at most six relators. The chosen relator count attains the
least relation rank supplied by S1. -/
theorem exists_sawinInitialProTwo_minimalPresentation :
∃ sourceData : FreeProC.EpimorphicallyFreeProCGroupOnConvergingSetData.{0, 0}
(FiniteGroupClass.pGroup 2),
∃ r : ℕ, ∃ P : FiniteProPPresentation 2 5 r sourceData
(maximalRealProPOutside 2 sawinRationalPrimeSupport ≃ₐ[ℚ]
maximalRealProPOutside 2 sawinRationalPrimeSupport),
P.IsMinimal ∧ r ≤ 6 := by
obtain ⟨hG, hr, _, _⟩ := sawinInitialProTwoGroup_structure.2.2.2
obtain ⟨sourceData, d, P, hP⟩ := exists_presentation_relationCard_eq_minimal hG
have hd : d = 5 :=
(P.target_topologicalGeneratorRank_eq hP).symm.trans maximalRealProTwo_generatorRank.2
subst d
exact ⟨sourceData, _, P, hP, hr⟩Source credits and license
Copyright (c) 2026 Naganori Yamaguchi (https://github.com/n-yamaguchi-0729). All rights reserved. Released under Apache 2.0 license as described in the file LICENSE. Authors: Naganori Yamaguchi (assisted by OpenAI Codex)