# Metamath Proof Explorer

Description: A property that determines the adjoint of a Hilbert space operator. (Contributed by NM, 20-Feb-2006) (New usage is discouraged.)

Ref Expression
Assertion adjeq ( ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ) → ( adj𝑇 ) = 𝑆 )

### Proof

Step Hyp Ref Expression
2 df-adjh adj = { ⟨ 𝑧 , 𝑤 ⟩ ∣ ( 𝑧 : ℋ ⟶ ℋ ∧ 𝑤 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑧𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑤𝑦 ) ) ) }
3 2 eleq2i ( ⟨ 𝑇 , 𝑆 ⟩ ∈ adj ↔ ⟨ 𝑇 , 𝑆 ⟩ ∈ { ⟨ 𝑧 , 𝑤 ⟩ ∣ ( 𝑧 : ℋ ⟶ ℋ ∧ 𝑤 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑧𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑤𝑦 ) ) ) } )
4 ax-hilex ℋ ∈ V
5 fex ( ( 𝑇 : ℋ ⟶ ℋ ∧ ℋ ∈ V ) → 𝑇 ∈ V )
6 4 5 mpan2 ( 𝑇 : ℋ ⟶ ℋ → 𝑇 ∈ V )
7 fex ( ( 𝑆 : ℋ ⟶ ℋ ∧ ℋ ∈ V ) → 𝑆 ∈ V )
8 4 7 mpan2 ( 𝑆 : ℋ ⟶ ℋ → 𝑆 ∈ V )
9 feq1 ( 𝑧 = 𝑇 → ( 𝑧 : ℋ ⟶ ℋ ↔ 𝑇 : ℋ ⟶ ℋ ) )
10 fveq1 ( 𝑧 = 𝑇 → ( 𝑧𝑥 ) = ( 𝑇𝑥 ) )
11 10 oveq1d ( 𝑧 = 𝑇 → ( ( 𝑧𝑥 ) ·ih 𝑦 ) = ( ( 𝑇𝑥 ) ·ih 𝑦 ) )
12 11 eqeq1d ( 𝑧 = 𝑇 → ( ( ( 𝑧𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑤𝑦 ) ) ↔ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑤𝑦 ) ) ) )
13 12 2ralbidv ( 𝑧 = 𝑇 → ( ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑧𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑤𝑦 ) ) ↔ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑤𝑦 ) ) ) )
14 9 13 3anbi13d ( 𝑧 = 𝑇 → ( ( 𝑧 : ℋ ⟶ ℋ ∧ 𝑤 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑧𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑤𝑦 ) ) ) ↔ ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑤 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑤𝑦 ) ) ) ) )
15 feq1 ( 𝑤 = 𝑆 → ( 𝑤 : ℋ ⟶ ℋ ↔ 𝑆 : ℋ ⟶ ℋ ) )
16 fveq1 ( 𝑤 = 𝑆 → ( 𝑤𝑦 ) = ( 𝑆𝑦 ) )
17 16 oveq2d ( 𝑤 = 𝑆 → ( 𝑥 ·ih ( 𝑤𝑦 ) ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) )
18 17 eqeq2d ( 𝑤 = 𝑆 → ( ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑤𝑦 ) ) ↔ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ) )
19 18 2ralbidv ( 𝑤 = 𝑆 → ( ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑤𝑦 ) ) ↔ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ) )
20 15 19 3anbi23d ( 𝑤 = 𝑆 → ( ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑤 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑤𝑦 ) ) ) ↔ ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ) ) )
21 14 20 opelopabg ( ( 𝑇 ∈ V ∧ 𝑆 ∈ V ) → ( ⟨ 𝑇 , 𝑆 ⟩ ∈ { ⟨ 𝑧 , 𝑤 ⟩ ∣ ( 𝑧 : ℋ ⟶ ℋ ∧ 𝑤 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑧𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑤𝑦 ) ) ) } ↔ ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ) ) )
22 6 8 21 syl2an ( ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ) → ( ⟨ 𝑇 , 𝑆 ⟩ ∈ { ⟨ 𝑧 , 𝑤 ⟩ ∣ ( 𝑧 : ℋ ⟶ ℋ ∧ 𝑤 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑧𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑤𝑦 ) ) ) } ↔ ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ) ) )
23 3 22 syl5bb ( ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ) → ( ⟨ 𝑇 , 𝑆 ⟩ ∈ adj ↔ ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ) ) )
24 df-3an ( ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ) ↔ ( ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ) ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ) )
25 24 baibr ( ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ) → ( ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ↔ ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ) ) )
26 23 25 bitr4d ( ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ) → ( ⟨ 𝑇 , 𝑆 ⟩ ∈ adj ↔ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ) )
27 26 biimp3ar ( ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ) → ⟨ 𝑇 , 𝑆 ⟩ ∈ adj )
28 funopfv ( Fun adj → ( ⟨ 𝑇 , 𝑆 ⟩ ∈ adj → ( adj𝑇 ) = 𝑆 ) )
29 1 27 28 mpsyl ( ( 𝑇 : ℋ ⟶ ℋ ∧ 𝑆 : ℋ ⟶ ℋ ∧ ∀ 𝑥 ∈ ℋ ∀ 𝑦 ∈ ℋ ( ( 𝑇𝑥 ) ·ih 𝑦 ) = ( 𝑥 ·ih ( 𝑆𝑦 ) ) ) → ( adj𝑇 ) = 𝑆 )