Metamath Proof Explorer


Theorem hfmval

Description: Value of the scalar product with a Hilbert space functional. (Contributed by NM, 23-May-2006) (Revised by Mario Carneiro, 16-Nov-2013) (New usage is discouraged.)

Ref Expression
Assertion hfmval ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘‡ : โ„‹ โŸถ โ„‚ โˆง ๐ต โˆˆ โ„‹ ) โ†’ ( ( ๐ด ยทfn ๐‘‡ ) โ€˜ ๐ต ) = ( ๐ด ยท ( ๐‘‡ โ€˜ ๐ต ) ) )

Proof

Step Hyp Ref Expression
1 hfmmval โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘‡ : โ„‹ โŸถ โ„‚ ) โ†’ ( ๐ด ยทfn ๐‘‡ ) = ( ๐‘ฅ โˆˆ โ„‹ โ†ฆ ( ๐ด ยท ( ๐‘‡ โ€˜ ๐‘ฅ ) ) ) )
2 1 fveq1d โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘‡ : โ„‹ โŸถ โ„‚ ) โ†’ ( ( ๐ด ยทfn ๐‘‡ ) โ€˜ ๐ต ) = ( ( ๐‘ฅ โˆˆ โ„‹ โ†ฆ ( ๐ด ยท ( ๐‘‡ โ€˜ ๐‘ฅ ) ) ) โ€˜ ๐ต ) )
3 fveq2 โŠข ( ๐‘ฅ = ๐ต โ†’ ( ๐‘‡ โ€˜ ๐‘ฅ ) = ( ๐‘‡ โ€˜ ๐ต ) )
4 3 oveq2d โŠข ( ๐‘ฅ = ๐ต โ†’ ( ๐ด ยท ( ๐‘‡ โ€˜ ๐‘ฅ ) ) = ( ๐ด ยท ( ๐‘‡ โ€˜ ๐ต ) ) )
5 eqid โŠข ( ๐‘ฅ โˆˆ โ„‹ โ†ฆ ( ๐ด ยท ( ๐‘‡ โ€˜ ๐‘ฅ ) ) ) = ( ๐‘ฅ โˆˆ โ„‹ โ†ฆ ( ๐ด ยท ( ๐‘‡ โ€˜ ๐‘ฅ ) ) )
6 ovex โŠข ( ๐ด ยท ( ๐‘‡ โ€˜ ๐ต ) ) โˆˆ V
7 4 5 6 fvmpt โŠข ( ๐ต โˆˆ โ„‹ โ†’ ( ( ๐‘ฅ โˆˆ โ„‹ โ†ฆ ( ๐ด ยท ( ๐‘‡ โ€˜ ๐‘ฅ ) ) ) โ€˜ ๐ต ) = ( ๐ด ยท ( ๐‘‡ โ€˜ ๐ต ) ) )
8 2 7 sylan9eq โŠข ( ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘‡ : โ„‹ โŸถ โ„‚ ) โˆง ๐ต โˆˆ โ„‹ ) โ†’ ( ( ๐ด ยทfn ๐‘‡ ) โ€˜ ๐ต ) = ( ๐ด ยท ( ๐‘‡ โ€˜ ๐ต ) ) )
9 8 3impa โŠข ( ( ๐ด โˆˆ โ„‚ โˆง ๐‘‡ : โ„‹ โŸถ โ„‚ โˆง ๐ต โˆˆ โ„‹ ) โ†’ ( ( ๐ด ยทfn ๐‘‡ ) โ€˜ ๐ต ) = ( ๐ด ยท ( ๐‘‡ โ€˜ ๐ต ) ) )