Theorem gsumzmhm 19912

Description: Apply a group homomorphism to a group sum. (Contributed by Mario Carneiro, 24-Apr-2016.) (Revised by AV, 6-Jun-2019.)

Hypotheses

Ref	Expression
gsumzmhm.b	⊢ 𝐵 = (Base‘𝐺)
gsumzmhm.z	⊢ 𝑍 = (Cntz‘𝐺)
gsumzmhm.g	⊢ (𝜑 → 𝐺 ∈ Mnd)
gsumzmhm.h	⊢ (𝜑 → 𝐻 ∈ Mnd)
gsumzmhm.a	⊢ (𝜑 → 𝐴 ∈ 𝑉)
gsumzmhm.k	⊢ (𝜑 → 𝐾 ∈ (𝐺 MndHom 𝐻))
gsumzmhm.f	⊢ (𝜑 → 𝐹:𝐴⟶𝐵)
gsumzmhm.c	⊢ (𝜑 → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
gsumzmhm.0	⊢ 0 = (0g‘𝐺)
gsumzmhm.w	⊢ (𝜑 → 𝐹 finSupp 0 )

Assertion

Ref	Expression
gsumzmhm	⊢ (𝜑 → (𝐻 Σg (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σg 𝐹)))

Proof of Theorem gsumzmhm

Dummy variables 𝑘 𝑥 𝑦 𝑓 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		gsumzmhm.h	. . . . . . 7 ⊢ (𝜑 → 𝐻 ∈ Mnd)
2		gsumzmhm.a	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ 𝑉)
3		eqid 2736	. . . . . . . 8 ⊢ (0g‘𝐻) = (0g‘𝐻)
4	3	gsumz 18804	. . . . . . 7 ⊢ ((𝐻 ∈ Mnd ∧ 𝐴 ∈ 𝑉) → (𝐻 Σg (𝑘 ∈ 𝐴 ↦ (0g‘𝐻))) = (0g‘𝐻))
5	1, 2, 4	syl2anc 585	. . . . . 6 ⊢ (𝜑 → (𝐻 Σg (𝑘 ∈ 𝐴 ↦ (0g‘𝐻))) = (0g‘𝐻))
6	5	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σg (𝑘 ∈ 𝐴 ↦ (0g‘𝐻))) = (0g‘𝐻))
7		gsumzmhm.k	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ (𝐺 MndHom 𝐻))
8		gsumzmhm.0	. . . . . . . 8 ⊢ 0 = (0g‘𝐺)
9	8, 3	mhm0 18762	. . . . . . 7 ⊢ (𝐾 ∈ (𝐺 MndHom 𝐻) → (𝐾‘ 0 ) = (0g‘𝐻))
10	7, 9	syl 17	. . . . . 6 ⊢ (𝜑 → (𝐾‘ 0 ) = (0g‘𝐻))
11	10	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾‘ 0 ) = (0g‘𝐻))
12	6, 11	eqtr4d 2774	. . . 4 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σg (𝑘 ∈ 𝐴 ↦ (0g‘𝐻))) = (𝐾‘ 0 ))
13		gsumzmhm.g	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 ∈ Mnd)
14		gsumzmhm.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝐺)
15	14, 8	mndidcl 18717	. . . . . . . . 9 ⊢ (𝐺 ∈ Mnd → 0 ∈ 𝐵)
16	13, 15	syl 17	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ 𝐵)
17	16	ad2antrr 727	. . . . . . 7 ⊢ (((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) ∧ 𝑘 ∈ 𝐴) → 0 ∈ 𝐵)
18		gsumzmhm.f	. . . . . . . 8 ⊢ (𝜑 → 𝐹:𝐴⟶𝐵)
19	8	fvexi 6854	. . . . . . . . 9 ⊢ 0 ∈ V
20	19	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ V)
21	18, 2	fexd 7182	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ V)
22		suppimacnv 8124	. . . . . . . . . 10 ⊢ ((𝐹 ∈ V ∧ 0 ∈ V) → (𝐹 supp 0 ) = (◡𝐹 “ (V ∖ { 0 })))
23	21, 20, 22	syl2anc 585	. . . . . . . . 9 ⊢ (𝜑 → (𝐹 supp 0 ) = (◡𝐹 “ (V ∖ { 0 })))
24		ssid 3944	. . . . . . . . 9 ⊢ (◡𝐹 “ (V ∖ { 0 })) ⊆ (◡𝐹 “ (V ∖ { 0 }))
25	23, 24	eqsstrdi 3966	. . . . . . . 8 ⊢ (𝜑 → (𝐹 supp 0 ) ⊆ (◡𝐹 “ (V ∖ { 0 })))
26	18, 2, 20, 25	gsumcllem 19883	. . . . . . 7 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → 𝐹 = (𝑘 ∈ 𝐴 ↦ 0 ))
27		eqid 2736	. . . . . . . . . . 11 ⊢ (Base‘𝐻) = (Base‘𝐻)
28	14, 27	mhmf 18757	. . . . . . . . . 10 ⊢ (𝐾 ∈ (𝐺 MndHom 𝐻) → 𝐾:𝐵⟶(Base‘𝐻))
29	7, 28	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐾:𝐵⟶(Base‘𝐻))
30	29	feqmptd 6908	. . . . . . . 8 ⊢ (𝜑 → 𝐾 = (𝑥 ∈ 𝐵 ↦ (𝐾‘𝑥)))
31	30	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → 𝐾 = (𝑥 ∈ 𝐵 ↦ (𝐾‘𝑥)))
32		fveq2 6840	. . . . . . 7 ⊢ (𝑥 = 0 → (𝐾‘𝑥) = (𝐾‘ 0 ))
33	17, 26, 31, 32	fmptco 7082	. . . . . 6 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾 ∘ 𝐹) = (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )))
34	10	mpteq2dv 5179	. . . . . . 7 ⊢ (𝜑 → (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )) = (𝑘 ∈ 𝐴 ↦ (0g‘𝐻)))
35	34	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )) = (𝑘 ∈ 𝐴 ↦ (0g‘𝐻)))
36	33, 35	eqtrd 2771	. . . . 5 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾 ∘ 𝐹) = (𝑘 ∈ 𝐴 ↦ (0g‘𝐻)))
37	36	oveq2d 7383	. . . 4 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σg (𝐾 ∘ 𝐹)) = (𝐻 Σg (𝑘 ∈ 𝐴 ↦ (0g‘𝐻))))
38	26	oveq2d 7383	. . . . . 6 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σg 𝐹) = (𝐺 Σg (𝑘 ∈ 𝐴 ↦ 0 )))
39	8	gsumz 18804	. . . . . . . 8 ⊢ ((𝐺 ∈ Mnd ∧ 𝐴 ∈ 𝑉) → (𝐺 Σg (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
40	13, 2, 39	syl2anc 585	. . . . . . 7 ⊢ (𝜑 → (𝐺 Σg (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
41	40	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σg (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
42	38, 41	eqtrd 2771	. . . . 5 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σg 𝐹) = 0 )
43	42	fveq2d 6844	. . . 4 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾‘(𝐺 Σg 𝐹)) = (𝐾‘ 0 ))
44	12, 37, 43	3eqtr4d 2781	. . 3 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σg (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σg 𝐹)))
45	44	ex 412	. 2 ⊢ (𝜑 → ((◡𝐹 “ (V ∖ { 0 })) = ∅ → (𝐻 Σg (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σg 𝐹))))
46	13	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝐺 ∈ Mnd)
47		eqid 2736	. . . . . . . . . 10 ⊢ (+g‘𝐺) = (+g‘𝐺)
48	14, 47	mndcl 18710	. . . . . . . . 9 ⊢ ((𝐺 ∈ Mnd ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑥(+g‘𝐺)𝑦) ∈ 𝐵)
49	48	3expb 1121	. . . . . . . 8 ⊢ ((𝐺 ∈ Mnd ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+g‘𝐺)𝑦) ∈ 𝐵)
50	46, 49	sylan 581	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+g‘𝐺)𝑦) ∈ 𝐵)
51		f1of1 6779	. . . . . . . . . . . 12 ⊢ (𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })) → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1→(◡𝐹 “ (V ∖ { 0 })))
52	51	ad2antll 730	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1→(◡𝐹 “ (V ∖ { 0 })))
53		cnvimass 6047	. . . . . . . . . . . 12 ⊢ (◡𝐹 “ (V ∖ { 0 })) ⊆ dom 𝐹
54	18	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝐹:𝐴⟶𝐵)
55	53, 54	fssdm 6687	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴)
56		f1ss 6741	. . . . . . . . . . 11 ⊢ ((𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1→(◡𝐹 “ (V ∖ { 0 })) ∧ (◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴) → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴)
57	52, 55, 56	syl2anc 585	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴)
58		f1f 6736	. . . . . . . . . 10 ⊢ (𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴 → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))⟶𝐴)
59	57, 58	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))⟶𝐴)
60		fco 6692	. . . . . . . . 9 ⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))⟶𝐴) → (𝐹 ∘ 𝑓):(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))⟶𝐵)
61	18, 59, 60	syl2an2r 686	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐹 ∘ 𝑓):(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))⟶𝐵)
62	61	ffvelcdmda 7036	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))) → ((𝐹 ∘ 𝑓)‘𝑥) ∈ 𝐵)
63		simprl 771	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ)
64		nnuz 12827	. . . . . . . 8 ⊢ ℕ = (ℤ≥‘1)
65	63, 64	eleqtrdi 2846	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ (ℤ≥‘1))
66	7	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝐾 ∈ (𝐺 MndHom 𝐻))
67		eqid 2736	. . . . . . . . . 10 ⊢ (+g‘𝐻) = (+g‘𝐻)
68	14, 47, 67	mhmlin 18761	. . . . . . . . 9 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝐾‘(𝑥(+g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+g‘𝐻)(𝐾‘𝑦)))
69	68	3expb 1121	. . . . . . . 8 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐾‘(𝑥(+g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+g‘𝐻)(𝐾‘𝑦)))
70	66, 69	sylan 581	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐾‘(𝑥(+g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+g‘𝐻)(𝐾‘𝑦)))
71		coass 6230	. . . . . . . . 9 ⊢ ((𝐾 ∘ 𝐹) ∘ 𝑓) = (𝐾 ∘ (𝐹 ∘ 𝑓))
72	71	fveq1i 6841	. . . . . . . 8 ⊢ (((𝐾 ∘ 𝐹) ∘ 𝑓)‘𝑥) = ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥)
73		fvco3 6939	. . . . . . . . 9 ⊢ (((𝐹 ∘ 𝑓):(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))⟶𝐵 ∧ 𝑥 ∈ (1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))) → ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥) = (𝐾‘((𝐹 ∘ 𝑓)‘𝑥)))
74	61, 73	sylan 581	. . . . . . . 8 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))) → ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥) = (𝐾‘((𝐹 ∘ 𝑓)‘𝑥)))
75	72, 74	eqtr2id 2784	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))) → (𝐾‘((𝐹 ∘ 𝑓)‘𝑥)) = (((𝐾 ∘ 𝐹) ∘ 𝑓)‘𝑥))
76	50, 62, 65, 70, 75	seqhomo 14011	. . . . . 6 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘(seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(♯‘(◡𝐹 “ (V ∖ { 0 }))))) = (seq1((+g‘𝐻), ((𝐾 ∘ 𝐹) ∘ 𝑓))‘(♯‘(◡𝐹 “ (V ∖ { 0 })))))
77		gsumzmhm.z	. . . . . . . 8 ⊢ 𝑍 = (Cntz‘𝐺)
78	2	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝐴 ∈ 𝑉)
79		gsumzmhm.c	. . . . . . . . 9 ⊢ (𝜑 → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
80	79	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
81	25	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐹 supp 0 ) ⊆ (◡𝐹 “ (V ∖ { 0 })))
82		f1ofo 6787	. . . . . . . . . . 11 ⊢ (𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })) → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–onto→(◡𝐹 “ (V ∖ { 0 })))
83		forn 6755	. . . . . . . . . . 11 ⊢ (𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–onto→(◡𝐹 “ (V ∖ { 0 })) → ran 𝑓 = (◡𝐹 “ (V ∖ { 0 })))
84	82, 83	syl 17	. . . . . . . . . 10 ⊢ (𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })) → ran 𝑓 = (◡𝐹 “ (V ∖ { 0 })))
85	84	ad2antll 730	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ran 𝑓 = (◡𝐹 “ (V ∖ { 0 })))
86	81, 85	sseqtrrd 3959	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐹 supp 0 ) ⊆ ran 𝑓)
87		eqid 2736	. . . . . . . 8 ⊢ ((𝐹 ∘ 𝑓) supp 0 ) = ((𝐹 ∘ 𝑓) supp 0 )
88	14, 8, 47, 77, 46, 78, 54, 80, 63, 57, 86, 87	gsumval3 19882	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐺 Σg 𝐹) = (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(♯‘(◡𝐹 “ (V ∖ { 0 })))))
89	88	fveq2d 6844	. . . . . 6 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘(𝐺 Σg 𝐹)) = (𝐾‘(seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(♯‘(◡𝐹 “ (V ∖ { 0 }))))))
90		eqid 2736	. . . . . . 7 ⊢ (Cntz‘𝐻) = (Cntz‘𝐻)
91	1	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝐻 ∈ Mnd)
92		fco 6692	. . . . . . . 8 ⊢ ((𝐾:𝐵⟶(Base‘𝐻) ∧ 𝐹:𝐴⟶𝐵) → (𝐾 ∘ 𝐹):𝐴⟶(Base‘𝐻))
93	29, 54, 92	syl2an2r 686	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐾 ∘ 𝐹):𝐴⟶(Base‘𝐻))
94	77, 90	cntzmhm2 19317	. . . . . . . . 9 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ ran 𝐹 ⊆ (𝑍‘ran 𝐹)) → (𝐾 “ ran 𝐹) ⊆ ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹)))
95	7, 80, 94	syl2an2r 686	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐾 “ ran 𝐹) ⊆ ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹)))
96		rnco2 6218	. . . . . . . 8 ⊢ ran (𝐾 ∘ 𝐹) = (𝐾 “ ran 𝐹)
97	96	fveq2i 6843	. . . . . . . 8 ⊢ ((Cntz‘𝐻)‘ran (𝐾 ∘ 𝐹)) = ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹))
98	95, 96, 97	3sstr4g 3975	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ran (𝐾 ∘ 𝐹) ⊆ ((Cntz‘𝐻)‘ran (𝐾 ∘ 𝐹)))
99		eldifi 4071	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (𝐴 ∖ (◡𝐹 “ (V ∖ { 0 }))) → 𝑥 ∈ 𝐴)
100		fvco3 6939	. . . . . . . . . . 11 ⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝑥 ∈ 𝐴) → ((𝐾 ∘ 𝐹)‘𝑥) = (𝐾‘(𝐹‘𝑥)))
101	54, 99, 100	syl2an 597	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹)‘𝑥) = (𝐾‘(𝐹‘𝑥)))
102	19	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 0 ∈ V)
103	54, 81, 78, 102	suppssr 8145	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (◡𝐹 “ (V ∖ { 0 })))) → (𝐹‘𝑥) = 0 )
104	103	fveq2d 6844	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘(𝐹‘𝑥)) = (𝐾‘ 0 ))
105	10	ad2antrr 727	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘ 0 ) = (0g‘𝐻))
106	101, 104, 105	3eqtrd 2775	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹)‘𝑥) = (0g‘𝐻))
107	93, 106	suppss 8144	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹) supp (0g‘𝐻)) ⊆ (◡𝐹 “ (V ∖ { 0 })))
108	107, 85	sseqtrrd 3959	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹) supp (0g‘𝐻)) ⊆ ran 𝑓)
109		eqid 2736	. . . . . . 7 ⊢ (((𝐾 ∘ 𝐹) ∘ 𝑓) supp (0g‘𝐻)) = (((𝐾 ∘ 𝐹) ∘ 𝑓) supp (0g‘𝐻))
110	27, 3, 67, 90, 91, 78, 93, 98, 63, 57, 108, 109	gsumval3 19882	. . . . . 6 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐻 Σg (𝐾 ∘ 𝐹)) = (seq1((+g‘𝐻), ((𝐾 ∘ 𝐹) ∘ 𝑓))‘(♯‘(◡𝐹 “ (V ∖ { 0 })))))
111	76, 89, 110	3eqtr4rd 2782	. . . . 5 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐻 Σg (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σg 𝐹)))
112	111	expr 456	. . . 4 ⊢ ((𝜑 ∧ (♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ) → (𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })) → (𝐻 Σg (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σg 𝐹))))
113	112	exlimdv 1935	. . 3 ⊢ ((𝜑 ∧ (♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ) → (∃𝑓 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })) → (𝐻 Σg (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σg 𝐹))))
114	113	expimpd 453	. 2 ⊢ (𝜑 → (((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 }))) → (𝐻 Σg (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σg 𝐹))))
115		gsumzmhm.w	. . . . 5 ⊢ (𝜑 → 𝐹 finSupp 0 )
116	115	fsuppimpd 9282	. . . 4 ⊢ (𝜑 → (𝐹 supp 0 ) ∈ Fin)
117	23, 116	eqeltrrd 2837	. . 3 ⊢ (𝜑 → (◡𝐹 “ (V ∖ { 0 })) ∈ Fin)
118		fz1f1o 15672	. . 3 ⊢ ((◡𝐹 “ (V ∖ { 0 })) ∈ Fin → ((◡𝐹 “ (V ∖ { 0 })) = ∅ ∨ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))))
119	117, 118	syl 17	. 2 ⊢ (𝜑 → ((◡𝐹 “ (V ∖ { 0 })) = ∅ ∨ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))))
120	45, 114, 119	mpjaod 861	1 ⊢ (𝜑 → (𝐻 Σg (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σg 𝐹)))

Syntax hints:   → wi 4   ∧ wa 395   ∨ wo 848   = wceq 1542  ∃wex 1781   ∈ wcel 2114  Vcvv 3429   ∖ cdif 3886   ⊆ wss 3889  ∅c0 4273  {csn 4567   class class class wbr 5085   ↦ cmpt 5166  ^◡ccnv 5630  ran crn 5632   “ cima 5634   ∘ ccom 5635  ⟶wf 6494  –1-1→wf1 6495  –onto→wfo 6496  –1-1-onto→wf1o 6497  ‘cfv 6498  (class class class)co 7367   supp csupp 8110  Fincfn 8893   finSupp cfsupp 9274  1c1 11039  ℕcn 12174  ℤ_≥cuz 12788  ...cfz 13461  seqcseq 13963  ♯chash 14292  Basecbs 17179  +_gcplusg 17220  0_gc0g 17402   Σ_g cgsu 17403  Mndcmnd 18702   MndHom cmhm 18749  Cntzccntz 19290

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2708  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5307  ax-pr 5375  ax-un 7689  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3062  df-rmo 3342  df-reu 3343  df-rab 3390  df-v 3431  df-sbc 3729  df-csb 3838  df-dif 3892  df-un 3894  df-in 3896  df-ss 3906  df-pss 3909  df-nul 4274  df-if 4467  df-pw 4543  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4851  df-int 4890  df-iun 4935  df-br 5086  df-opab 5148  df-mpt 5167  df-tr 5193  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-se 5585  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6265  df-ord 6326  df-on 6327  df-lim 6328  df-suc 6329  df-iota 6454  df-fun 6500  df-fn 6501  df-f 6502  df-f1 6503  df-fo 6504  df-f1o 6505  df-fv 6506  df-isom 6507  df-riota 7324  df-ov 7370  df-oprab 7371  df-mpo 7372  df-om 7818  df-1st 7942  df-2nd 7943  df-supp 8111  df-frecs 8231  df-wrecs 8262  df-recs 8311  df-rdg 8349  df-1o 8405  df-er 8643  df-map 8775  df-en 8894  df-dom 8895  df-sdom 8896  df-fin 8897  df-fsupp 9275  df-oi 9425  df-card 9863  df-pnf 11181  df-mnf 11182  df-xr 11183  df-ltxr 11184  df-le 11185  df-sub 11379  df-neg 11380  df-nn 12175  df-n0 12438  df-z 12525  df-uz 12789  df-fz 13462  df-fzo 13609  df-seq 13964  df-hash 14293  df-0g 17404  df-gsum 17405  df-mgm 18608  df-sgrp 18687  df-mnd 18703  df-mhm 18751  df-cntz 19292

This theorem is referenced by:  gsummhm  19913  gsumzinv  19920