`BookProof.ChapterH8.compress_pow_comp_intertwine` (Vn : F →L[ℂ] E) (Vm : G →L[ℂ] E) (J : F →L[ℂ] G) (X : E →L[ℂ] E) (hJ : Vn = Vm.comp J) (hVm : (adjoint Vm).comp Vm = ContinuousL
ProvedBookProof.ChapterH8.compress_pow_comp_intertwinetimepiece
Prove the following Lean 4 theorem from ChapterH8.
BookProof.ChapterH8.compress_pow_comp_intertwine (Vn : F →L[ℂ] E) (Vm : G →L[ℂ] E) (J : F →L[ℂ] G) (X : E →L[ℂ] E) (hJ : Vn = Vm.comp J) (hVm : (adjoint Vm).comp Vm = ContinuousLinearMap.id ℂ G) (hJJ : (adjoint J).comp J = ContinuousLinearMap.id ℂ F) (hinvn : ∀ x : F, ∃ y : F, X (Vn x) = Vn y) (k : ℕ) : ((compress Vm X) ^ k).comp J = J.comp ((compress Vn X) ^ k)
Formalization note: Lean 4 identifier BookProof.ChapterH8.compress_pow_comp_intertwine.
Preamble
-- Generated from ChapterH8.lean — theorem BookProof.ChapterH8.compress_pow_comp_intertwine
import Definitions.Def_ChapterH5
import Definitions.Def_ChapterH6
import Mathlib
import Definitions.Def_ChapterH8
import Definitions.Def_ChapterH4
open BookProof.ChapterH4
open BookProof.ChapterH8
noncomputable section
open BookProof.ChapterH4 BookProof.ChapterH5 BookProof.ChapterH6
open ContinuousLinearMap
variable {K E : Type*} [Field K] [AddCommGroup E] [Module K E]
variable {E F G : Type*}
[NormedAddCommGroup E] [InnerProductSpace ℂ E] [CompleteSpace E]
[NormedAddCommGroup F] [InnerProductSpace ℂ F] [CompleteSpace F]
[NormedAddCommGroup G] [InnerProductSpace ℂ G] [CompleteSpace G]
variable {E : Type*} [NormedAddCommGroup E] [InnerProductSpace ℂ E] [CompleteSpace E]Formal statement
theorem BookProof.ChapterH8.compress_pow_comp_intertwine (Vn : F →L[ℂ] E) (Vm : G →L[ℂ] E) (J : F →L[ℂ] G)
(X : E →L[ℂ] E) (hJ : Vn = Vm.comp J)
(hVm : (adjoint Vm).comp Vm = ContinuousLinearMap.id ℂ G)
(hJJ : (adjoint J).comp J = ContinuousLinearMap.id ℂ F)
(hinvn : ∀ x : F, ∃ y : F, X (Vn x) = Vn y) (k : ℕ) :
((compress Vm X) ^ k).comp J = J.comp ((compress Vn X) ^ k) := by sorrySource