Documentation

TauCeti.LinearAlgebra.RootSystem.Weyl.CoverBond

Bonds of covers in the parabolic quotient W / W_λ #

Let λ be a dominant weight for a base b of a finite crystallographic reduced root system. The orbit W λ is the parabolic quotient W / W_λ, modelled by the minimal coset representatives of the standard parabolic subgroup W_λ (see TauCeti.existsUnique_isMinimalCosetRep_smul_eq). This file attaches to each cover y ⋖ x of the Bruhat order of this quotient its positive root label and its bond:

Existence of the label is the Coxeter-group statement that a cover in W / W_J is the projection of a Bruhat edge t x < x (CoxeterSystem.MinimalCosetRepCovBy.exists_isReflection), together with the identification of the reflections of the Weyl group with the root reflections. Uniqueness holds because two reflections moving a weight to the same point have proportional roots, and the root system is reduced (TauCeti.eq_of_isPos_of_reflection_eq). Positivity is the reflection test on minimal coset representatives (TauCeti.bruhatLE_and_ne_iff_coroot'_neg_of_isMinimalCosetRep).

The bond depends only on the two orbit weights, so it is the value of RootPairing.reflectionBond (defined in TauCeti.LinearAlgebra.RootSystem.ReflectionBond for any two weights x and y = s_β x related by a reflection in a positive root) on x λ and y λ. The bonds along a saturated chain of W / W_λ are the integers that the description of Lakshmibai–Seshadri paths by a-chains tests for divisibility by the denominator of a.

Main results #

References #

Translating by a weight on every wall #

theorem TauCeti.reflectionBond_smul_add {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [CharZero R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} [IsDomain R] [P.IsReduced] {χ : M} (hχ : ∀ i ∈ b.support, (P.coroot' i) χ = 0) (lam : M) (x y : ↥P.weylGroup) :
P.reflectionBond b (x • (lam + χ)) (y • (lam + χ)) = P.reflectionBond b (x • lam) (y • lam)

Bonds between orbit weights do not change under translation by a weight on every wall. If every simple coroot kills χ, as for a central weight, then χ is fixed by the Weyl group, so x (λ + χ) = x λ + χ, and the bond of x λ + χ and y λ + χ is that of x λ and y λ.

Bonds of covers #

theorem TauCeti.smul_ne_smul_of_minimalCosetRepCovBy {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [CharZero R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} [LinearOrder R] [IsStrictOrderedRing R] [Finite ι] [P.IsCrystallographic] [P.IsReduced] [P.flip.IsReduced] {lam : M} (hlam : lam ∈ P.dominantChamber b) {x y : ↥P.weylGroup} (h : (weylCoxeterSystem P b).MinimalCosetRepCovBy (P.wallIndices b lam) y x) :
y • lam ≠ x • lam

The two orbit weights of a cover y ⋖ x of W / W_λ are distinct: distinct minimal coset representatives move λ to distinct points.

theorem TauCeti.existsUnique_isPos_reflection_smul_eq_of_minimalCosetRepCovBy {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [CharZero R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} [LinearOrder R] [IsStrictOrderedRing R] [Finite ι] [P.IsCrystallographic] [P.IsReduced] [P.flip.IsReduced] {lam : M} (hlam : lam ∈ P.dominantChamber b) {x y : ↥P.weylGroup} (h : (weylCoxeterSystem P b).MinimalCosetRepCovBy (P.wallIndices b lam) y x) :
∃! β : ι, b.IsPos β ∧ (P.reflection β) (x • lam) = y • lam

A cover of W / W_λ has a unique positive root label. If y is covered by x in the Bruhat order of the minimal coset representatives of the stabilizer of the dominant weight λ, there is exactly one positive root β with y λ = s_β (x λ).

theorem TauCeti.reflectionBond_pos {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [CharZero R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} [LinearOrder R] [IsStrictOrderedRing R] [Finite ι] [P.IsCrystallographic] [P.IsReduced] [P.flip.IsReduced] {lam : M} (hlam : lam ∈ P.dominantChamber b) {x y : ↥P.weylGroup} (hx : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) x) (hy : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) y) (hyx : (weylCoxeterSystem P b).BruhatLE y x) (hne : y ≠ x) {β : ι} (hβ : b.IsPos β) (h : (P.reflection β) (x • lam) = y • lam) :
0 < P.reflectionBond b (x • lam) (y • lam)

The bond of two comparable cosets is strictly positive. Let y < x be minimal coset representatives of the stabilizer of the dominant weight λ with y λ = s_β (x λ) for a positive root β. Then b_λ(x, y) = -⟨x λ, β^∨⟩ > 0.

theorem TauCeti.reflectionBond_pos_of_minimalCosetRepCovBy {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [CharZero R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} [LinearOrder R] [IsStrictOrderedRing R] [Finite ι] [P.IsCrystallographic] [P.IsReduced] [P.flip.IsReduced] {lam : M} (hlam : lam ∈ P.dominantChamber b) {x y : ↥P.weylGroup} (h : (weylCoxeterSystem P b).MinimalCosetRepCovBy (P.wallIndices b lam) y x) :
0 < P.reflectionBond b (x • lam) (y • lam)

The bond of a cover of W / W_λ is strictly positive.

theorem TauCeti.exists_nat_reflectionBond_eq_of_minimalCosetRepCovBy {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [CharZero R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} [LinearOrder R] [IsStrictOrderedRing R] [Finite ι] [P.IsCrystallographic] [P.IsReduced] [P.flip.IsReduced] {lam : M} (hlam : lam ∈ P.dominantChamber b) (hint : ∀ i ∈ b.support, ∃ (z : ℤ), (P.coroot' i) lam = ↑z) {x y : ↥P.weylGroup} (h : (weylCoxeterSystem P b).MinimalCosetRepCovBy (P.wallIndices b lam) y x) :
∃ (n : ℕ), 0 < n ∧ P.reflectionBond b (x • lam) (y • lam) = ↑n

The bond of a cover of W / W_λ is a positive integer when the dominant weight λ is integral, that is when every simple coroot takes an integer value on λ.

theorem TauCeti.minimalCosetRepCovBy_one_simple_of_coroot'_ne_zero {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [CharZero R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} [LinearOrder R] [IsStrictOrderedRing R] [Finite ι] [P.IsCrystallographic] [P.IsReduced] {lam : M} {i : ↥b.support} (hi : (P.coroot' ↑i) lam ≠ 0) :

A simple reflection off the walls through λ covers the identity in W / W_λ: if ⟨λ, αᵢ^∨⟩ ≠ 0, then 1 ⋖ sᵢ.

theorem TauCeti.reflectionBond_smul_simple_mul_smul {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [CharZero R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} [LinearOrder R] [IsStrictOrderedRing R] [Finite ι] [P.IsCrystallographic] [P.IsReduced] {lam : M} (i : ↥b.support) (x : ↥P.weylGroup) :
P.reflectionBond b (x • lam) (((weylCoxeterSystem P b).simple i * x) • lam) = -(P.coroot' ↑i) (x • lam)

The bond of x λ and sᵢ x λ is -⟨x λ, αᵢ^∨⟩, for a simple root αᵢ. When sᵢ is a left descent of the minimal coset representative x, this is the bond of the cover sᵢ x ⋖ x of W / W_λ.

theorem TauCeti.reflectionBond_simple_smul_one_smul {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [CharZero R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} [LinearOrder R] [IsStrictOrderedRing R] [Finite ι] [P.IsCrystallographic] [P.IsReduced] {lam : M} (i : ↥b.support) :
P.reflectionBond b ((weylCoxeterSystem P b).simple i • lam) (1 • lam) = (P.coroot' ↑i) lam

The bond of sᵢ λ and λ is ⟨λ, αᵢ^∨⟩, for a simple root αᵢ. When ⟨λ, αᵢ^∨⟩ ≠ 0 this is the bond of the cover 1 ⋖ sᵢ of W / W_λ; otherwise sᵢ λ = λ and both sides vanish.

theorem TauCeti.reflectionBond_simple_mul_smul_smul {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [CharZero R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} [LinearOrder R] [IsStrictOrderedRing R] [Finite ι] [P.IsCrystallographic] [P.IsReduced] {lam : M} (i : ↥b.support) (u : ↥P.weylGroup) :
P.reflectionBond b (((weylCoxeterSystem P b).simple i * u) • lam) (u • lam) = (P.coroot' ↑i) (u • lam)

The bond of (sᵢ u) λ and u λ is ⟨u λ, αᵢ^∨⟩, for a simple root αᵢ and every u in the Weyl group. When ⟨u λ, αᵢ^∨⟩ > 0 this is the bond of the cover u ⋖ sᵢ u of W / W_λ (TauCeti.minimalCosetRepCovBy_simple_mul_of_coroot'_pos); when it vanishes, both sides vanish.

theorem TauCeti.reflectionBond_simple_mul_smul_simple_mul_smul {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [CharZero R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} [LinearOrder R] [IsStrictOrderedRing R] [Finite ι] [P.IsCrystallographic] [P.IsReduced] [P.flip.IsReduced] {lam : M} (hlam : lam ∈ P.dominantChamber b) {x y : ↥P.weylGroup} (h : (weylCoxeterSystem P b).MinimalCosetRepCovBy (P.wallIndices b lam) y x) {i : ↥b.support} (hne : y • lam ≠ ((weylCoxeterSystem P b).simple i * x) • lam) :
P.reflectionBond b (((weylCoxeterSystem P b).simple i * x) • lam) (((weylCoxeterSystem P b).simple i * y) • lam) = P.reflectionBond b (x • lam) (y • lam)

A simple reflection preserves the bond of a cover it does not reverse. If y ⋖ x in W / W_λ and y λ ≠ (sᵢ x) λ, then the bond of (sᵢ x) λ and (sᵢ y) λ is the bond b_λ(x, y).

Covers of a root datum #

theorem TauCeti.exists_mul_sub_eq_intCast_of_minimalCosetRepCovBy {ι : Type u} {M : Type w} {N : Type x} [AddCommGroup M] [AddCommGroup N] {P : RootPairing ι ℤ M N} {b : P.Base} [Finite ι] [P.IsReduced] [P.flip.IsReduced] {lam : M} {a : ℚ} (hlam : lam ∈ P.dominantChamber b) {x y : ↥P.weylGroup} (h : (weylCoxeterSystem P b).MinimalCosetRepCovBy (P.wallIndices b lam) y x) (ha : ∃ (z : ℤ), a * ↑(P.reflectionBond b (x • lam) (y • lam)) = ↑z) (f : Module.Dual ℤ M) :
∃ (z : ℤ), a * ↑(f (x • lam) - f (y • lam)) = ↑z

A cover with a-integral bond changes integral pairings by a-integral amounts. If y ⋖ x is a cover of W / W_λ and a times its bond is an integer, then a (f (x λ) - f (y λ)) is an integer for every integral linear form f on the weight lattice. Indeed x λ - y λ = -b_λ(x, y) β for the positive root label β of the cover.

theorem TauCeti.natAbs_reflectionBond_mul_smul_mul_smul {ι : Type u} {M : Type w} {N : Type x} [AddCommGroup M] [AddCommGroup N] {P : RootPairing ι ℤ M N} {b : P.Base} [Finite ι] [P.IsReduced] [P.flip.IsReduced] {lam : M} (hlam : lam ∈ P.dominantChamber b) {x y : ↥P.weylGroup} (h : (weylCoxeterSystem P b).MinimalCosetRepCovBy (P.wallIndices b lam) y x) (w : ↥P.weylGroup) :
(P.reflectionBond b ((w * x) • lam) ((w * y) • lam)).natAbs = (P.reflectionBond b (x • lam) (y • lam)).natAbs

Left multiplication preserves the bonds of covers. If y ⋖ x is a cover of W / W_λ, then for every element w of the Weyl group the bond of (w x) λ and (w y) λ has the same absolute value as the bond b_λ(x, y). When w y ⋖ w x is again a cover, both bonds are positive and so they are equal.