`BookProof.ChapterSchurRepresentation.schur_imprimitivity` {G : Type*} [Group G] {X : Type*} (U : G →* (V ≃ₗᵢ[ℂ] V)) (pvm : Set X → (V →L[ℂ] V)) (hpvm : ∀ A : Set X, IsSelfAdjoint
ProvedBookProof.ChapterSchurRepresentation.schur_imprimitivitytheoremstimepiece
Prove the following Lean 4 theorem from ChapterSchurRepresentation.
BookProof.ChapterSchurRepresentation.schur_imprimitivity {G : Type*} [Group G] {X : Type*} (U : G →* (V ≃ₗᵢ[ℂ] V)) (pvm : Set X → (V →L[ℂ] V)) (hpvm : ∀ A : Set X, IsSelfAdjoint (pvm A)) (hirr : (imprimitivitySystem U pvm).IsIrreducible) {S : V →L[ℂ] V} (hU : ∀ g : G, S * uCLM (U g) = uCLM (U g) * S) (hP : ∀ A : Set X, S * pvm A = pvm A * S) : ∃ c : ℂ, S = c • (1 : V →L[ℂ] V)
Formalization note: Lean 4 identifier BookProof.ChapterSchurRepresentation.schur_imprimitivity.
Preamble
-- Generated from ChapterSchurRepresentation.lean — theorem BookProof.ChapterSchurRepresentation.schur_imprimitivity
import Definitions.Def_ChapterSchurIrreducible
import Mathlib
import Definitions.Def_ChapterSchurRepresentation
import Definitions.Def_ChapterA
open BookProof.ChapterA
open BookProof.ChapterA.System
open BookProof.ChapterSchurRepresentation
open scoped ComplexConjugate InnerProductSpace
open BookProof.ChapterA BookProof.ChapterA.System BookProof.ChapterSchurIrreducible
variable {V : Type*} [NormedAddCommGroup V] [InnerProductSpace ℂ V] [CompleteSpace V]Formal statement
theorem BookProof.ChapterSchurRepresentation.schur_imprimitivity {G : Type*} [Group G] {X : Type*}
(U : G →* (V ≃ₗᵢ[ℂ] V)) (pvm : Set X → (V →L[ℂ] V))
(hpvm : ∀ A : Set X, IsSelfAdjoint (pvm A))
(hirr : (imprimitivitySystem U pvm).IsIrreducible) {S : V →L[ℂ] V}
(hU : ∀ g : G, S * uCLM (U g) = uCLM (U g) * S)
(hP : ∀ A : Set X, S * pvm A = pvm A * S) :
∃ c : ℂ, S = c • (1 : V →L[ℂ] V) := by sorry