Semi-local Shapiro–Mackey injectivity in degree two for coinduced modules
ProvedgroupCohomology.res_coind_mem_levelCoboundaries2_of_forall_apply_mem_levelCoboundaries2Let be a commutative ring, a -module, a group, and let denote the group of -algebra automorphisms of , with a group homomorphism. Let be a normal subgroup which is open in the sense that there is an intermediate field of in , finite-dimensional over , whose fixing subgroup is contained in . Let be a set-theoretic section, so maps to for every . Let be a -cochain with values in the -trivial module coinduced along and then restricted along , and assume lies in groupCohomology.levelCocycles₂ for and this representation. Assume further that for every the map on , obtained by evaluating the coinduced functions at , lies in groupCohomology.levelCoboundaries₂ for composed with the inclusion of and the trivial -module . Then itself lies in groupCohomology.levelCoboundaries₂ for and .
This is the injectivity half, at the level of the project's level cocycles and coboundaries, of the semi-local Shapiro–Mackey description of degree-two cohomology of as a product of copies of indexed by the double cosets : a level -cocycle all of whose components are level coboundaries is itself a level coboundary. It is used in the construction of a global class with prescribed local restrictions, through groupCohomology.exists_forall_locRes_continuousH2S_coind_trivial_eq_add_smul.
import Mathlib import Definitions.Def_GroupCohomology_ContinuousH2 set_option maxHeartbeats 4000000 set_option synthInstance.maxHeartbeats 400000 set_option backward.isDefEq.respectTransparency.types false set_option autoImplicit false universe u open CategoryTheory
theorem groupCohomology.res_coind_mem_levelCoboundaries2_of_forall_apply_mem_levelCoboundaries2
{k : Type u} [CommRing k] {V : Type u} [AddCommGroup V] [Module k V]
{G : Type u} [Group G] (r : G →* (AlgebraicClosure ℚ ≃ₐ[ℚ] AlgebraicClosure ℚ))
(U : Subgroup (AlgebraicClosure ℚ ≃ₐ[ℚ] AlgebraicClosure ℚ)) [U.Normal]
(hU : ∃ F₀ : IntermediateField ℚ (AlgebraicClosure ℚ), FiniteDimensional ℚ F₀ ∧ F₀.fixingSubgroup ≤ U)
(γ : (AlgebraicClosure ℚ ≃ₐ[ℚ] AlgebraicClosure ℚ) ⧸ (U ⊔ r.range) → (AlgebraicClosure ℚ ≃ₐ[ℚ] AlgebraicClosure ℚ))
(hγ : ∀ t, (γ t : (AlgebraicClosure ℚ ≃ₐ[ℚ] AlgebraicClosure ℚ) ⧸ (U ⊔ r.range)) = t)
(c : G × G → Rep.res r (Rep.coind U.subtype (Rep.trivial k ↥U V)))
(hc : c ∈ groupCohomology.levelCocycles₂ r (Rep.res r (Rep.coind U.subtype (Rep.trivial k ↥U V))))
(h : ∀ t, (fun d : ↥(U.comap r) × ↥(U.comap r) =>
((c ((d.1 : G), (d.2 : G)) : Rep.coind U.subtype (Rep.trivial k ↥U V)) :
(AlgebraicClosure ℚ ≃ₐ[ℚ] AlgebraicClosure ℚ) → V) (γ t))
∈ groupCohomology.levelCoboundaries₂ (r.comp (U.comap r).subtype) (Rep.trivial k ↥(U.comap r) V)) :
c ∈ groupCohomology.levelCoboundaries₂ r (Rep.res r (Rep.coind U.subtype (Rep.trivial k ↥U V))) := by sorry