Invariants of C ⊗ N as equivariant level-constant maps
ProvedgroupCohomology.nonempty_invariants_tensor_linearEquiv_eqLevelConstantHomFix a prime (as a Fact), a finite set of rational primes, a group in the zeroth universe with a normal subgroup , a homomorphism , a character , and two representations of over , with finite-dimensional over . Assume given a -linear isomorphism from onto the submodule levelConstantHom of maps , that is, the maps with for all which satisfy the predicate IsLevelConstantSr₁ for the restriction and the set ; and assume the twisted equivariance hypothesis : for all , and with one has . The conclusion asserts that the type of -linear equivalences between the -invariants of the representation on the tensor product in and the submodule eqLevelConstantHom of maps is nonempty; the latter consists of those which are additive, satisfy IsLevelConstantSr₁ for and with values in , and obey whenever . Only the existence of such an equivalence is asserted, no particular map being named.
This is the coefficient-moving step in the identification of restricted cohomology classes with level-constant homomorphisms: having described as the additive -level-constant -valued characters of , -equivariantly, it computes as the -equivariant -level-constant maps with coefficients twisted by . It is used in the comparison of the dimension of the restricted-inflated with that of the invariants of a Selmer representation tensored with .
import Mathlib import Definitions.Def_GroupCohomology_ContinuousUnramified import Definitions.Def_DualSelmer_ExtConditions import Definitions.Def_ExtCitation_KummerBridge import Definitions.Def_GroupCohomology_ContinuousUnramifiedLevel import Definitions.Def_GroupCohomology_ContinuousUnramifiedLevelMap import Definitions.Def_NumberField_LevelArithmeticModP import Definitions.Def_GroupCohomology_LevelConstantHom set_option maxHeartbeats 4000000 set_option synthInstance.maxHeartbeats 400000 set_option backward.isDefEq.respectTransparency.types false set_option autoImplicit false set_option synthInstance.maxHeartbeats 400000 open CategoryTheory MonoidalCategory Module groupCohomology ExtCitation NumberField.LevelArith IsDedekindDomain open scoped Classical NumberField NumberField.LevelArith
theorem groupCohomology.nonempty_invariants_tensor_linearEquiv_eqLevelConstantHom
{p : ℕ} [Fact p.Prime] (S : Finset Nat.Primes) {Γ : Type} [Group Γ] (Sg : Subgroup Γ) [Sg.Normal]
(r : Γ →* (AlgebraicClosure ℚ ≃ₐ[ℚ] AlgebraicClosure ℚ)) (χ : Γ →* (ZMod p)ˣ)
(C N : Rep.{0} (ZMod p) Γ) [FiniteDimensional (ZMod p) N]
(e : C ≃ₗ[ZMod p] ↥(levelConstantHom (r.comp Sg.subtype) S (ZMod p) (ZMod p)))
(he : ∀ (g : Γ) (x : C) (s t : ↥Sg), (g⁻¹ * s * g : Γ) = t →
(e (C.ρ g x) : ↥Sg → ZMod p) s = ((χ g : (ZMod p)ˣ) : ZMod p) * (e x : ↥Sg → ZMod p) t) :
Nonempty ((C ⊗ N : Rep.{0} (ZMod p) Γ).ρ.invariants ≃ₗ[ZMod p] ↥(eqLevelConstantHom r S Sg (N.twist χ))) := by sorry