@@ -52,18 +52,22 @@ def starL' (R : Type*) {A : Type*} [CommSemiring R] [StarRing R] [TrivialStar R]
5252variable (R : Type *) (A : Type *) [Semiring R] [StarMul R] [TrivialStar R] [AddCommGroup A]
5353 [Module R A] [StarAddMonoid A] [StarModule R A] [Invertible (2 : R)] [TopologicalSpace A]
5454
55+ @[fun_prop]
5556theorem continuous_selfAdjointPart [ContinuousAdd A] [ContinuousStar A] [ContinuousConstSMul R A] :
5657 Continuous (selfAdjointPart R (A := A)) :=
5758 ((continuous_const_smul _).comp <| continuous_id.add continuous_star).subtype_mk _
5859
60+ @[fun_prop]
5961theorem continuous_skewAdjointPart [ContinuousSub A] [ContinuousStar A] [ContinuousConstSMul R A] :
6062 Continuous (skewAdjointPart R (A := A)) :=
6163 ((continuous_const_smul _).comp <| continuous_id.sub continuous_star).subtype_mk _
6264
65+ @[fun_prop]
6366theorem continuous_decomposeProdAdjoint [IsTopologicalAddGroup A] [ContinuousStar A]
6467 [ContinuousConstSMul R A] : Continuous (StarModule.decomposeProdAdjoint R A) :=
6568 (continuous_selfAdjointPart R A).prodMk (continuous_skewAdjointPart R A)
6669
70+ @[fun_prop]
6771theorem continuous_decomposeProdAdjoint_symm [ContinuousAdd A] :
6872 Continuous (StarModule.decomposeProdAdjoint R A).symm :=
6973 (continuous_subtype_val.comp continuous_fst).add (continuous_subtype_val.comp continuous_snd)
@@ -86,5 +90,3 @@ as a continuous linear equivalence. -/
8690def StarModule.decomposeProdAdjointL [IsTopologicalAddGroup A] [ContinuousStar A]
8791 [ContinuousConstSMul R A] : A ≃L[R] selfAdjoint A × skewAdjoint A where
8892 toLinearEquiv := StarModule.decomposeProdAdjoint R A
89- continuous_toFun := continuous_decomposeProdAdjoint _ _
90- continuous_invFun := continuous_decomposeProdAdjoint_symm _ _
0 commit comments