Metamath Proof Explorer


Theorem tendococl

Description: The composition of two trace-preserving endomorphisms (multiplication in the endormorphism ring) is a trace-preserving endomorphism. (Contributed by NM, 9-Jun-2013)

Ref Expression
Hypotheses tendoco.h H=LHypK
tendoco.e E=TEndoKW
Assertion tendococl KHLWHSETESTE

Proof

Step Hyp Ref Expression
1 tendoco.h H=LHypK
2 tendoco.e E=TEndoKW
3 eqid K=K
4 eqid LTrnKW=LTrnKW
5 eqid trLKW=trLKW
6 simp1 KHLWHSETEKHLWH
7 simp2 KHLWHSETESE
8 1 4 2 tendof KHLWHSES:LTrnKWLTrnKW
9 6 7 8 syl2anc KHLWHSETES:LTrnKWLTrnKW
10 simp3 KHLWHSETETE
11 1 4 2 tendof KHLWHTET:LTrnKWLTrnKW
12 6 10 11 syl2anc KHLWHSETET:LTrnKWLTrnKW
13 fco S:LTrnKWLTrnKWT:LTrnKWLTrnKWST:LTrnKWLTrnKW
14 9 12 13 syl2anc KHLWHSETEST:LTrnKWLTrnKW
15 simp11l KHLWHSETEfLTrnKWgLTrnKWKHL
16 simp11r KHLWHSETEfLTrnKWgLTrnKWWH
17 simp13 KHLWHSETEfLTrnKWgLTrnKWTE
18 simp2 KHLWHSETEfLTrnKWgLTrnKWfLTrnKW
19 simp3 KHLWHSETEfLTrnKWgLTrnKWgLTrnKW
20 1 4 2 tendovalco KHLWHTEfLTrnKWgLTrnKWTfg=TfTg
21 15 16 17 18 19 20 syl32anc KHLWHSETEfLTrnKWgLTrnKWTfg=TfTg
22 21 fveq2d KHLWHSETEfLTrnKWgLTrnKWSTfg=STfTg
23 simp12 KHLWHSETEfLTrnKWgLTrnKWSE
24 simp11 KHLWHSETEfLTrnKWgLTrnKWKHLWH
25 1 4 2 tendocl KHLWHTEfLTrnKWTfLTrnKW
26 24 17 18 25 syl3anc KHLWHSETEfLTrnKWgLTrnKWTfLTrnKW
27 1 4 2 tendocl KHLWHTEgLTrnKWTgLTrnKW
28 24 17 19 27 syl3anc KHLWHSETEfLTrnKWgLTrnKWTgLTrnKW
29 1 4 2 tendovalco KHLWHSETfLTrnKWTgLTrnKWSTfTg=STfSTg
30 15 16 23 26 28 29 syl32anc KHLWHSETEfLTrnKWgLTrnKWSTfTg=STfSTg
31 22 30 eqtrd KHLWHSETEfLTrnKWgLTrnKWSTfg=STfSTg
32 1 4 ltrnco KHLWHfLTrnKWgLTrnKWfgLTrnKW
33 24 18 19 32 syl3anc KHLWHSETEfLTrnKWgLTrnKWfgLTrnKW
34 1 4 2 tendocoval KHLWHSETEfgLTrnKWSTfg=STfg
35 24 23 17 33 34 syl121anc KHLWHSETEfLTrnKWgLTrnKWSTfg=STfg
36 1 4 2 tendocoval KHLWHSETEfLTrnKWSTf=STf
37 15 16 23 17 18 36 syl221anc KHLWHSETEfLTrnKWgLTrnKWSTf=STf
38 1 4 2 tendocoval KHLWHSETEgLTrnKWSTg=STg
39 15 16 23 17 19 38 syl221anc KHLWHSETEfLTrnKWgLTrnKWSTg=STg
40 37 39 coeq12d KHLWHSETEfLTrnKWgLTrnKWSTfSTg=STfSTg
41 31 35 40 3eqtr4d KHLWHSETEfLTrnKWgLTrnKWSTfg=STfSTg
42 eqid BaseK=BaseK
43 simpl1l KHLWHSETEfLTrnKWKHL
44 43 hllatd KHLWHSETEfLTrnKWKLat
45 simpl1 KHLWHSETEfLTrnKWKHLWH
46 simpl2 KHLWHSETEfLTrnKWSE
47 simpl3 KHLWHSETEfLTrnKWTE
48 simpr KHLWHSETEfLTrnKWfLTrnKW
49 45 46 47 48 36 syl121anc KHLWHSETEfLTrnKWSTf=STf
50 45 47 48 25 syl3anc KHLWHSETEfLTrnKWTfLTrnKW
51 1 4 2 tendocl KHLWHSETfLTrnKWSTfLTrnKW
52 45 46 50 51 syl3anc KHLWHSETEfLTrnKWSTfLTrnKW
53 49 52 eqeltrd KHLWHSETEfLTrnKWSTfLTrnKW
54 42 1 4 5 trlcl KHLWHSTfLTrnKWtrLKWSTfBaseK
55 45 53 54 syl2anc KHLWHSETEfLTrnKWtrLKWSTfBaseK
56 42 1 4 5 trlcl KHLWHTfLTrnKWtrLKWTfBaseK
57 45 50 56 syl2anc KHLWHSETEfLTrnKWtrLKWTfBaseK
58 42 1 4 5 trlcl KHLWHfLTrnKWtrLKWfBaseK
59 45 48 58 syl2anc KHLWHSETEfLTrnKWtrLKWfBaseK
60 simpl1r KHLWHSETEfLTrnKWWH
61 43 60 46 47 48 36 syl221anc KHLWHSETEfLTrnKWSTf=STf
62 61 fveq2d KHLWHSETEfLTrnKWtrLKWSTf=trLKWSTf
63 3 1 4 5 2 tendotp KHLWHSETfLTrnKWtrLKWSTfKtrLKWTf
64 45 46 50 63 syl3anc KHLWHSETEfLTrnKWtrLKWSTfKtrLKWTf
65 62 64 eqbrtrd KHLWHSETEfLTrnKWtrLKWSTfKtrLKWTf
66 3 1 4 5 2 tendotp KHLWHTEfLTrnKWtrLKWTfKtrLKWf
67 45 47 48 66 syl3anc KHLWHSETEfLTrnKWtrLKWTfKtrLKWf
68 42 3 44 55 57 59 65 67 lattrd KHLWHSETEfLTrnKWtrLKWSTfKtrLKWf
69 3 1 4 5 2 6 14 41 68 istendod KHLWHSETESTE