Metamath Proof Explorer


Theorem gsumwsubmcl

Description: Closure of the composite in any submonoid. (Contributed by Stefan O'Rear, 15-Aug-2015) (Revised by Mario Carneiro, 1-Oct-2015)

Ref Expression
Assertion gsumwsubmcl SSubMndGWWordSGWS

Proof

Step Hyp Ref Expression
1 oveq2 W=GW=G
2 eqid 0G=0G
3 2 gsum0 G=0G
4 1 3 eqtrdi W=GW=0G
5 4 eleq1d W=GWS0GS
6 eqid BaseG=BaseG
7 eqid +G=+G
8 submrcl SSubMndGGMnd
9 8 ad2antrr SSubMndGWWordSWGMnd
10 lennncl WWordSWW
11 10 adantll SSubMndGWWordSWW
12 nnm1nn0 WW10
13 11 12 syl SSubMndGWWordSWW10
14 nn0uz 0=0
15 13 14 eleqtrdi SSubMndGWWordSWW10
16 wrdf WWordSW:0..^WS
17 16 ad2antlr SSubMndGWWordSWW:0..^WS
18 11 nnzd SSubMndGWWordSWW
19 fzoval W0..^W=0W1
20 18 19 syl SSubMndGWWordSW0..^W=0W1
21 20 feq2d SSubMndGWWordSWW:0..^WSW:0W1S
22 17 21 mpbid SSubMndGWWordSWW:0W1S
23 6 submss SSubMndGSBaseG
24 23 ad2antrr SSubMndGWWordSWSBaseG
25 22 24 fssd SSubMndGWWordSWW:0W1BaseG
26 6 7 9 15 25 gsumval2 SSubMndGWWordSWGW=seq0+GWW1
27 22 ffvelrnda SSubMndGWWordSWx0W1WxS
28 7 submcl SSubMndGxSySx+GyS
29 28 3expb SSubMndGxSySx+GyS
30 29 ad4ant14 SSubMndGWWordSWxSySx+GyS
31 15 27 30 seqcl SSubMndGWWordSWseq0+GWW1S
32 26 31 eqeltrd SSubMndGWWordSWGWS
33 2 subm0cl SSubMndG0GS
34 33 adantr SSubMndGWWordS0GS
35 5 32 34 pm2.61ne SSubMndGWWordSGWS