Metamath Proof Explorer


Theorem gsumwmhm

Description: Behavior of homomorphisms on finite monoidal sums. (Contributed by Stefan O'Rear, 27-Aug-2015)

Ref Expression
Hypothesis gsumwmhm.b B=BaseM
Assertion gsumwmhm HMMndHomNWWordBHMW=NHW

Proof

Step Hyp Ref Expression
1 gsumwmhm.b B=BaseM
2 oveq2 W=MW=M
3 eqid 0M=0M
4 3 gsum0 M=0M
5 2 4 eqtrdi W=MW=0M
6 5 fveq2d W=HMW=H0M
7 coeq2 W=HW=H
8 co02 H=
9 7 8 eqtrdi W=HW=
10 9 oveq2d W=NHW=N
11 eqid 0N=0N
12 11 gsum0 N=0N
13 10 12 eqtrdi W=NHW=0N
14 6 13 eqeq12d W=HMW=NHWH0M=0N
15 mhmrcl1 HMMndHomNMMnd
16 15 ad2antrr HMMndHomNWWordBWMMnd
17 eqid +M=+M
18 1 17 mndcl MMndxByBx+MyB
19 18 3expb MMndxByBx+MyB
20 16 19 sylan HMMndHomNWWordBWxByBx+MyB
21 wrdf WWordBW:0..^WB
22 21 ad2antlr HMMndHomNWWordBWW:0..^WB
23 wrdfin WWordBWFin
24 23 adantl HMMndHomNWWordBWFin
25 hashnncl WFinWW
26 24 25 syl HMMndHomNWWordBWW
27 26 biimpar HMMndHomNWWordBWW
28 27 nnzd HMMndHomNWWordBWW
29 fzoval W0..^W=0W1
30 28 29 syl HMMndHomNWWordBW0..^W=0W1
31 30 feq2d HMMndHomNWWordBWW:0..^WBW:0W1B
32 22 31 mpbid HMMndHomNWWordBWW:0W1B
33 32 ffvelcdmda HMMndHomNWWordBWx0W1WxB
34 nnm1nn0 WW10
35 27 34 syl HMMndHomNWWordBWW10
36 nn0uz 0=0
37 35 36 eleqtrdi HMMndHomNWWordBWW10
38 eqid +N=+N
39 1 17 38 mhmlin HMMndHomNxByBHx+My=Hx+NHy
40 39 3expb HMMndHomNxByBHx+My=Hx+NHy
41 40 ad4ant14 HMMndHomNWWordBWxByBHx+My=Hx+NHy
42 32 ffnd HMMndHomNWWordBWWFn0W1
43 fvco2 WFn0W1x0W1HWx=HWx
44 42 43 sylan HMMndHomNWWordBWx0W1HWx=HWx
45 44 eqcomd HMMndHomNWWordBWx0W1HWx=HWx
46 20 33 37 41 45 seqhomo HMMndHomNWWordBWHseq0+MWW1=seq0+NHWW1
47 1 17 16 37 32 gsumval2 HMMndHomNWWordBWMW=seq0+MWW1
48 47 fveq2d HMMndHomNWWordBWHMW=Hseq0+MWW1
49 eqid BaseN=BaseN
50 mhmrcl2 HMMndHomNNMnd
51 50 ad2antrr HMMndHomNWWordBWNMnd
52 1 49 mhmf HMMndHomNH:BBaseN
53 52 ad2antrr HMMndHomNWWordBWH:BBaseN
54 fco H:BBaseNW:0W1BHW:0W1BaseN
55 53 32 54 syl2anc HMMndHomNWWordBWHW:0W1BaseN
56 49 38 51 37 55 gsumval2 HMMndHomNWWordBWNHW=seq0+NHWW1
57 46 48 56 3eqtr4d HMMndHomNWWordBWHMW=NHW
58 3 11 mhm0 HMMndHomNH0M=0N
59 58 adantr HMMndHomNWWordBH0M=0N
60 14 57 59 pm2.61ne HMMndHomNWWordBHMW=NHW