Second cup-product square: δ¹csmile y-csmileδ⁰y is a level coboundary
ProvedgroupCohomology.cup20_deltaCochain1_sub_cup_deltaCochain0_mem_levelCoboundaries2Fix a commutative ring , a group and a homomorphism , together with -linear -representations . Assume given morphisms and with surjective on underlying modules and with if and only if lies in the image of ; and morphisms , with surjective and if and only if lies in the image of . Assume given -bilinear pairings , and , where satisfies for all , subject to the compatibilities and . Assume further that every is fixed by all with in the fixing subgroup of some finite extension inside (a smoothness condition on relative to ). Let be a -cocycle of satisfying IsLevelConstant₁ r, and let be -invariant. Then the -cochain , the second term being cupCochain φ'' applied to and the connecting -cochain of , belongs to levelCoboundaries₂ r N.
This is the cochain-level anticommutation of the cup product with the two connecting maps in bidegrees and : it expresses that and agree in the level-constant (continuous) of , for a level-constant -cocycle of and a -invariant . It is used in the proof that the duality map attached to a short exact sequence is bijective (groupCohomology.bijective_theta_of_shortExact).
import Mathlib import Definitions.Def_GroupCohomology_ContinuousH2 import Definitions.Def_GroupCohomology_ContinuousH1 import Definitions.Def_GroupCohomology_CupProduct set_option maxHeartbeats 4000000 set_option synthInstance.maxHeartbeats 400000 set_option backward.isDefEq.respectTransparency.types false set_option autoImplicit false universe u open CategoryTheory open groupCohomology
theorem groupCohomology.cup20_deltaCochain1_sub_cup_deltaCochain0_mem_levelCoboundaries2
{k G : Type u} [CommRing k] [Group G]
(r : G →* (AlgebraicClosure ℚ ≃ₐ[ℚ] AlgebraicClosure ℚ))
{M' M M'' D'' D D' N : Rep.{u} k G}
(i : M' ⟶ M) (π : M ⟶ M'') (hπ : Function.Surjective π.hom)
(hex : ∀ m : M, π.hom m = 0 ↔ ∃ m' : M', i.hom m' = m)
(πD : D'' ⟶ D) (iD : D ⟶ D') (hiD : Function.Surjective iD.hom)
(hexD : ∀ x : D, iD.hom x = 0 ↔ ∃ y : D'', πD.hom y = x)
(φ' : M' →ₗ[k] D' →ₗ[k] N)
(φ : M →ₗ[k] D →ₗ[k] N) (hφ : Rep.IsEquivariantBilinear M D N φ)
(φ'' : M'' →ₗ[k] D'' →ₗ[k] N)
(hcompat_i : ∀ (m' : M') (x : D), φ (i.hom m') x = φ' m' (iD.hom x))
(hcompat_π : ∀ (m : M) (y : D''), φ m (πD.hom y) = φ'' (π.hom m) y)
(hsmD : ∀ x : D, ∃ F : IntermediateField ℚ (AlgebraicClosure ℚ), FiniteDimensional ℚ F ∧
∀ s, r s ∈ F.fixingSubgroup → D.ρ s x = x)
(c : cocycles₁ M'') (hc : IsLevelConstant₁ r (⇑c))
(y : D') (hy : ∀ s, D'.ρ s y = y) :
((fun st : G × G => φ' (deltaCochain₁ i π hπ (⇑c) st) (D'.ρ (st.1 * st.2) y))
- cupCochain φ'' (⇑c) (deltaCochain₀ πD iD hiD y))
∈ levelCoboundaries₂ r N := by sorry