Metamath Proof Explorer


Theorem adj1

Description: Property of an adjoint Hilbert space operator. (Contributed by NM, 15-Feb-2006) (New usage is discouraged.)

Ref Expression
Assertion adj1 TdomadjhABAihTB=adjhTAihB

Proof

Step Hyp Ref Expression
1 funadj Funadjh
2 funfvop FunadjhTdomadjhTadjhTadjh
3 1 2 mpan TdomadjhTadjhTadjh
4 dfadj2 adjh=zw|z:w:xyxihzy=wxihy
5 3 4 eleqtrdi TdomadjhTadjhTzw|z:w:xyxihzy=wxihy
6 fvex adjhTV
7 feq1 z=Tz:T:
8 fveq1 z=Tzy=Ty
9 8 oveq2d z=Txihzy=xihTy
10 9 eqeq1d z=Txihzy=wxihyxihTy=wxihy
11 10 2ralbidv z=Txyxihzy=wxihyxyxihTy=wxihy
12 7 11 3anbi13d z=Tz:w:xyxihzy=wxihyT:w:xyxihTy=wxihy
13 feq1 w=adjhTw:adjhT:
14 fveq1 w=adjhTwx=adjhTx
15 14 oveq1d w=adjhTwxihy=adjhTxihy
16 15 eqeq2d w=adjhTxihTy=wxihyxihTy=adjhTxihy
17 16 2ralbidv w=adjhTxyxihTy=wxihyxyxihTy=adjhTxihy
18 13 17 3anbi23d w=adjhTT:w:xyxihTy=wxihyT:adjhT:xyxihTy=adjhTxihy
19 12 18 opelopabg TdomadjhadjhTVTadjhTzw|z:w:xyxihzy=wxihyT:adjhT:xyxihTy=adjhTxihy
20 6 19 mpan2 TdomadjhTadjhTzw|z:w:xyxihzy=wxihyT:adjhT:xyxihTy=adjhTxihy
21 5 20 mpbid TdomadjhT:adjhT:xyxihTy=adjhTxihy
22 21 simp3d TdomadjhxyxihTy=adjhTxihy
23 oveq1 x=AxihTy=AihTy
24 fveq2 x=AadjhTx=adjhTA
25 24 oveq1d x=AadjhTxihy=adjhTAihy
26 23 25 eqeq12d x=AxihTy=adjhTxihyAihTy=adjhTAihy
27 fveq2 y=BTy=TB
28 27 oveq2d y=BAihTy=AihTB
29 oveq2 y=BadjhTAihy=adjhTAihB
30 28 29 eqeq12d y=BAihTy=adjhTAihyAihTB=adjhTAihB
31 26 30 rspc2v ABxyxihTy=adjhTxihyAihTB=adjhTAihB
32 22 31 syl5com TdomadjhABAihTB=adjhTAihB
33 32 3impib TdomadjhABAihTB=adjhTAihB