Metamath Proof Explorer


Theorem homulass

Description: Scalar product associative law for Hilbert space operators. (Contributed by NM, 12-Aug-2006) (New usage is discouraged.)

Ref Expression
Assertion homulass A B T : A B · op T = A · op B · op T

Proof

Step Hyp Ref Expression
1 mulcl A B A B
2 homval A B T : x A B · op T x = A B T x
3 1 2 syl3an1 A B T : x A B · op T x = A B T x
4 3 3expia A B T : x A B · op T x = A B T x
5 4 3impa A B T : x A B · op T x = A B T x
6 5 imp A B T : x A B · op T x = A B T x
7 homval B T : x B · op T x = B T x
8 7 oveq2d B T : x A B · op T x = A B T x
9 8 3expa B T : x A B · op T x = A B T x
10 9 3adantl1 A B T : x A B · op T x = A B T x
11 ffvelrn T : x T x
12 ax-hvmulass A B T x A B T x = A B T x
13 11 12 syl3an3 A B T : x A B T x = A B T x
14 13 3expa A B T : x A B T x = A B T x
15 14 exp43 A B T : x A B T x = A B T x
16 15 3imp1 A B T : x A B T x = A B T x
17 10 16 eqtr4d A B T : x A B · op T x = A B T x
18 6 17 eqtr4d A B T : x A B · op T x = A B · op T x
19 homulcl B T : B · op T :
20 homval A B · op T : x A · op B · op T x = A B · op T x
21 19 20 syl3an2 A B T : x A · op B · op T x = A B · op T x
22 21 3expia A B T : x A · op B · op T x = A B · op T x
23 22 3impb A B T : x A · op B · op T x = A B · op T x
24 23 imp A B T : x A · op B · op T x = A B · op T x
25 18 24 eqtr4d A B T : x A B · op T x = A · op B · op T x
26 25 ralrimiva A B T : x A B · op T x = A · op B · op T x
27 homulcl A B T : A B · op T :
28 1 27 stoic3 A B T : A B · op T :
29 homulcl A B · op T : A · op B · op T :
30 19 29 sylan2 A B T : A · op B · op T :
31 30 3impb A B T : A · op B · op T :
32 hoeq A B · op T : A · op B · op T : x A B · op T x = A · op B · op T x A B · op T = A · op B · op T
33 28 31 32 syl2anc A B T : x A B · op T x = A · op B · op T x A B · op T = A · op B · op T
34 26 33 mpbid A B T : A B · op T = A · op B · op T