This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem pjinormi

Description: The inner product of a projection and its argument is the square of the norm of the projection. Remark in Halmos p. 44. (Contributed by NM, 2-Jun-2006) (New usage is discouraged.)

		Ref	Expression
	Hypothesis	pjadjt.1	⊢ 𝐻 ∈ C_ℋ
	Assertion	pjinormi	⊢ ( 𝐴 ∈ ℋ → ( ( ( proj_ℎ ‘ 𝐻 ) ‘ 𝐴 ) ·_ih 𝐴 ) = ( ( norm_ℎ ‘ ( ( proj_ℎ ‘ 𝐻 ) ‘ 𝐴 ) ) ↑ 2 ) )

Proof

Step	Hyp	Ref	Expression
1		pjadjt.1	⊢ 𝐻 ∈ C_ℋ
2		fveq2	⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) → ( ( proj_ℎ ‘ 𝐻 ) ‘ 𝐴 ) = ( ( proj_ℎ ‘ 𝐻 ) ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) ) )
3		id	⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) → 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) )
4	2 3	oveq12d	⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) → ( ( ( proj_ℎ ‘ 𝐻 ) ‘ 𝐴 ) ·_ih 𝐴 ) = ( ( ( proj_ℎ ‘ 𝐻 ) ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) ) ·_ih if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) ) )
5		2fveq3	⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) → ( norm_ℎ ‘ ( ( proj_ℎ ‘ 𝐻 ) ‘ 𝐴 ) ) = ( norm_ℎ ‘ ( ( proj_ℎ ‘ 𝐻 ) ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) ) ) )
6	5	oveq1d	⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) → ( ( norm_ℎ ‘ ( ( proj_ℎ ‘ 𝐻 ) ‘ 𝐴 ) ) ↑ 2 ) = ( ( norm_ℎ ‘ ( ( proj_ℎ ‘ 𝐻 ) ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) ) ) ↑ 2 ) )
7	4 6	eqeq12d	⊢ ( 𝐴 = if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) → ( ( ( ( proj_ℎ ‘ 𝐻 ) ‘ 𝐴 ) ·_ih 𝐴 ) = ( ( norm_ℎ ‘ ( ( proj_ℎ ‘ 𝐻 ) ‘ 𝐴 ) ) ↑ 2 ) ↔ ( ( ( proj_ℎ ‘ 𝐻 ) ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) ) ·_ih if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) ) = ( ( norm_ℎ ‘ ( ( proj_ℎ ‘ 𝐻 ) ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) ) ) ↑ 2 ) ) )
8		ifhvhv0	⊢ if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) ∈ ℋ
9	1 8	pjinormii	⊢ ( ( ( proj_ℎ ‘ 𝐻 ) ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) ) ·_ih if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) ) = ( ( norm_ℎ ‘ ( ( proj_ℎ ‘ 𝐻 ) ‘ if ( 𝐴 ∈ ℋ , 𝐴 , 0_ℎ ) ) ) ↑ 2 )
10	7 9	dedth	⊢ ( 𝐴 ∈ ℋ → ( ( ( proj_ℎ ‘ 𝐻 ) ‘ 𝐴 ) ·_ih 𝐴 ) = ( ( norm_ℎ ‘ ( ( proj_ℎ ‘ 𝐻 ) ‘ 𝐴 ) ) ↑ 2 ) )