Metamath Proof Explorer


Theorem homco2

Description: Move a scalar product out of a composition of operators. The operator T must be linear, unlike homco1 that works for any operators. (Contributed by NM, 13-Aug-2006) (New usage is discouraged.)

Ref Expression
Assertion homco2 ATLinOpU:TA·opU=A·opTU

Proof

Step Hyp Ref Expression
1 simpl1 ATLinOpU:xA
2 simpl3 ATLinOpU:xU:
3 simpr ATLinOpU:xx
4 homval AU:xA·opUx=AUx
5 1 2 3 4 syl3anc ATLinOpU:xA·opUx=AUx
6 5 fveq2d ATLinOpU:xTA·opUx=TAUx
7 homulcl AU:A·opU:
8 7 3adant2 ATLinOpU:A·opU:
9 fvco3 A·opU:xTA·opUx=TA·opUx
10 8 9 sylan ATLinOpU:xTA·opUx=TA·opUx
11 fvco3 U:xTUx=TUx
12 2 3 11 syl2anc ATLinOpU:xTUx=TUx
13 12 oveq2d ATLinOpU:xATUx=ATUx
14 lnopf TLinOpT:
15 14 3ad2ant2 ATLinOpU:T:
16 simp3 ATLinOpU:U:
17 fco T:U:TU:
18 15 16 17 syl2anc ATLinOpU:TU:
19 18 adantr ATLinOpU:xTU:
20 homval ATU:xA·opTUx=ATUx
21 1 19 3 20 syl3anc ATLinOpU:xA·opTUx=ATUx
22 simpl2 ATLinOpU:xTLinOp
23 16 ffvelcdmda ATLinOpU:xUx
24 lnopmul TLinOpAUxTAUx=ATUx
25 22 1 23 24 syl3anc ATLinOpU:xTAUx=ATUx
26 13 21 25 3eqtr4d ATLinOpU:xA·opTUx=TAUx
27 6 10 26 3eqtr4d ATLinOpU:xTA·opUx=A·opTUx
28 27 ralrimiva ATLinOpU:xTA·opUx=A·opTUx
29 fco T:A·opU:TA·opU:
30 15 8 29 syl2anc ATLinOpU:TA·opU:
31 simp1 ATLinOpU:A
32 homulcl ATU:A·opTU:
33 31 18 32 syl2anc ATLinOpU:A·opTU:
34 hoeq TA·opU:A·opTU:xTA·opUx=A·opTUxTA·opU=A·opTU
35 30 33 34 syl2anc ATLinOpU:xTA·opUx=A·opTUxTA·opU=A·opTU
36 28 35 mpbid ATLinOpU:TA·opU=A·opTU