Metamath Proof Explorer


Theorem gsumccat

Description: Homomorphic property of composites. Second formula in Lang p. 4. (Contributed by Stefan O'Rear, 16-Aug-2015) (Revised by Mario Carneiro, 1-Oct-2015) (Proof shortened by AV, 26-Dec-2023)

Ref Expression
Hypotheses gsumccat.b B=BaseG
gsumccat.p +˙=+G
Assertion gsumccat GMndWWordBXWordBGW++X=GW+˙GX

Proof

Step Hyp Ref Expression
1 gsumccat.b B=BaseG
2 gsumccat.p +˙=+G
3 oveq1 W=W++X=++X
4 3 oveq2d W=GW++X=G++X
5 oveq2 W=GW=G
6 eqid 0G=0G
7 6 gsum0 G=0G
8 5 7 eqtrdi W=GW=0G
9 8 oveq1d W=GW+˙GX=0G+˙GX
10 4 9 eqeq12d W=GW++X=GW+˙GXG++X=0G+˙GX
11 oveq2 X=W++X=W++
12 11 oveq2d X=GW++X=GW++
13 oveq2 X=GX=G
14 13 7 eqtrdi X=GX=0G
15 14 oveq2d X=GW+˙GX=GW+˙0G
16 12 15 eqeq12d X=GW++X=GW+˙GXGW++=GW+˙0G
17 mndsgrp Could not format ( G e. Mnd -> G e. Smgrp ) : No typesetting found for |- ( G e. Mnd -> G e. Smgrp ) with typecode |-
18 17 3ad2ant1 Could not format ( ( G e. Mnd /\ W e. Word B /\ X e. Word B ) -> G e. Smgrp ) : No typesetting found for |- ( ( G e. Mnd /\ W e. Word B /\ X e. Word B ) -> G e. Smgrp ) with typecode |-
19 18 ad2antrr Could not format ( ( ( ( G e. Mnd /\ W e. Word B /\ X e. Word B ) /\ W =/= (/) ) /\ X =/= (/) ) -> G e. Smgrp ) : No typesetting found for |- ( ( ( ( G e. Mnd /\ W e. Word B /\ X e. Word B ) /\ W =/= (/) ) /\ X =/= (/) ) -> G e. Smgrp ) with typecode |-
20 3simpc GMndWWordBXWordBWWordBXWordB
21 20 ad2antrr GMndWWordBXWordBWXWWordBXWordB
22 simpr GMndWWordBXWordBWW
23 22 anim1i GMndWWordBXWordBWXWX
24 1 2 gsumsgrpccat Could not format ( ( G e. Smgrp /\ ( W e. Word B /\ X e. Word B ) /\ ( W =/= (/) /\ X =/= (/) ) ) -> ( G gsum ( W ++ X ) ) = ( ( G gsum W ) .+ ( G gsum X ) ) ) : No typesetting found for |- ( ( G e. Smgrp /\ ( W e. Word B /\ X e. Word B ) /\ ( W =/= (/) /\ X =/= (/) ) ) -> ( G gsum ( W ++ X ) ) = ( ( G gsum W ) .+ ( G gsum X ) ) ) with typecode |-
25 19 21 23 24 syl3anc GMndWWordBXWordBWXGW++X=GW+˙GX
26 simpl2 GMndWWordBXWordBWWWordB
27 ccatrid WWordBW++=W
28 26 27 syl GMndWWordBXWordBWW++=W
29 28 oveq2d GMndWWordBXWordBWGW++=GW
30 simpl1 GMndWWordBXWordBWGMnd
31 1 gsumwcl GMndWWordBGWB
32 31 3adant3 GMndWWordBXWordBGWB
33 32 adantr GMndWWordBXWordBWGWB
34 1 2 6 mndrid GMndGWBGW+˙0G=GW
35 30 33 34 syl2anc GMndWWordBXWordBWGW+˙0G=GW
36 29 35 eqtr4d GMndWWordBXWordBWGW++=GW+˙0G
37 16 25 36 pm2.61ne GMndWWordBXWordBWGW++X=GW+˙GX
38 ccatlid XWordB++X=X
39 38 3ad2ant3 GMndWWordBXWordB++X=X
40 39 oveq2d GMndWWordBXWordBG++X=GX
41 simp1 GMndWWordBXWordBGMnd
42 1 gsumwcl GMndXWordBGXB
43 1 2 6 mndlid GMndGXB0G+˙GX=GX
44 41 42 43 3imp3i2an GMndWWordBXWordB0G+˙GX=GX
45 40 44 eqtr4d GMndWWordBXWordBG++X=0G+˙GX
46 10 37 45 pm2.61ne GMndWWordBXWordBGW++X=GW+˙GX