`BookProof.ChapterH8.compress_adjoint_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 = ContinuousLi
ProvedBookProof.ChapterH8.compress_adjoint_intertwinetimepiece
Prove the following Lean 4 theorem from ChapterH8.
BookProof.ChapterH8.compress_adjoint_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) (hinvadj : ∀ x : F, ∃ y : F, (adjoint X) (Vn x) = Vn y) : (adjoint J).comp (compress Vm X) = (compress Vn X).comp (adjoint J)
Formalization note: Lean 4 identifier BookProof.ChapterH8.compress_adjoint_intertwine.
Preamble
-- Generated from ChapterH8.lean — theorem BookProof.ChapterH8.compress_adjoint_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_adjoint_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)
(hinvadj : ∀ x : F, ∃ y : F, (adjoint X) (Vn x) = Vn y) :
(adjoint J).comp (compress Vm X) = (compress Vn X).comp (adjoint J) := by sorrySource