Formal coordinates on the annihilator of a Lie subalgebra

Lax825748.Annihilator · concepts/Lax825748/Annihilator.lean · lax-825748

proven

Loading review…

Sign in with ORCID

Community review

Flags

Each flag is tied to a public ORCID identity and explains why this concept may be incorrect.

No flags have been submitted.

    Community review

    Flag this concept

    State precisely what appears incorrect. This explanation will be public under your ORCID name.

    No source line selected.

    Natural Language Statement

    Theorem

    Proposition 1. Let L0L_0 be a Lie subalgebra of the Lie polynomials and let P1,…,PdP_1,\ldots,P_d represent a basis modulo L0L_0. Set J=R⟨X⟩L0J=\mathbb R\langle X\rangle L_0. If the zero-constant series SiS_i vanish on JJ and satisfy (Si,Pj)=δij(S_i,P_j)=\delta_{ij}, substitution of the SiS_i into commutative formal series is a bijection onto J⊥J^\perp.

    Substitution is defined coefficient by coefficient using a finite truncation: at a word of length nn, only monomials of degree at most nn contribute. There exist such coordinates dual to the degree-one PBW monomials. For these coordinates the coefficient of SIS^I in T∈J⊥T\in J^\perp is (T,PI)/I!(T,P^I)/I!. The annihilator is closed under the shuffle and all right residuals.

    Concept map
    8 concepts
    100%
    Proven claimDefinitionThis conceptRelated conceptA → B: B builds on ADescendants are omitted for concepts with more than 10 descendants.
    Evidence

    In the paper

    • page 7 of this submission's paper

    Lean source view on GitHub

    1import Lax825748.PBW
    2import Lax825748.ShuffleIdentities
    3import Lax825748.FormalSeries
    4import Mathlib.RingTheory.Ideal.Span
    5
    6/-!
    7---
    8title: Formal coordinates on the annihilator of a Lie subalgebra
    9type: theorem
    10---
    11Proposition 1. Let L0L_0 be a Lie subalgebra of the Lie polynomials and let
    12P1,…,PdP_1,\ldots,P_d represent a basis modulo L0L_0. Set
    13J=R⟨X⟩L0J=\mathbb R\langle X\rangle L_0. If the zero-constant series SiS_i vanish
    14on JJ and satisfy (Si,Pj)=δij(S_i,P_j)=\delta_{ij}, substitution of the SiS_i into
    15commutative formal series is a bijection onto J⊥J^\perp.
    16
    17Substitution is defined coefficient by coefficient using a finite truncation:
    18at a word of length nn, only monomials of degree at most nn contribute.
    19There exist such coordinates dual to the degree-one PBW monomials. For these
    20coordinates the coefficient of SIS^I in T∈J⊥T\in J^\perp is (T,PI)/I!(T,P^I)/I!.
    21The annihilator is closed under the shuffle and all right residuals.
    22-/
    23
    24noncomputable section
    25
    26namespace Lax825748.Annihilator
    27
    28open Series LieRank Monomials Shuffle ShuffleIdentities FormalSeries
    29
    30abbrev LieSubalgebraOfPolynomials (X : Type) := LieSubalgebra ℝ (LiePolynomial X)
    31
    32noncomputable def generatedIdeal {X : Type} (K : LieSubalgebraOfPolynomials X) :
    33 Ideal (NCPolynomial X) :=
    34 Ideal.span {P | ∃ k : K, P = k.val.val}
    35
    36def InAnnihilator {X : Type} (K : LieSubalgebraOfPolynomials X) (S : NCSeries X) : Prop :=
    37 ∀ P ∈ generatedIdeal K, pairing S P = 0
    38
    39def IsComplement {X : Type} {d : ℕ} (K : LieSubalgebraOfPolynomials X)
    40 (P : Fin d → LiePolynomial X) : Prop :=
    41 LinearIndependent ℝ (fun i => K.toSubmodule.mkQ (P i)) ∧
    42 Submodule.span ℝ (Set.range fun i => K.toSubmodule.mkQ (P i)) = ⊤
    43
    44def IsCoordinateFamily {X : Type} {d : ℕ} (K : LieSubalgebraOfPolynomials X)
    45 (P : Fin d → LiePolynomial X) (S : Fin d → NCSeries X) : Prop :=
    46 (∀ i, S i 1 = 0) ∧ (∀ i, InAnnihilator K (S i)) ∧
    47 ∀ i j, pairing (S i) (P j).val = if i = j then 1 else 0
    48
    49noncomputable def substituteShuffle {X : Type} {d : ℕ}
    50 (S : Fin d → NCSeries X) (f : StateSeries d) : NCSeries X :=
    51 fun w => (AddMonoidAlgebra.coeff
    52 (MvPowerSeries.truncTotal (w.toList.length + 1) f)).sum
    53 fun I a => a * shuffleMonomial S I w
    54
    55def IsPBWCoordinateFamily {X : Type} {d : ℕ}
    56 (P : Fin d → LiePolynomial X) (S : Fin d → NCSeries X) : Prop :=
    57 ∀ i (I : Fin d →₀ ℕ),
    58 pairing (S i) (orderedPowers (fun j => (P j).val) I) =
    59 if I = Finsupp.single i 1 then 1 else 0
    60
    61axiom coordinates_exist {X : Type} {d : ℕ} (K : LieSubalgebraOfPolynomials X)
    62 (P : Fin d → LiePolynomial X) (hP : IsComplement K P) :
    63 ∃ S : Fin d → NCSeries X, IsCoordinateFamily K P S ∧ IsPBWCoordinateFamily P S
    64
    65axiom formal_coordinates {X : Type} {d : ℕ} (K : LieSubalgebraOfPolynomials X)
    66 (P : Fin d → LiePolynomial X) (hP : IsComplement K P)
    67 (S : Fin d → NCSeries X) (hS : IsCoordinateFamily K P S) :
    68 ∀ T : NCSeries X, InAnnihilator K T ↔ ∃! f : StateSeries d, substituteShuffle S f = T
    69
    70axiom pbw_expansion {X : Type} {d : ℕ} (K : LieSubalgebraOfPolynomials X)
    71 (P : Fin d → LiePolynomial X) (hP : IsComplement K P)
    72 (S : Fin d → NCSeries X) (hS : IsCoordinateFamily K P S)
    73 (hPBW : IsPBWCoordinateFamily P S) (T : NCSeries X) (hT : InAnnihilator K T) :
    74 ∃ f : StateSeries d, substituteShuffle S f = T ∧
    75 ∀ I : Fin d →₀ ℕ, MvPowerSeries.coeff I f =
    76 pairing T (orderedPowers (fun j => (P j).val) I) / (multiFactorial I : ℝ)
    77
    78axiom closed_shuffle {X : Type} (K : LieSubalgebraOfPolynomials X)
    79 (S T : NCSeries X) (hS : InAnnihilator K S) (hT : InAnnihilator K T) :
    80 InAnnihilator K (shuffle S T)
    81
    82axiom closed_residual {X : Type} (K : LieSubalgebraOfPolynomials X)
    83 (S : NCSeries X) (hS : InAnnihilator K S) (P : NCPolynomial X) :
    84 InAnnihilator K (rightResidual S P)
    85
    86end Lax825748.Annihilator
    87
    Show ProofShow ProofShow ProofShow ProofShow Proof

    Discussion

    Ask a question or add context. Endorsements and structured flags are kept in the review panel above.

    Loading discussion…