def
ExtOVanishes
{R : Type u_1}
[CommRing R]
{π€ : Type u_2}
[LieRing π€]
[LieAlgebra R π€]
{Ξ : TriangularDecomposition R π€}
{rd : PositiveRootData Ξ}
:
β β
(X : Type uCatO) β
[inst : AddCommGroup X] β
[instβ : Module R X] β
[instβΒΉ : LieRingModule π€ X] β
[instβΒ² : LieModule R π€ X] β
IsCategoryO Ξ rd X β
(Y : Type uCatO) β
[instβΒ³ : AddCommGroup Y] β
[instββ΄ : Module R Y] β
[instββ΅ : LieRingModule π€ Y] β [instββΆ : LieModule R π€ Y] β IsCategoryO Ξ rd Y β Prop
Instances For
theorem
projective_in_O_is_nminus_retract_of_free
{R : Type u_3}
[Field R]
{π€ : Type u_4}
[LieRing π€]
[LieAlgebra R π€]
{Ξ : TriangularDecomposition R π€}
{rd : PositiveRootData Ξ}
{wg : WeylGroupData Ξ}
{P : Type uCatO}
[AddCommGroup P]
[Module R P]
[LieRingModule π€ P]
[LieModule R π€ P]
(_hPO : IsCategoryO Ξ rd P)
(_hPproj : IsProjectiveInO rd P _hPO)
:
β (Q : Type uCatO) (x : AddCommGroup Q) (x_1 : Module R Q) (x_2 : LieRingModule π€ Q) (x_3 : LieModule R π€ Q),
Module.Free (UniversalEnvelopingAlgebra R β₯Ξ.π«_neg) Q β§ β (ΞΉ : P ββ[UniversalEnvelopingAlgebra R β₯Ξ.π«_neg] Q) (s : Q ββ[UniversalEnvelopingAlgebra R β₯Ξ.π«_neg] P),
s ββ ΞΉ = LinearMap.id
theorem
quillen_suslin_UEA_nminus
{R : Type u_3}
[CommRing R]
{π€ : Type u_4}
[LieRing π€]
[LieAlgebra R π€]
{Ξ : TriangularDecomposition R π€}
{P : Type uCatO}
[AddCommGroup P]
[Module R P]
[LieRingModule π€ P]
[LieModule R π€ P]
[Module (UniversalEnvelopingAlgebra R β₯Ξ.π«_neg) P]
:
Module.Projective (UniversalEnvelopingAlgebra R β₯Ξ.π«_neg) P β Module.Free (UniversalEnvelopingAlgebra R β₯Ξ.π«_neg) P
theorem
nminus_projective_is_free
{R : Type u_1}
[CommRing R]
{π€ : Type u_2}
[LieRing π€]
[LieAlgebra R π€]
{Ξ : TriangularDecomposition R π€}
{P : Type uCatO}
[AddCommGroup P]
[Module R P]
[LieRingModule π€ P]
[LieModule R π€ P]
:
Module.Projective (UniversalEnvelopingAlgebra R β₯Ξ.π«_neg) P β Module.Free (UniversalEnvelopingAlgebra R β₯Ξ.π«_neg) P
theorem
projective_in_O_is_free_nminus
{R : Type u_3}
[Field R]
{π€ : Type u_4}
[LieRing π€]
[LieAlgebra R π€]
{Ξ : TriangularDecomposition R π€}
{rd : PositiveRootData Ξ}
{wg : WeylGroupData Ξ}
{P : Type uCatO}
[AddCommGroup P]
[Module R P]
[LieRingModule π€ P]
[LieModule R π€ P]
(hPO : IsCategoryO Ξ rd P)
(_hPproj : IsProjectiveInO rd P hPO)
:
theorem
UEA_induction_on
{R : Type u_1}
[CommRing R]
{L : Type u_3}
[LieRing L]
[LieAlgebra R L]
{C : UniversalEnvelopingAlgebra R L β Prop}
(u : UniversalEnvelopingAlgebra R L)
(h_alg : β (r : R), C ((algebraMap R (UniversalEnvelopingAlgebra R L)) r))
(h_ΞΉ : β (x : L), C ((UniversalEnvelopingAlgebra.ΞΉ R) x))
(h_mul : β (a b : UniversalEnvelopingAlgebra R L), C a β C b β C (a * b))
(h_add : β (a b : UniversalEnvelopingAlgebra R L), C a β C b β C (a + b))
:
C u
theorem
lieModuleHom_ueaSubalg_compat
{R : Type u_1}
[CommRing R]
{π€ : Type u_2}
[LieRing π€]
[LieAlgebra R π€]
{Ξ : TriangularDecomposition R π€}
{M : Type u_3}
{N : Type u_4}
[AddCommGroup M]
[Module R M]
[LieRingModule π€ M]
[LieModule R π€ M]
[AddCommGroup N]
[Module R N]
[LieRingModule π€ N]
[LieModule R π€ N]
(f : M βββ
R,π€β N)
(u : UniversalEnvelopingAlgebra R β₯Ξ.π«_neg)
(m : M)
:
noncomputable def
lieModuleHomToUEALinearMap
{R : Type u_1}
[CommRing R]
{π€ : Type u_2}
[LieRing π€]
[LieAlgebra R π€]
{Ξ : TriangularDecomposition R π€}
{M N : Type uCatO}
[AddCommGroup M]
[Module R M]
[LieRingModule π€ M]
[LieModule R π€ M]
[AddCommGroup N]
[Module R N]
[LieRingModule π€ N]
[LieModule R π€ N]
(f : M βββ
R,π€β N)
:
Instances For
theorem
direct_summand_of_free_nminus_is_free
{R : Type u_1}
[CommRing R]
{π€ : Type u_2}
[LieRing π€]
[LieAlgebra R π€]
{Ξ : TriangularDecomposition R π€}
{P : Type uCatO}
[AddCommGroup P]
[Module R P]
[LieRingModule π€ P]
[LieModule R π€ P]
(_hPfree : IsFreeOverNMinus P)
{X : Type uCatO}
[AddCommGroup X]
[Module R X]
[LieRingModule π€ X]
[LieModule R π€ X]
(_hXfree : IsFreeOverNMinus X)
{K : Type uCatO}
[AddCommGroup K]
[Module R K]
[LieRingModule π€ K]
[LieModule R π€ K]
(_ΞΉ : K βββ
R,π€β P)
(_hΞΉ : Function.Injective β_ΞΉ)
(_p : P βββ
R,π€β X)
(_hp : Function.Surjective β_p)
(_hexact : β (q : P), _p q = 0 β β (k : K), _ΞΉ k = q)
:
theorem
kernel_of_projective_over_free_nminus_is_free
{R : Type u_3}
[Field R]
{π€ : Type u_4}
[LieRing π€]
[LieAlgebra R π€]
{Ξ : TriangularDecomposition R π€}
{rd : PositiveRootData Ξ}
{wg : WeylGroupData Ξ}
{X : Type uCatO}
[AddCommGroup X]
[Module R X]
[LieRingModule π€ X]
[LieModule R π€ X]
(_hXO : IsCategoryO Ξ rd X)
(hXfree : IsFreeOverNMinus X)
{K : Type uCatO}
[AddCommGroup K]
[Module R K]
[LieRingModule π€ K]
[LieModule R π€ K]
(_hKO : IsCategoryO Ξ rd K)
{P : Type uCatO}
[AddCommGroup P]
[Module R P]
[LieRingModule π€ P]
[LieModule R π€ P]
(_hPO : IsCategoryO Ξ rd P)
(_hPproj : IsProjectiveInO rd P _hPO)
(ΞΉ : K βββ
R,π€β P)
(_hΞΉ : Function.Injective βΞΉ)
(p : P βββ
R,π€β X)
(_hp : Function.Surjective βp)
(hexact : β (q : P), p q = 0 β β (k : K), ΞΉ k = q)
:
theorem
ext_vanishing_free_nminus
{R : Type u_3}
[Field R]
{π€ : Type u_4}
[LieRing π€]
[LieAlgebra R π€]
{Ξ : TriangularDecomposition R π€}
{rd : PositiveRootData Ξ}
{wg : WeylGroupData Ξ}
{X : Type uCatO}
[AddCommGroup X]
[Module R X]
[LieRingModule π€ X]
[LieModule R π€ X]
(hXO : IsCategoryO Ξ rd X)
(hXfree : IsFreeOverNMinus X)
(mu : β₯Ξ.π₯ ββ[R] R)
(MmuDual : Type uCatO)
[AddCommGroup MmuDual]
[Module R MmuDual]
[LieRingModule π€ MmuDual]
[LieModule R π€ MmuDual]
(hMmuDualO : IsCategoryO Ξ rd MmuDual)
(hMmuDual : IsContragredientVerma rd MmuDual mu hMmuDualO)
(i : β)
(hi : i > 0)
:
ExtOVanishes i X hXO MmuDual hMmuDualO
theorem
standardly_filtered_higher_ext_vanishing
{R : Type u_3}
[Field R]
{π€ : Type u_4}
[LieRing π€]
[LieAlgebra R π€]
{Ξ : TriangularDecomposition R π€}
{rd : PositiveRootData Ξ}
{wg : WeylGroupData Ξ}
{X : Type uCatO}
[AddCommGroup X]
[Module R X]
[LieRingModule π€ X]
[LieModule R π€ X]
(hXO : IsCategoryO Ξ rd X)
(hSF : HasStandardFiltration rd X hXO)
(mu : β₯Ξ.π₯ ββ[R] R)
(MmuDual : Type uCatO)
[AddCommGroup MmuDual]
[Module R MmuDual]
[LieRingModule π€ MmuDual]
[LieModule R π€ MmuDual]
(hMmuDualO : IsCategoryO Ξ rd MmuDual)
(hMmuDual : IsContragredientVerma rd MmuDual mu hMmuDualO)
(i : β)
(hi : i > 0)
:
ExtOVanishes i X hXO MmuDual hMmuDualO
theorem
nonsplit_verma_ext_implies_comp_mult
{R : Type u_3}
[CommRing R]
{π€ : Type u_4}
[LieRing π€]
[LieAlgebra R π€]
{Ξ : TriangularDecomposition R π€}
(rd : PositiveRootData Ξ)
(wg : WeylGroupData Ξ)
(lam mu : β₯Ξ.π₯ ββ[R] R)
{Mlam : Type uCatO}
[AddCommGroup Mlam]
[Module R Mlam]
[LieRingModule π€ Mlam]
[LieModule R π€ Mlam]
(hMlam : IsVermaModule Ξ Mlam lam)
(hMlamO : IsCategoryO Ξ rd Mlam)
{Mmu : Type uCatO}
[AddCommGroup Mmu]
[Module R Mmu]
[LieRingModule π€ Mmu]
[LieModule R π€ Mmu]
(hMmu : IsVermaModule Ξ Mmu mu)
(hMmuO : IsCategoryO Ξ rd Mmu)
(E : Type uCatO)
[AddCommGroup E]
[Module R E]
[LieRingModule π€ E]
[LieModule R π€ E]
(hEO : IsCategoryO Ξ rd E)
(i : Mlam βββ
R,π€β E)
(hi : Function.Injective βi)
(p : E βββ
R,π€β Mmu)
(hp : Function.Surjective βp)
(hns : Β¬β (s : Mmu βββ
R,π€β E), β (x : Mmu), p (s x) = x)
: