Module

FiniteSupportLocalReciprocityIdeleCharacter.lean

Nyll.SawinTotallyRealTowers.UnramifiedProPRelationRank.Radical.FiniteSupportLocalReciprocityIdeleCharacter
15 declarations indexed from sourceView source ↗

Idele characters from finitely many local reciprocity characters

A finite family of continuous local mod-p characters evaluates on actual idele coordinates. The finite product is continuous, and its value on a principal idele is the sum of the localized power-class pairings.

Declarations

ClassFieldTower.Martinet.Shafarevich.finiteSupportReciprocityTopology
Source context 7 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p)
ClassFieldTower.Martinet.Shafarevich.finiteSupportReciprocityDiscreteTopology
Source context 8 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p)
ClassFieldTower.Martinet.Shafarevich.finiteSupportReciprocityValuativeRel
Source context 9 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
local instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p) :=
  discreteTopology_bot _
instance finiteSupportReciprocityValuativeRel (v : HeightOneSpectrum (𝓞 F)) :
    ValuativeRel (v.adicCompletion F)
ClassFieldTower.Martinet.Shafarevich.finiteSupportReciprocityLocalField
Source context 10 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
local instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p) :=
  discreteTopology_bot _
local instance finiteSupportReciprocityValuativeRel (v : HeightOneSpectrum (𝓞 F)) :
    ValuativeRel (v.adicCompletion F) := finitePlaceAdicCompletionValuativeRel F v
instance finiteSupportReciprocityLocalField (v : HeightOneSpectrum (𝓞 F)) :
    IsNonarchimedeanLocalField (v.adicCompletion F)
ClassFieldTower.Martinet.Shafarevich.finiteSupportReciprocityH1Module
Source context 11 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
local instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p) :=
  discreteTopology_bot _
local instance finiteSupportReciprocityValuativeRel (v : HeightOneSpectrum (𝓞 F)) :
    ValuativeRel (v.adicCompletion F) := finitePlaceAdicCompletionValuativeRel F v
local instance finiteSupportReciprocityLocalField (v : HeightOneSpectrum (𝓞 F)) :
    IsNonarchimedeanLocalField (v.adicCompletion F) :=
  finitePlaceAdicCompletionIsNonarchimedeanLocalField F v
instance finiteSupportReciprocityH1Module
    {G : Type*} [Group G] [TopologicalSpace G] [IsTopologicalGroup G] :
    Module (ZMod p) (ContinuousH1ZMod (p := p) (G := G))
ClassFieldTower.Martinet.Shafarevich.finiteSupportLocalReciprocityIdeleCharacter

The continuous finite product of local reciprocity characters on the actual finite coordinates of an idele.

Source context 14 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
local instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p) :=
  discreteTopology_bot _
local instance finiteSupportReciprocityValuativeRel (v : HeightOneSpectrum (𝓞 F)) :
    ValuativeRel (v.adicCompletion F) := finitePlaceAdicCompletionValuativeRel F v
local instance finiteSupportReciprocityLocalField (v : HeightOneSpectrum (𝓞 F)) :
    IsNonarchimedeanLocalField (v.adicCompletion F) :=
  finitePlaceAdicCompletionIsNonarchimedeanLocalField F v
local instance finiteSupportReciprocityH1Module
    {G : Type*} [Group G] [TopologicalSpace G] [IsTopologicalGroup G] :
    Module (ZMod p) (ContinuousH1ZMod (p := p) (G := G)) := continuousH1ZModModule
variable (S : Finset (HeightOneSpectrum (𝓞 F)))
variable (chi : ∀ v : ↥S, ContinuousH1ZMod (p := p)
  (G := Field.absoluteGaloisGroup (v.1.adicCompletion F)))
def finiteSupportLocalReciprocityIdeleCharacter :
    IdeleGroup F →ₜ* Multiplicative (ZMod p) where
  toFun x := ∏ v : ↥S, localReciprocityUnitCharacter (v.1.adicCompletion F) p (chi v)
    (IdeleGroup.finiteComponent v.1 x)
  map_one' := by simp only [map_one, Finset.prod_const_one]
  map_mul' x y := by simp only [map_mul, Finset.prod_mul_distrib]
  continuous_toFun := continuous_finsetProd Finset.univ fun v _ ↦
    (localReciprocityUnitCharacter (v.1.adicCompletion F) p (chi v)).continuous_toFun.comp
      (IdeleGroup.finiteComponentContinuous v.1).continuous_toFun
ClassFieldTower.Martinet.Shafarevich.finiteSupportLocalReciprocityIdeleCharacter_apply
Source context 14 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
local instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p) :=
  discreteTopology_bot _
local instance finiteSupportReciprocityValuativeRel (v : HeightOneSpectrum (𝓞 F)) :
    ValuativeRel (v.adicCompletion F) := finitePlaceAdicCompletionValuativeRel F v
local instance finiteSupportReciprocityLocalField (v : HeightOneSpectrum (𝓞 F)) :
    IsNonarchimedeanLocalField (v.adicCompletion F) :=
  finitePlaceAdicCompletionIsNonarchimedeanLocalField F v
local instance finiteSupportReciprocityH1Module
    {G : Type*} [Group G] [TopologicalSpace G] [IsTopologicalGroup G] :
    Module (ZMod p) (ContinuousH1ZMod (p := p) (G := G)) := continuousH1ZModModule
variable (S : Finset (HeightOneSpectrum (𝓞 F)))
variable (chi : ∀ v : ↥S, ContinuousH1ZMod (p := p)
  (G := Field.absoluteGaloisGroup (v.1.adicCompletion F)))
theorem finiteSupportLocalReciprocityIdeleCharacter_apply (x : IdeleGroup F) :
    finiteSupportLocalReciprocityIdeleCharacter F p S chi x =
      ∏ v : ↥S, localReciprocityUnitCharacter (v.1.adicCompletion F) p (chi v)
        (IdeleGroup.finiteComponent v.1 x)
ClassFieldTower.Martinet.Shafarevich.finiteSupportLocalReciprocityPowerClassFunctional

The corresponding functional on global power classes is the finite sum of local reciprocity pairings after localization.

Source context 14 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
local instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p) :=
  discreteTopology_bot _
local instance finiteSupportReciprocityValuativeRel (v : HeightOneSpectrum (𝓞 F)) :
    ValuativeRel (v.adicCompletion F) := finitePlaceAdicCompletionValuativeRel F v
local instance finiteSupportReciprocityLocalField (v : HeightOneSpectrum (𝓞 F)) :
    IsNonarchimedeanLocalField (v.adicCompletion F) :=
  finitePlaceAdicCompletionIsNonarchimedeanLocalField F v
local instance finiteSupportReciprocityH1Module
    {G : Type*} [Group G] [TopologicalSpace G] [IsTopologicalGroup G] :
    Module (ZMod p) (ContinuousH1ZMod (p := p) (G := G)) := continuousH1ZModModule
variable (S : Finset (HeightOneSpectrum (𝓞 F)))
variable (chi : ∀ v : ↥S, ContinuousH1ZMod (p := p)
  (G := Field.absoluteGaloisGroup (v.1.adicCompletion F)))
def finiteSupportLocalReciprocityPowerClassFunctional :
    Module.Dual (ZMod p) (absolutePowerClassModP F p)
ClassFieldTower.Martinet.Shafarevich.finiteSupportLocalReciprocityPowerClassFunctional_apply
Source context 14 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
local instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p) :=
  discreteTopology_bot _
local instance finiteSupportReciprocityValuativeRel (v : HeightOneSpectrum (𝓞 F)) :
    ValuativeRel (v.adicCompletion F) := finitePlaceAdicCompletionValuativeRel F v
local instance finiteSupportReciprocityLocalField (v : HeightOneSpectrum (𝓞 F)) :
    IsNonarchimedeanLocalField (v.adicCompletion F) :=
  finitePlaceAdicCompletionIsNonarchimedeanLocalField F v
local instance finiteSupportReciprocityH1Module
    {G : Type*} [Group G] [TopologicalSpace G] [IsTopologicalGroup G] :
    Module (ZMod p) (ContinuousH1ZMod (p := p) (G := G)) := continuousH1ZModModule
variable (S : Finset (HeightOneSpectrum (𝓞 F)))
variable (chi : ∀ v : ↥S, ContinuousH1ZMod (p := p)
  (G := Field.absoluteGaloisGroup (v.1.adicCompletion F)))
theorem finiteSupportLocalReciprocityPowerClassFunctional_apply
    (x : absolutePowerClassModP F p) :
    finiteSupportLocalReciprocityPowerClassFunctional F p S chi x =
      ∑ v : ↥S, localReciprocityH1PowerClassPairing (v.1.adicCompletion F) p (chi v)
        (finitePlacePowerClassLocalization F p v.1 x)
ClassFieldTower.Martinet.Shafarevich.finiteSupportLocalReciprocityIdeleCharacter_principal

Principal idele evaluation is the finite sum of actual localized power-class pairings. No coefficient-root hypothesis is used.

Source context 14 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
local instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p) :=
  discreteTopology_bot _
local instance finiteSupportReciprocityValuativeRel (v : HeightOneSpectrum (𝓞 F)) :
    ValuativeRel (v.adicCompletion F) := finitePlaceAdicCompletionValuativeRel F v
local instance finiteSupportReciprocityLocalField (v : HeightOneSpectrum (𝓞 F)) :
    IsNonarchimedeanLocalField (v.adicCompletion F) :=
  finitePlaceAdicCompletionIsNonarchimedeanLocalField F v
local instance finiteSupportReciprocityH1Module
    {G : Type*} [Group G] [TopologicalSpace G] [IsTopologicalGroup G] :
    Module (ZMod p) (ContinuousH1ZMod (p := p) (G := G)) := continuousH1ZModModule
variable (S : Finset (HeightOneSpectrum (𝓞 F)))
variable (chi : ∀ v : ↥S, ContinuousH1ZMod (p := p)
  (G := Field.absoluteGaloisGroup (v.1.adicCompletion F)))
theorem finiteSupportLocalReciprocityIdeleCharacter_principal
    (a : Fˣ) :
    (finiteSupportLocalReciprocityIdeleCharacter F p S chi
      (IdeleGroup.principalIdele F a)).toAdd =
      ∑ v : ↥S, localReciprocityH1PowerClassPairing (v.1.adicCompletion F) p (chi v)
        (finitePlacePowerClassLocalization F p v.1
          (Additive.ofMul (QuotientGroup.mk' (powMonoidHom p : Fˣ →* Fˣ).range a)))
ClassFieldTower.Martinet.Shafarevich.finiteSupportLocalReciprocityIdeleCharacter_principal_functional

The principal evaluation formula as one global power-class functional.

Source context 14 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
local instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p) :=
  discreteTopology_bot _
local instance finiteSupportReciprocityValuativeRel (v : HeightOneSpectrum (𝓞 F)) :
    ValuativeRel (v.adicCompletion F) := finitePlaceAdicCompletionValuativeRel F v
local instance finiteSupportReciprocityLocalField (v : HeightOneSpectrum (𝓞 F)) :
    IsNonarchimedeanLocalField (v.adicCompletion F) :=
  finitePlaceAdicCompletionIsNonarchimedeanLocalField F v
local instance finiteSupportReciprocityH1Module
    {G : Type*} [Group G] [TopologicalSpace G] [IsTopologicalGroup G] :
    Module (ZMod p) (ContinuousH1ZMod (p := p) (G := G)) := continuousH1ZModModule
variable (S : Finset (HeightOneSpectrum (𝓞 F)))
variable (chi : ∀ v : ↥S, ContinuousH1ZMod (p := p)
  (G := Field.absoluteGaloisGroup (v.1.adicCompletion F)))
theorem finiteSupportLocalReciprocityIdeleCharacter_principal_functional
    (a : Fˣ) :
    (finiteSupportLocalReciprocityIdeleCharacter F p S chi
      (IdeleGroup.principalIdele F a)).toAdd =
      finiteSupportLocalReciprocityPowerClassFunctional F p S chi
        (Additive.ofMul (QuotientGroup.mk' (powMonoidHom p : Fˣ →* Fˣ).range a))
ClassFieldTower.Martinet.Shafarevich.finiteSupportLocalReciprocityIdeleCharacter_finitePlace_mem

A supporting finite-place embedding recovers its prescribed local reciprocity character.

Source context 14 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
local instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p) :=
  discreteTopology_bot _
local instance finiteSupportReciprocityValuativeRel (v : HeightOneSpectrum (𝓞 F)) :
    ValuativeRel (v.adicCompletion F) := finitePlaceAdicCompletionValuativeRel F v
local instance finiteSupportReciprocityLocalField (v : HeightOneSpectrum (𝓞 F)) :
    IsNonarchimedeanLocalField (v.adicCompletion F) :=
  finitePlaceAdicCompletionIsNonarchimedeanLocalField F v
local instance finiteSupportReciprocityH1Module
    {G : Type*} [Group G] [TopologicalSpace G] [IsTopologicalGroup G] :
    Module (ZMod p) (ContinuousH1ZMod (p := p) (G := G)) := continuousH1ZModModule
variable (S : Finset (HeightOneSpectrum (𝓞 F)))
variable (chi : ∀ v : ↥S, ContinuousH1ZMod (p := p)
  (G := Field.absoluteGaloisGroup (v.1.adicCompletion F)))
theorem finiteSupportLocalReciprocityIdeleCharacter_finitePlace_mem
    (v : ↥S) (a : (v.1.adicCompletion F)ˣ) :
    finiteSupportLocalReciprocityIdeleCharacter F p S chi (IdeleGroup.finitePlaceIdele v.1 a) =
      localReciprocityUnitCharacter (v.1.adicCompletion F) p (chi v) a
ClassFieldTower.Martinet.Shafarevich.finiteSupportLocalReciprocityIdeleCharacter_finitePlace_notMem

Outside the finite support, every finite-place idele has value one.

Source context 14 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
local instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p) :=
  discreteTopology_bot _
local instance finiteSupportReciprocityValuativeRel (v : HeightOneSpectrum (𝓞 F)) :
    ValuativeRel (v.adicCompletion F) := finitePlaceAdicCompletionValuativeRel F v
local instance finiteSupportReciprocityLocalField (v : HeightOneSpectrum (𝓞 F)) :
    IsNonarchimedeanLocalField (v.adicCompletion F) :=
  finitePlaceAdicCompletionIsNonarchimedeanLocalField F v
local instance finiteSupportReciprocityH1Module
    {G : Type*} [Group G] [TopologicalSpace G] [IsTopologicalGroup G] :
    Module (ZMod p) (ContinuousH1ZMod (p := p) (G := G)) := continuousH1ZModModule
variable (S : Finset (HeightOneSpectrum (𝓞 F)))
variable (chi : ∀ v : ↥S, ContinuousH1ZMod (p := p)
  (G := Field.absoluteGaloisGroup (v.1.adicCompletion F)))
theorem finiteSupportLocalReciprocityIdeleCharacter_finitePlace_notMem
    (v : HeightOneSpectrum (𝓞 F)) (hv : v ∉ S) (a : (v.adicCompletion F)ˣ) :
    finiteSupportLocalReciprocityIdeleCharacter F p S chi (IdeleGroup.finitePlaceIdele v a) =
      1
ClassFieldTower.Martinet.Shafarevich.finiteSupportLocalReciprocityIdeleCharacter_finitePlace

Evaluation at an arbitrary finite-place embedding, with its actual support test.

Source context 15 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
local instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p) :=
  discreteTopology_bot _
local instance finiteSupportReciprocityValuativeRel (v : HeightOneSpectrum (𝓞 F)) :
    ValuativeRel (v.adicCompletion F) := finitePlaceAdicCompletionValuativeRel F v
local instance finiteSupportReciprocityLocalField (v : HeightOneSpectrum (𝓞 F)) :
    IsNonarchimedeanLocalField (v.adicCompletion F) :=
  finitePlaceAdicCompletionIsNonarchimedeanLocalField F v
local instance finiteSupportReciprocityH1Module
    {G : Type*} [Group G] [TopologicalSpace G] [IsTopologicalGroup G] :
    Module (ZMod p) (ContinuousH1ZMod (p := p) (G := G)) := continuousH1ZModModule
variable (S : Finset (HeightOneSpectrum (𝓞 F)))
variable (chi : ∀ v : ↥S, ContinuousH1ZMod (p := p)
  (G := Field.absoluteGaloisGroup (v.1.adicCompletion F)))
open scoped Classical in
theorem finiteSupportLocalReciprocityIdeleCharacter_finitePlace
    (v : HeightOneSpectrum (𝓞 F)) (a : (v.adicCompletion F)ˣ) :
    finiteSupportLocalReciprocityIdeleCharacter F p S chi (IdeleGroup.finitePlaceIdele v a) =
      if hv : v ∈ S then localReciprocityUnitCharacter (v.adicCompletion F) p (chi ⟨v, hv⟩) a
      else 1 := by
  classical
  by_cases hv : v ∈ S
  · rw [dite_eq_left hv]
    exact finiteSupportLocalReciprocityIdeleCharacter_finitePlace_mem F p S chi ⟨v, hv⟩ a
  · rw [dite_eq_right hv]
    exact finiteSupportLocalReciprocityIdeleCharacter_finitePlace_notMem F p S chi v hv a
ClassFieldTower.Martinet.Shafarevich.finiteSupportLocalReciprocityIdeleCharacter_infinitePlace

Every archimedean-place embedding is killed by a family supported at finite places.

Source context 14 commands

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

open NumberField IsDedekindDomain
open scoped NumberField Topology BigOperators
noncomputable section
namespace ClassFieldTower.Martinet.Shafarevich
open ClassFieldTower.ProP
variable (F : Type) [Field F] [NumberField F]
variable (p : ℕ) [Fact p.Prime]
local instance finiteSupportReciprocityTopology : TopologicalSpace (ZMod p) := ⊥
local instance finiteSupportReciprocityDiscreteTopology : DiscreteTopology (ZMod p) :=
  discreteTopology_bot _
local instance finiteSupportReciprocityValuativeRel (v : HeightOneSpectrum (𝓞 F)) :
    ValuativeRel (v.adicCompletion F) := finitePlaceAdicCompletionValuativeRel F v
local instance finiteSupportReciprocityLocalField (v : HeightOneSpectrum (𝓞 F)) :
    IsNonarchimedeanLocalField (v.adicCompletion F) :=
  finitePlaceAdicCompletionIsNonarchimedeanLocalField F v
local instance finiteSupportReciprocityH1Module
    {G : Type*} [Group G] [TopologicalSpace G] [IsTopologicalGroup G] :
    Module (ZMod p) (ContinuousH1ZMod (p := p) (G := G)) := continuousH1ZModModule
variable (S : Finset (HeightOneSpectrum (𝓞 F)))
variable (chi : ∀ v : ↥S, ContinuousH1ZMod (p := p)
  (G := Field.absoluteGaloisGroup (v.1.adicCompletion F)))
theorem finiteSupportLocalReciprocityIdeleCharacter_infinitePlace
    (v : InfinitePlace F) (a : v.Completionˣ) :
    finiteSupportLocalReciprocityIdeleCharacter F p S chi (IdeleGroup.infinitePlaceIdele v a) =
      1