Documentation

TauCeti.LinearAlgebra.IntegralLattice.Discriminant.Pi

Discriminant forms of orthogonal sums of finite families #

The dual carrier of the orthogonal sum ⊥ i, L i of a finite family of integral lattices consists of the families whose values lie in the dual carriers of the summands. Passing to quotients coordinatewise gives the canonical equivalence

A_(⊥ i, L i) ≃ Π i, A_(L i),

which sends the class of x to the family of classes of its coordinates. When every summand is even and nondegenerate, this file proves that it is an isometry from the half-norm discriminant quadratic module of the orthogonal sum to the orthogonal sum TauCeti.FiniteQuadraticModule.pi of the discriminant quadratic modules of the summands.

Composing with summandwise alphabet isometries A_i ≅ A_(L i) gives the interface through which glue words enter lattice constructions: an isometry from the coordinate module Π i, A_i to the actual discriminant module of the orthogonal sum (TauCeti.IntegralLattice.discriminantQuadraticIsometryPiOfIsometry). That isometry is natural for coordinatewise isometries of the summands and for reindexing of the family, so glue words of a reducible root system transform as expected under componentwise isometries of the root lattices and permutations of the components.

Main declarations #

References #

The dual carrier #

theorem TauCeti.IntegralLattice.mem_dualCarrier_pi_iff {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) (x : (i : ι) → V i) :
x ∈ (pi L).dualCarrier ↔ ∀ (i : ι), x i ∈ (L i).dualCarrier

A family lies in the dual carrier of an orthogonal sum exactly when each of its values lies in the dual carrier of its summand.

@[simp]
theorem TauCeti.IntegralLattice.dualCarrier_pi {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) :
(pi L).dualCarrier = Submodule.pi Set.univ fun (i : ι) => (L i).dualCarrier

The dual carrier of an orthogonal sum is the product of the dual carriers.

def TauCeti.IntegralLattice.piDualCarrierEquiv {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) :
↥(pi L).dualCarrier ≃ₗ[ℤ] (i : ι) → ↥(L i).dualCarrier

The dual carrier of an orthogonal sum is canonically the product of the dual carriers.

Instances For
    @[simp]
    theorem TauCeti.IntegralLattice.coe_piDualCarrierEquiv_apply {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) (x : ↥(pi L).dualCarrier) (i : ι) :
    ↑((piDualCarrierEquiv L) x i) = ↑x i

    The dual-carrier equivalence of an orthogonal sum reads off the coordinates.

    @[simp]
    theorem TauCeti.IntegralLattice.coe_piDualCarrierEquiv_symm_apply {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) (x : (i : ι) → ↥(L i).dualCarrier) :
    ↑((piDualCarrierEquiv L).symm x) = fun (i : ι) => ↑(x i)

    The inverse dual-carrier equivalence of an orthogonal sum assembles the coordinates.

    theorem TauCeti.IntegralLattice.map_carrierInDual_pi {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) :

    Under the dual-carrier equivalence, the embedded carrier of an orthogonal sum is the product of the embedded carriers.

    The discriminant group #

    noncomputable def TauCeti.IntegralLattice.discriminantGroupPiEquiv {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) :

    The discriminant group of an orthogonal sum is canonically the product of the discriminant groups of its summands.

    Instances For
      @[simp]
      theorem TauCeti.IntegralLattice.discriminantGroupPiEquiv_mk {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) (x : ↥(pi L).dualCarrier) :

      The orthogonal-sum discriminant-group equivalence maps a representative to the family of classes of its coordinates.

      @[simp]
      theorem TauCeti.IntegralLattice.discriminantGroupPiEquiv_symm_mk {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) (x : (i : ι) → ↥(L i).dualCarrier) :

      The inverse orthogonal-sum discriminant-group equivalence sends a family of classes to the class of the assembled representative.

      The discriminant quadratic module #

      noncomputable def TauCeti.IntegralLattice.discriminantQuadraticIsometryPi {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) [∀ (i : ι), (L i).IsNondegenerate] (hL : ∀ (i : ι), (L i).IsEven) :

      For even nondegenerate summands, the orthogonal-sum equivalence of discriminant groups is an isometry from the half-norm discriminant quadratic module of ⊥ i, L i to the orthogonal sum of the discriminant quadratic modules of the summands.

      Instances For
        @[simp]
        theorem TauCeti.IntegralLattice.discriminantQuadraticIsometryPi_apply {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) [∀ (i : ι), (L i).IsNondegenerate] (hL : ∀ (i : ι), (L i).IsEven) (x : (pi L).DiscriminantGroup) :

        The orthogonal-sum discriminant-quadratic isometry acts through the canonical equivalence of discriminant groups.

        @[simp]
        theorem TauCeti.IntegralLattice.discriminantQuadraticIsometryPi_symm_apply {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) [∀ (i : ι), (L i).IsNondegenerate] (hL : ∀ (i : ι), (L i).IsEven) (x : (i : ι) → (L i).DiscriminantGroup) :

        The inverse orthogonal-sum discriminant-quadratic isometry acts through the inverse of the canonical equivalence of discriminant groups.

        Summandwise alphabets #

        noncomputable def TauCeti.IntegralLattice.discriminantQuadraticIsometryPiOfIsometry {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) [∀ (i : ι), (L i).IsNondegenerate] {hL : ∀ (i : ι), (L i).IsEven} {A : ι → FiniteQuadraticModule} (f : (i : ι) → (A i).Isometry ((L i).discriminantQuadraticModule ⋯)) :

        Summandwise isometries A_i ≅ A_(L i) from finite quadratic alphabets to the discriminant modules of even nondegenerate lattices induce an isometry from the orthogonal sum Π i, A_i to the discriminant module of the orthogonal sum ⊥ i, L i.

        Instances For
          @[simp]
          theorem TauCeti.IntegralLattice.discriminantQuadraticIsometryPiOfIsometry_apply {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) [∀ (i : ι), (L i).IsNondegenerate] {hL : ∀ (i : ι), (L i).IsEven} {A : ι → FiniteQuadraticModule} (f : (i : ι) → (A i).Isometry ((L i).discriminantQuadraticModule ⋯)) (x : (i : ι) → (A i).carrier) :

          The isometry induced by summandwise alphabet isometries applies them coordinatewise and then identifies Π i, A_(L i) with A_(⊥ i, L i).

          @[simp]
          theorem TauCeti.IntegralLattice.discriminantGroupPiEquiv_discriminantQuadraticIsometryPiOfIsometry {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) [∀ (i : ι), (L i).IsNondegenerate] {hL : ∀ (i : ι), (L i).IsEven} {A : ι → FiniteQuadraticModule} (f : (i : ι) → (A i).Isometry ((L i).discriminantQuadraticModule ⋯)) (x : (i : ι) → (A i).carrier) (i : ι) :

          The class induced by summandwise alphabet isometries has as coordinate in the discriminant group of each summand the image of the corresponding letter.

          Naturality #

          The identification A_(⊥ i, L i) ≃ Π i, A_(L i) is natural for the two kinds of isometries of orthogonal sums: coordinatewise isometries of the summands, and reindexing of the family by an equivalence of index types. For glue words of a reducible root system these are a componentwise isometry of the root lattices and a permutation of the components.

          @[simp]
          theorem TauCeti.IntegralLattice.discriminantGroupPiEquiv_discriminantGroupEquiv_pi {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] {L : (i : ι) → IntegralLattice (V i)} {W : ι → Type w} [(i : ι) → AddCommGroup (W i)] [(i : ι) → Module ℚ (W i)] {M : (i : ι) → IntegralLattice (W i)} (f : (i : ι) → (L i).Isometry (M i)) (c : (pi L).DiscriminantGroup) (i : ι) :

          The discriminant class of an orthogonal sum of isometries has as coordinates the images of the coordinates of the original class.

          theorem TauCeti.IntegralLattice.discriminantQuadraticIsometry_pi_discriminantQuadraticIsometryPiOfIsometry {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] {L : (i : ι) → IntegralLattice (V i)} {W : ι → Type w} [(i : ι) → AddCommGroup (W i)] [(i : ι) → Module ℚ (W i)] {M : (i : ι) → IntegralLattice (W i)} [∀ (i : ι), (L i).IsNondegenerate] [∀ (i : ι), (M i).IsNondegenerate] {hL : ∀ (i : ι), (L i).IsEven} {hM : ∀ (i : ι), (M i).IsEven} {A : ι → FiniteQuadraticModule} {B : ι → FiniteQuadraticModule} (a : (i : ι) → (A i).Isometry ((L i).discriminantQuadraticModule ⋯)) (b : (i : ι) → (B i).Isometry ((M i).discriminantQuadraticModule ⋯)) (f : (i : ι) → (L i).Isometry (M i)) (g : (i : ι) → (A i).carrier → (B i).carrier) (h : ∀ (i : ι) (x : (A i).carrier), (b i) (g i x) = ((f i).discriminantQuadraticIsometry ⋯) ((a i) x)) (x : (i : ι) → (A i).carrier) :

          Naturality of the summandwise alphabet isometry under coordinatewise isometries. Let a i : A_i ≅ A_(L i) and b i : B_i ≅ A_(M i) be alphabet isometries, and g i : A_i → B_i maps compatible with isometries f i : L i ≅ M i. Then the orthogonal sum of the f i transports the class of an alphabet family x to the class of i ↦ g i (x i).

          @[simp]
          theorem TauCeti.IntegralLattice.discriminantGroupPiEquiv_discriminantGroupEquiv_piCongrLeft {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) {κ : Type x} [Fintype κ] (σ : κ ≃ ι) (c : (pi fun (k : κ) => L (σ k)).DiscriminantGroup) (k : κ) :

          Reindexing an orthogonal sum by σ : κ ≃ ι moves the coordinate in position k of a discriminant class to position σ k.

          @[simp]
          theorem TauCeti.IntegralLattice.Isometry.discriminantGroupEquiv_piUnique {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) [Unique ι] (c : (IntegralLattice.pi L).DiscriminantGroup) :

          On discriminant groups the one-summand isometry extracts the unique component.

          theorem TauCeti.IntegralLattice.discriminantQuadraticIsometry_piCongrLeft_discriminantQuadraticIsometryPiOfIsometry {ι : Type v} [Fintype ι] {V : ι → Type u} [(i : ι) → AddCommGroup (V i)] [(i : ι) → Module ℚ (V i)] (L : (i : ι) → IntegralLattice (V i)) {κ : Type x} [Fintype κ] [∀ (i : ι), (L i).IsNondegenerate] {hL : ∀ (i : ι), (L i).IsEven} {A : ι → FiniteQuadraticModule} (a : (i : ι) → (A i).Isometry ((L i).discriminantQuadraticModule ⋯)) (σ : κ ≃ ι) (x : (k : κ) → (A (σ k)).carrier) :
          ((Isometry.piCongrLeft L σ).discriminantQuadraticIsometry ⋯) ((discriminantQuadraticIsometryPiOfIsometry (fun (k : κ) => L (σ k)) fun (k : κ) => a (σ k)) x) = (discriminantQuadraticIsometryPiOfIsometry L a) ((Equiv.piCongrLeft (fun (i : ι) => (A i).carrier) σ) x)

          Naturality of the summandwise alphabet isometry under reindexing. Reindexing the orthogonal sum by σ : κ ≃ ι transports the class of an alphabet family x over κ to the class of the reindexed family Equiv.piCongrLeft A σ x over ι.