A finite-index sublattice admits Smith coordinates whose diagonal entries are positive natural numbers. The sign changes are produced from the Smith coefficients themselves, the quotient is identified with the corresponding product of cyclic groups, and the induced monoid-algebra square remains commutative. All three outputs use one canonical Smith choice.
Source context 3 commands
Surrounding namespaces, section variables, and local commands at this declaration.
noncomputable section
namespace EtaleFundamentalGroups.Kummer
universe u vtheorem exists_smithNatDiagonal_monoidAlgebra
{R : Type u} {L : Type v} [CommSemiring R] [AddCommGroup L]
[Module.Free ℤ L] [Module.Finite ℤ L]
(H : Submodule ℤ L) [Finite (L ⧸ H)] :
∃ (ι : Type v) (_ : Fintype ι) (n : ι → ℕ),
(∀ i, 0 < n i) ∧
∃ (eH : H ≃+ (ι → ℤ)) (eL : L ≃+ (ι → ℤ))
(d : (ι → ℤ) →+ (ι → ℤ))
(_eQ : (L ⧸ H) ≃+ ∀ i, ZMod (n i)),
(∀ x i, d x i = (n i : ℤ) * x i) ∧
(AddMonoidAlgebra.domCongr R R eL).toAlgHom.comp
(AddMonoidAlgebra.mapDomainAlgHom R R H.subtype.toAddMonoidHom) =
(AddMonoidAlgebra.mapDomainAlgHom R R d).comp
(AddMonoidAlgebra.domCongr R R eH).toAlgHom