Documentation

TauCeti.LinearAlgebra.RootSystem.Weyl.ParabolicQuotient

The Weyl orbit of a dominant weight as a parabolic quotient #

Let λ be a dominant weight for a base b of a finite crystallographic reduced root system. Its stabilizer W_λ in the Weyl group is the standard parabolic subgroup of the Coxeter system TauCeti.weylCoxeterSystem generated by the simple reflections in the walls through λ. So the orbit W λ is the parabolic quotient W / W_λ, and each orbit weight u λ has a unique minimal coset representative. This file records that dictionary and the reflection test comparing two orbit weights related by a reflection.

For a positive root β and an orbit weight u λ, let u and v be the minimal representatives of the cosets of u and of s_β u, so that v λ = s_β (u λ). Then, in the Bruhat order,

The comparison is between the minimal representatives, not between arbitrary Weyl-group elements with the given weights: on a chamber wall W_λ is nontrivial, and s_β u itself is generally not minimal in its coset. A weak inequality gives no strict comparison: on a wall the zero pairing gives the same coset.

This is the order test on W / W_λ underlying the description of Lakshmibai–Seshadri paths by saturated chains of orbit weights, in which each step is a reflection ξ ↦ s_β ξ with ⟨ξ, β^∨⟩ < 0.

Main definitions #

Main results #

References #

The walls through a weight as simple generators #

def RootPairing.wallIndices {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] (P : RootPairing ι R M N) (b : P.Base) (x : M) :

The simple roots of the base b whose simple coroot vanishes on x, as a set of simple generators of TauCeti.weylCoxeterSystem. For dominant x the standard parabolic subgroup they generate is the stabilizer of x (RootPairing.parabolic_wallIndices_eq_stabilizer).

Instances For
    @[simp]
    theorem RootPairing.mem_wallIndices {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} {x : M} {i : ↥b.support} :
    i ∈ P.wallIndices b x ↔ (P.coroot' ↑i) x = 0

    A simple root lies in RootPairing.wallIndices exactly when its coroot vanishes on the weight.

    @[simp]
    theorem RootPairing.wallIndices_smul {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} [NoZeroDivisors R] {c : R} (hc : c ≠ 0) (x : M) :
    P.wallIndices b (c • x) = P.wallIndices b x

    A nonzero scalar multiple of a weight lies on exactly the same simple walls.

    @[simp]
    theorem RootPairing.wallIndices_nsmul {ι : Type u} {M : Type w} {N : Type x} [AddCommGroup M] [AddCommGroup N] (P : RootPairing ι ℤ M N) (b : P.Base) {n : ℕ} (hn : n ≠ 0) (lam : M) :
    P.wallIndices b (n • lam) = P.wallIndices b lam

    A nonzero natural multiple of a weight lies on exactly the same simple walls.

    def RootPairing.minimalCosetRepNsmulEquiv {ι : Type u} {M : Type w} {N : Type x} [AddCommGroup M] [AddCommGroup N] (P : RootPairing ι ℤ M N) (b : P.Base) [Finite ι] [P.IsReduced] (lam : M) (n : ℕ) (hn : n ≠ 0) :

    Identify minimal wall-parabolic representatives before and after nonzero natural scaling. The underlying Weyl-group element is unchanged.

    Instances For
      @[simp]
      theorem RootPairing.coe_minimalCosetRepNsmulEquiv {ι : Type u} {M : Type w} {N : Type x} [AddCommGroup M] [AddCommGroup N] (P : RootPairing ι ℤ M N) (b : P.Base) [Finite ι] [P.IsReduced] (lam : M) (n : ℕ) (hn : n ≠ 0) (w : { w : ↥P.weylGroup // (TauCeti.weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) w }) :
      ↑((P.minimalCosetRepNsmulEquiv b lam n hn) w) = ↑w

      Scaling the shape preserves the Weyl-group element of a minimal representative.

      @[simp]
      theorem RootPairing.coe_minimalCosetRepNsmulEquiv_symm {ι : Type u} {M : Type w} {N : Type x} [AddCommGroup M] [AddCommGroup N] (P : RootPairing ι ℤ M N) (b : P.Base) [Finite ι] [P.IsReduced] (lam : M) (n : ℕ) (hn : n ≠ 0) (w : { w : ↥P.weylGroup // (TauCeti.weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b (n • lam)) w }) :
      ↑((P.minimalCosetRepNsmulEquiv b lam n hn).symm w) = ↑w

      Inverse scaling preserves the Weyl-group element of a minimal representative.

      theorem RootPairing.wallIndices_add_of_forall_coroot'_eq_zero {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing R] [AddCommGroup M] [Module R M] [AddCommGroup N] [Module R N] {P : RootPairing ι R M N} {b : P.Base} {x χ : M} (hχ : ∀ i ∈ b.support, (P.coroot' i) χ = 0) :
      P.wallIndices b (x + χ) = P.wallIndices b x

      Adding a weight χ killed by the simple coroots, such as a central weight, does not change the walls through a weight.

      theorem RootPairing.parabolic_wallIndices_eq_stabilizer {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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) :

      The stabilizer of a dominant weight is a standard parabolic subgroup: the one generated by the simple reflections in the walls through it.

      theorem TauCeti.inv_mul_mem_parabolic_wallIndices_iff {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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) {u w : ↥P.weylGroup} :
      u⁻¹ * w ∈ (weylCoxeterSystem P b).parabolic (P.wallIndices b lam) ↔ w • lam = u • lam

      Cosets of the stabilizer are orbit weights. Two Weyl-group elements lie in the same left coset of the standard parabolic subgroup of the walls through a dominant weight exactly when they move that weight to the same point.

      theorem TauCeti.existsUnique_isMinimalCosetRep_smul_eq {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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) (w : ↥P.weylGroup) :

      Each orbit weight of a dominant weight has a unique minimal coset representative.

      theorem TauCeti.eq_of_isMinimalCosetRep_of_smul_eq {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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) {u v : ↥P.weylGroup} (hu : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) u) (hv : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) v) (h : u • lam = v • lam) :
      u = v

      Minimal coset representatives are determined by their orbit weight.

      theorem TauCeti.bruhatLE_of_isMinimalCosetRep_of_smul_eq {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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) {v w : ↥P.weylGroup} (hv : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) v) (h : v • lam = w • lam) :

      The minimal coset representative of an orbit weight is Bruhat-below every Weyl-group element with that orbit weight.

      The reflection test #

      theorem TauCeti.bruhatStep_ofIdx_mul_of_coroot'_neg {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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} (hlam : lam ∈ P.dominantChamber b) {w : ↥P.weylGroup} {β : ι} (hβ : b.IsPos β) (hneg : (P.coroot' β) (w • lam) < 0) :

      Reflection test in the Weyl group. Reflecting in a positive root β with ⟨w λ, β^∨⟩ < 0 moves w one step down the Bruhat graph: s_β w < w, since the root w⁻¹ β pairs negatively with the dominant weight λ and so is a negative root.

      theorem TauCeti.coroot'_smul_nonneg_of_not_isLeftDescent {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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} (hlam : lam ∈ P.dominantChamber b) {w : ↥P.weylGroup} {i : ↥b.support} (hi : ¬(weylCoxeterSystem P b).IsLeftDescent w i) :
      0 ≤ (P.coroot' ↑i) (w • lam)

      A simple reflection that does not shorten w pairs nonnegatively. If sᵢ is not a left descent of w, then ⟨w λ, αᵢ^∨⟩ ≥ 0 for every dominant λ.

      theorem TauCeti.coroot'_smul_nonpos_of_isLeftDescent {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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} (hlam : lam ∈ P.dominantChamber b) {w : ↥P.weylGroup} {i : ↥b.support} (hi : (weylCoxeterSystem P b).IsLeftDescent w i) :
      (P.coroot' ↑i) (w • lam) ≤ 0

      A left descent pairs nonpositively. If sᵢ is a left descent of w, then ⟨w λ, αᵢ^∨⟩ ≤ 0 for every dominant λ.

      theorem TauCeti.bruhatLE_and_ne_of_isMinimalCosetRep_of_coroot'_neg {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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) {v w : ↥P.weylGroup} (hv : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) v) {β : ι} (hvw : v • lam = (RootPairing.weylGroup.ofIdx P β * w) • lam) (hβ : b.IsPos β) (hneg : (P.coroot' β) (w • lam) < 0) :

      Reflection test, negative pairing. Let β be a positive root with ⟨w λ, β^∨⟩ < 0, and let v be the minimal coset representative of s_β w, so v λ = s_β (w λ). Then v < w in the Bruhat order. Here w is arbitrary; it need not be minimal in its own coset.

      theorem TauCeti.bruhatLE_and_ne_of_isMinimalCosetRep_of_coroot'_pos {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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) {u w : ↥P.weylGroup} (hu : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) u) {β : ι} (hwu : w • lam = (RootPairing.weylGroup.ofIdx P β * u) • lam) (hβ : b.IsPos β) (hpos : 0 < (P.coroot' β) (u • lam)) :

      Reflection test, positive pairing. Let u be a minimal coset representative and β a positive root with ⟨u λ, β^∨⟩ > 0. Then u < w in the Bruhat order for every w with w λ = s_β (u λ), in particular for the minimal coset representative of s_β u.

      theorem TauCeti.eq_of_isMinimalCosetRep_of_coroot'_eq_zero {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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) {u v : ↥P.weylGroup} (hu : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) u) (hv : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) v) {β : ι} (hvu : v • lam = (RootPairing.weylGroup.ofIdx P β * u) • lam) (hzero : (P.coroot' β) (u • lam) = 0) :
      v = u

      Reflection test, zero pairing. If ⟨u λ, β^∨⟩ = 0, then s_β fixes u λ, so u and s_β u have the same minimal coset representative.

      theorem TauCeti.bruhatLE_and_ne_iff_coroot'_neg_of_isMinimalCosetRep {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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) {u v : ↥P.weylGroup} (hu : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) u) (hv : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) v) {β : ι} (hvu : v • lam = (RootPairing.weylGroup.ofIdx P β * u) • lam) (hβ : b.IsPos β) :
      (weylCoxeterSystem P b).BruhatLE v u ∧ v ≠ u ↔ (P.coroot' β) (u • lam) < 0

      The reflection test characterizes the strict Bruhat order on minimal coset representatives. If u and v are the minimal coset representatives of u and s_β u for a positive root β, then v < u exactly when ⟨u λ, β^∨⟩ < 0.

      theorem TauCeti.eq_iff_coroot'_eq_zero_of_isMinimalCosetRep {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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) {u v : ↥P.weylGroup} (hu : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) u) (hv : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) v) {β : ι} (hvu : v • lam = (RootPairing.weylGroup.ofIdx P β * u) • lam) :
      v = u ↔ (P.coroot' β) (u • lam) = 0

      The reflection test characterizes equal cosets. If u and v are the minimal coset representatives of u and s_β u for a root β, then v = u exactly when ⟨u λ, β^∨⟩ = 0.

      Covers crossing a simple wall #

      theorem TauCeti.reflection_smul_eq_of_minimalCosetRepCovBy_of_coroot'_neg {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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) (hx : (P.coroot' ↑i) (x • lam) < 0) (hy : 0 ≤ (P.coroot' ↑i) (y • lam)) :
      (P.reflection ↑i) (x • lam) = y • lam

      A cover leaving the negative side of a simple wall is the simple reflection. If y ⋖ x is a cover of W / W_λ and αᵢ is a simple root with ⟨x λ, αᵢ^∨⟩ < 0 ≤ ⟨y λ, αᵢ^∨⟩, then y λ = sᵢ (x λ). By the reflection test the minimal representative v of sᵢ x lies strictly below x; since sᵢ does not shorten y, the lifting property gives y ≤ v, and the cover forces y = v.

      Left multiplication by a simple reflection #

      theorem TauCeti.simple_mul_smul_eq_reflection {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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) :
      ((weylCoxeterSystem P b).simple i * u) • lam = (P.reflection ↑i) (u • lam)

      Left multiplication by the simple reflection sᵢ acts on orbit weights as the reflection in αᵢ.

      theorem TauCeti.coroot'_simple_mul_smul_eq_neg {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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.coroot' ↑i) (((weylCoxeterSystem P b).simple i * u) • lam) = -(P.coroot' ↑i) (u • lam)

      ⟨(sᵢ u) λ, αᵢ^∨⟩ = -⟨u λ, αᵢ^∨⟩.

      theorem TauCeti.isMinimalCosetRep_simple_mul_of_coroot'_ne_zero {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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} {u : ↥P.weylGroup} (hu : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) u) {i : ↥b.support} (hi : (P.coroot' ↑i) (u • lam) ≠ 0) :

      A simple reflection off the wall keeps a minimal coset representative minimal. If u is a minimal coset representative of W / W_λ and ⟨u λ, αᵢ^∨⟩ ≠ 0, then sᵢ u is a minimal coset representative too.

      theorem TauCeti.minimalCosetRepCovBy_simple_mul_of_coroot'_pos {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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} (hlam : lam ∈ P.dominantChamber b) {u : ↥P.weylGroup} (hu : (weylCoxeterSystem P b).IsMinimalCosetRep (P.wallIndices b lam) u) {i : ↥b.support} (hi : 0 < (P.coroot' ↑i) (u • lam)) :

      A simple reflection on the positive side of its wall covers. If u is a minimal coset representative of W / W_λ with ⟨u λ, αᵢ^∨⟩ > 0, then u ⋖ sᵢ u. Its bond is ⟨u λ, αᵢ^∨⟩, by TauCeti.reflectionBond_simple_mul_smul_smul.

      theorem TauCeti.minimalCosetRepCovBy_simple_mul_simple_mul_of_coroot'_pos {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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} (hlam : lam ∈ P.dominantChamber b) {x y : ↥P.weylGroup} (h : (weylCoxeterSystem P b).MinimalCosetRepCovBy (P.wallIndices b lam) y x) {i : ↥b.support} (hy : 0 < (P.coroot' ↑i) (y • lam)) (hx : 0 < (P.coroot' ↑i) (x • lam)) :

      sᵢ moves covers on the positive side of its wall up. If y ⋖ x in W / W_λ with ⟨x λ, αᵢ^∨⟩ > 0 and ⟨y λ, αᵢ^∨⟩ > 0, then sᵢ y ⋖ sᵢ x.

      theorem TauCeti.minimalCosetRepCovBy_simple_mul_simple_mul_of_coroot'_neg {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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} (hlam : lam ∈ P.dominantChamber b) {x y : ↥P.weylGroup} (h : (weylCoxeterSystem P b).MinimalCosetRepCovBy (P.wallIndices b lam) y x) {i : ↥b.support} (hy : (P.coroot' ↑i) (y • lam) < 0) (hx : (P.coroot' ↑i) (x • lam) < 0) :

      sᵢ moves covers on the negative side of its wall down. If y ⋖ x in W / W_λ with ⟨x λ, αᵢ^∨⟩ < 0 and ⟨y λ, αᵢ^∨⟩ < 0, then sᵢ y ⋖ sᵢ x.

      theorem TauCeti.eq_simple_mul_of_minimalCosetRepCovBy_of_coroot'_nonpos {ι : Type u} {R : Type v} {M : Type w} {N : Type x} [CommRing 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) (hx : (P.coroot' ↑i) (x • lam) ≤ 0) (hy : 0 < (P.coroot' ↑i) (y • lam)) :

      A cover leaving the nonpositive side of a simple wall is given by the simple reflection. If y ⋖ x in W / W_λ with ⟨x λ, αᵢ^∨⟩ ≤ 0 < ⟨y λ, αᵢ^∨⟩, then x = sᵢ y.