Rank of the -adic closure of is at most
ProvedLeopoldt.exists_continuous_injective_unitClosure_of_mem_iInfLet be a prime and , number fields, with semilocal units , at and -adic closure of the global units , as in Section 1.1 of the source. Let be any continuous injective group homomorphism, let , and consider the -adic closure
formed exactly as is formed in the source. Suppose is a continuous injective homomorphism with values in . Then there are an integer with
and a continuous injective homomorphism with values in .
In the language of ranks: the -rank of the -adic closure of is at most . This is the statement that "the linear relations between -generators of the units of , which arise upon -adic completion, will be preserved under the embedding into the units " of Remark 1.A: adjoining elements to a closed subgroup raises the -rank of the closure by at most , and the subgroup , being the image of a compact group under a continuous injection, has the same rank as . Applied with the functorial map of Leopoldt.exists_semilocalHom and the images of finitely many units of that, together with , generate a finite-index subgroup of , it gives the topological half of Remark 1.A.
Formalization Note is Multiplicative (Fin n → ℤ_[p]); the closure is the infimum over of the subgroup joins (unitClosure p F).map φ ⊔ closure (range h) ⊔ range (powMonoidHom (p ^ (k + 1))), matching the shape of unitClosure in the definition file, so that is the range of the -th power map. The map is an arbitrary continuous injective homomorphism, not necessarily the one induced by an inclusion ; no Algebra F K instance is assumed. The witness is not required to satisfy ; that bound is the separate statement Leopoldt.le_finrank_of_continuous_injective_semilocalUnits.
import Definitions.Def_LeopoldtDefect open NumberField
namespace Leopoldt
theorem exists_continuous_injective_unitClosure_of_mem_iInf (p : ℕ) [Fact p.Prime]
(F K : Type*) [Field F] [NumberField F] [Field K] [NumberField K]
(φ : SemilocalUnits p F →* SemilocalUnits p K) (hφc : Continuous φ)
(hφi : Function.Injective φ) {m : ℕ} (h : Fin m → SemilocalUnits p K) {n : ℕ}
(f : Multiplicative (Fin n → ℤ_[p]) →* SemilocalUnits p K)
(hf : Function.Injective f) (hc : Continuous f)
(hmem : ∀ x, f x ∈ ⨅ k : ℕ, ((unitClosure p F).map φ ⊔ Subgroup.closure (Set.range h) ⊔
(powMonoidHom (p ^ (k + 1))).range)) :
∃ (n' : ℕ) (f' : Multiplicative (Fin n' → ℤ_[p]) →* SemilocalUnits p F),
n ≤ n' + m ∧ Function.Injective f' ∧ Continuous f' ∧ ∀ x, f' x ∈ unitClosure p F := by sorry
end Leopoldt