Module

RealProTwoFreeSource.lean

Nyll.SawinTotallyRealTowers.RealProTwoFreeSource
4 declarations indexed from sourceView source ↗

A constructed minimal free source for the initial real pro-2 group

The finite-rank free source is an actual completion of an abstract free group. Its epimorphism to the arithmetic group has kernel in the Frattini subgroup.

Imports28
Imported by1

Declarations

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

namespace ClassFieldTower.Sawin
open ProCGroups ProCGroups.FreeProC ProCGroups.Generation ProCGroups.FiniteGeneration
open ClassFieldTower.ProP
instance : Fact (Nat.Prime 2)
ClassFieldTower.Sawin.sawinFreeProTwoSource

The constructed free pro-2 group on five generators.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

namespace ClassFieldTower.Sawin
open ProCGroups ProCGroups.FreeProC ProCGroups.Generation ProCGroups.FiniteGeneration
open ClassFieldTower.ProP
def sawinFreeProTwoSource :
    EpimorphicallyFreeProCGroupOnConvergingSetData.{0, 0} (FiniteGroupClass.pGroup 2)
ClassFieldTower.Sawin.sawinFreeProTwoSource_basisCard

The actual free source has exactly five basis elements.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

namespace ClassFieldTower.Sawin
open ProCGroups ProCGroups.FreeProC ProCGroups.Generation ProCGroups.FiniteGeneration
open ClassFieldTower.ProP
theorem sawinFreeProTwoSource_basisCard : Cardinal.mk sawinFreeProTwoSource.basis = 5
ClassFieldTower.Sawin.exists_maximalRealProTwo_minimal_free_epimorphism

The arithmetic group is an actual quotient of a rank-five free pro-2 group whose kernel lies in the closed power--commutator subgroup.

Source context 3 commands

Surrounding namespaces, section variables, and local commands at this declaration.

namespace ClassFieldTower.Sawin
open ProCGroups ProCGroups.FreeProC ProCGroups.Generation ProCGroups.FiniteGeneration
open ClassFieldTower.ProP
theorem exists_maximalRealProTwo_minimal_free_epimorphism :
    ∃ q : sawinFreeProTwoSource.carrier →ₜ*
      (maximalRealProPOutside 2 sawinRationalPrimeSupport ≃ₐ[ℚ]
        maximalRealProPOutside 2 sawinRationalPrimeSupport),
      Function.Surjective q ∧
        q.toMonoidHom.ker ≤ closedPowerCommutator 2 sawinFreeProTwoSource.carrier