Metamath Proof Explorer


Theorem kbass3

Description: Dirac bra-ket associative law <. A | B >. <. C | D >. = ( <. A | B >. <. C | ) | D >. . (Contributed by NM, 30-May-2006) (New usage is discouraged.)

Ref Expression
Assertion kbass3 ( ( ( ๐ด โˆˆ โ„‹ โˆง ๐ต โˆˆ โ„‹ ) โˆง ( ๐ถ โˆˆ โ„‹ โˆง ๐ท โˆˆ โ„‹ ) ) โ†’ ( ( ( bra โ€˜ ๐ด ) โ€˜ ๐ต ) ยท ( ( bra โ€˜ ๐ถ ) โ€˜ ๐ท ) ) = ( ( ( ( bra โ€˜ ๐ด ) โ€˜ ๐ต ) ยทfn ( bra โ€˜ ๐ถ ) ) โ€˜ ๐ท ) )

Proof

Step Hyp Ref Expression
1 bracl โŠข ( ( ๐ด โˆˆ โ„‹ โˆง ๐ต โˆˆ โ„‹ ) โ†’ ( ( bra โ€˜ ๐ด ) โ€˜ ๐ต ) โˆˆ โ„‚ )
2 1 adantr โŠข ( ( ( ๐ด โˆˆ โ„‹ โˆง ๐ต โˆˆ โ„‹ ) โˆง ( ๐ถ โˆˆ โ„‹ โˆง ๐ท โˆˆ โ„‹ ) ) โ†’ ( ( bra โ€˜ ๐ด ) โ€˜ ๐ต ) โˆˆ โ„‚ )
3 brafn โŠข ( ๐ถ โˆˆ โ„‹ โ†’ ( bra โ€˜ ๐ถ ) : โ„‹ โŸถ โ„‚ )
4 3 ad2antrl โŠข ( ( ( ๐ด โˆˆ โ„‹ โˆง ๐ต โˆˆ โ„‹ ) โˆง ( ๐ถ โˆˆ โ„‹ โˆง ๐ท โˆˆ โ„‹ ) ) โ†’ ( bra โ€˜ ๐ถ ) : โ„‹ โŸถ โ„‚ )
5 simprr โŠข ( ( ( ๐ด โˆˆ โ„‹ โˆง ๐ต โˆˆ โ„‹ ) โˆง ( ๐ถ โˆˆ โ„‹ โˆง ๐ท โˆˆ โ„‹ ) ) โ†’ ๐ท โˆˆ โ„‹ )
6 hfmval โŠข ( ( ( ( bra โ€˜ ๐ด ) โ€˜ ๐ต ) โˆˆ โ„‚ โˆง ( bra โ€˜ ๐ถ ) : โ„‹ โŸถ โ„‚ โˆง ๐ท โˆˆ โ„‹ ) โ†’ ( ( ( ( bra โ€˜ ๐ด ) โ€˜ ๐ต ) ยทfn ( bra โ€˜ ๐ถ ) ) โ€˜ ๐ท ) = ( ( ( bra โ€˜ ๐ด ) โ€˜ ๐ต ) ยท ( ( bra โ€˜ ๐ถ ) โ€˜ ๐ท ) ) )
7 2 4 5 6 syl3anc โŠข ( ( ( ๐ด โˆˆ โ„‹ โˆง ๐ต โˆˆ โ„‹ ) โˆง ( ๐ถ โˆˆ โ„‹ โˆง ๐ท โˆˆ โ„‹ ) ) โ†’ ( ( ( ( bra โ€˜ ๐ด ) โ€˜ ๐ต ) ยทfn ( bra โ€˜ ๐ถ ) ) โ€˜ ๐ท ) = ( ( ( bra โ€˜ ๐ด ) โ€˜ ๐ต ) ยท ( ( bra โ€˜ ๐ถ ) โ€˜ ๐ท ) ) )
8 7 eqcomd โŠข ( ( ( ๐ด โˆˆ โ„‹ โˆง ๐ต โˆˆ โ„‹ ) โˆง ( ๐ถ โˆˆ โ„‹ โˆง ๐ท โˆˆ โ„‹ ) ) โ†’ ( ( ( bra โ€˜ ๐ด ) โ€˜ ๐ต ) ยท ( ( bra โ€˜ ๐ถ ) โ€˜ ๐ท ) ) = ( ( ( ( bra โ€˜ ๐ด ) โ€˜ ๐ต ) ยทfn ( bra โ€˜ ๐ถ ) ) โ€˜ ๐ท ) )