gsumzmhm - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > gsumzmhm		Structured version Visualization version GIF version

Theorem gsumzmhm 19935

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 = (0_g‘𝐺)
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 2726	. . . . . . . 8 ⊢ (0_g‘𝐻) = (0_g‘𝐻)
4	3	gsumz 18826	. . . . . . 7 ⊢ ((𝐻 ∈ Mnd ∧ 𝐴 ∈ 𝑉) → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (0_g‘𝐻))
5	1, 2, 4	syl2anc 582	. . . . . 6 ⊢ (𝜑 → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (0_g‘𝐻))
6	5	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (0_g‘𝐻))
7		gsumzmhm.k	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ (𝐺 MndHom 𝐻))
8		gsumzmhm.0	. . . . . . . 8 ⊢ 0 = (0_g‘𝐺)
9	8, 3	mhm0 18784	. . . . . . 7 ⊢ (𝐾 ∈ (𝐺 MndHom 𝐻) → (𝐾‘ 0 ) = (0_g‘𝐻))
10	7, 9	syl 17	. . . . . 6 ⊢ (𝜑 → (𝐾‘ 0 ) = (0_g‘𝐻))
11	10	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾‘ 0 ) = (0_g‘𝐻))
12	6, 11	eqtr4d 2769	. . . 4 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (𝐾‘ 0 ))
13		gsumzmhm.g	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 ∈ Mnd)
14		gsumzmhm.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝐺)
15	14, 8	mndidcl 18742	. . . . . . . . 9 ⊢ (𝐺 ∈ Mnd → 0 ∈ 𝐵)
16	13, 15	syl 17	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ 𝐵)
17	16	ad2antrr 724	. . . . . . 7 ⊢ (((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) ∧ 𝑘 ∈ 𝐴) → 0 ∈ 𝐵)
18		gsumzmhm.f	. . . . . . . 8 ⊢ (𝜑 → 𝐹:𝐴⟶𝐵)
19	8	fvexi 6915	. . . . . . . . 9 ⊢ 0 ∈ V
20	19	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ V)
21	18, 2	fexd 7244	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ V)
22		suppimacnv 8188	. . . . . . . . . 10 ⊢ ((𝐹 ∈ V ∧ 0 ∈ V) → (𝐹 supp 0 ) = (^◡𝐹 “ (V ∖ { 0 })))
23	21, 20, 22	syl2anc 582	. . . . . . . . 9 ⊢ (𝜑 → (𝐹 supp 0 ) = (^◡𝐹 “ (V ∖ { 0 })))
24		ssid 4002	. . . . . . . . 9 ⊢ (^◡𝐹 “ (V ∖ { 0 })) ⊆ (^◡𝐹 “ (V ∖ { 0 }))
25	23, 24	eqsstrdi 4034	. . . . . . . 8 ⊢ (𝜑 → (𝐹 supp 0 ) ⊆ (^◡𝐹 “ (V ∖ { 0 })))
26	18, 2, 20, 25	gsumcllem 19906	. . . . . . 7 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → 𝐹 = (𝑘 ∈ 𝐴 ↦ 0 ))
27		eqid 2726	. . . . . . . . . . 11 ⊢ (Base‘𝐻) = (Base‘𝐻)
28	14, 27	mhmf 18779	. . . . . . . . . 10 ⊢ (𝐾 ∈ (𝐺 MndHom 𝐻) → 𝐾:𝐵⟶(Base‘𝐻))
29	7, 28	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐾:𝐵⟶(Base‘𝐻))
30	29	feqmptd 6971	. . . . . . . 8 ⊢ (𝜑 → 𝐾 = (𝑥 ∈ 𝐵 ↦ (𝐾‘𝑥)))
31	30	adantr 479	. . . . . . 7 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → 𝐾 = (𝑥 ∈ 𝐵 ↦ (𝐾‘𝑥)))
32		fveq2 6901	. . . . . . 7 ⊢ (𝑥 = 0 → (𝐾‘𝑥) = (𝐾‘ 0 ))
33	17, 26, 31, 32	fmptco 7143	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾 ∘ 𝐹) = (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )))
34	10	mpteq2dv 5255	. . . . . . 7 ⊢ (𝜑 → (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )) = (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻)))
35	34	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )) = (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻)))
36	33, 35	eqtrd 2766	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾 ∘ 𝐹) = (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻)))
37	36	oveq2d 7440	. . . 4 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))))
38	26	oveq2d 7440	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σ_g 𝐹) = (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )))
39	8	gsumz 18826	. . . . . . . 8 ⊢ ((𝐺 ∈ Mnd ∧ 𝐴 ∈ 𝑉) → (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
40	13, 2, 39	syl2anc 582	. . . . . . 7 ⊢ (𝜑 → (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
41	40	adantr 479	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
42	38, 41	eqtrd 2766	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σ_g 𝐹) = 0 )
43	42	fveq2d 6905	. . . 4 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾‘(𝐺 Σ_g 𝐹)) = (𝐾‘ 0 ))
44	12, 37, 43	3eqtr4d 2776	. . 3 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹)))
45	44	ex 411	. 2 ⊢ (𝜑 → ((^◡𝐹 “ (V ∖ { 0 })) = ∅ → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹))))
46	13	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐺 ∈ Mnd)
47		eqid 2726	. . . . . . . . . 10 ⊢ (+_g‘𝐺) = (+_g‘𝐺)
48	14, 47	mndcl 18735	. . . . . . . . 9 ⊢ ((𝐺 ∈ Mnd ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑥(+_g‘𝐺)𝑦) ∈ 𝐵)
49	48	3expb 1117	. . . . . . . 8 ⊢ ((𝐺 ∈ Mnd ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+_g‘𝐺)𝑦) ∈ 𝐵)
50	46, 49	sylan 578	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+_g‘𝐺)𝑦) ∈ 𝐵)
51		f1of1 6842	. . . . . . . . . . . 12 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→(^◡𝐹 “ (V ∖ { 0 })))
52	51	ad2antll 727	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→(^◡𝐹 “ (V ∖ { 0 })))
53		cnvimass 6091	. . . . . . . . . . . 12 ⊢ (^◡𝐹 “ (V ∖ { 0 })) ⊆ dom 𝐹
54	18	adantr 479	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐹:𝐴⟶𝐵)
55	53, 54	fssdm 6747	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (^◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴)
56		f1ss 6803	. . . . . . . . . . 11 ⊢ ((𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→(^◡𝐹 “ (V ∖ { 0 })) ∧ (^◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴)
57	52, 55, 56	syl2anc 582	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴)
58		f1f 6798	. . . . . . . . . 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 6752	. . . . . . . . 9 ⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐴) → (𝐹 ∘ 𝑓):(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐵)
61	18, 59, 60	syl2an2r 683	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐹 ∘ 𝑓):(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐵)
62	61	ffvelcdmda 7098	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → ((𝐹 ∘ 𝑓)‘𝑥) ∈ 𝐵)
63		simprl 769	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ)
64		nnuz 12917	. . . . . . . 8 ⊢ ℕ = (ℤ_≥‘1)
65	63, 64	eleqtrdi 2836	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ (ℤ_≥‘1))
66	7	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐾 ∈ (𝐺 MndHom 𝐻))
67		eqid 2726	. . . . . . . . . 10 ⊢ (+_g‘𝐻) = (+_g‘𝐻)
68	14, 47, 67	mhmlin 18783	. . . . . . . . 9 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝐾‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+_g‘𝐻)(𝐾‘𝑦)))
69	68	3expb 1117	. . . . . . . 8 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐾‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+_g‘𝐻)(𝐾‘𝑦)))
70	66, 69	sylan 578	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐾‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+_g‘𝐻)(𝐾‘𝑦)))
71		coass 6276	. . . . . . . . 9 ⊢ ((𝐾 ∘ 𝐹) ∘ 𝑓) = (𝐾 ∘ (𝐹 ∘ 𝑓))
72	71	fveq1i 6902	. . . . . . . 8 ⊢ (((𝐾 ∘ 𝐹) ∘ 𝑓)‘𝑥) = ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥)
73		fvco3 7001	. . . . . . . . 9 ⊢ (((𝐹 ∘ 𝑓):(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐵 ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥) = (𝐾‘((𝐹 ∘ 𝑓)‘𝑥)))
74	61, 73	sylan 578	. . . . . . . 8 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥) = (𝐾‘((𝐹 ∘ 𝑓)‘𝑥)))
75	72, 74	eqtr2id 2779	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → (𝐾‘((𝐹 ∘ 𝑓)‘𝑥)) = (((𝐾 ∘ 𝐹) ∘ 𝑓)‘𝑥))
76	50, 62, 65, 70, 75	seqhomo 14069	. . . . . 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 479	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐴 ∈ 𝑉)
79		gsumzmhm.c	. . . . . . . . 9 ⊢ (𝜑 → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
80	79	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
81	25	adantr 479	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐹 supp 0 ) ⊆ (^◡𝐹 “ (V ∖ { 0 })))
82		f1ofo 6850	. . . . . . . . . . 11 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–onto→(^◡𝐹 “ (V ∖ { 0 })))
83		forn 6818	. . . . . . . . . . 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 727	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ran 𝑓 = (^◡𝐹 “ (V ∖ { 0 })))
86	81, 85	sseqtrrd 4021	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐹 supp 0 ) ⊆ ran 𝑓)
87		eqid 2726	. . . . . . . 8 ⊢ ((𝐹 ∘ 𝑓) supp 0 ) = ((𝐹 ∘ 𝑓) supp 0 )
88	14, 8, 47, 77, 46, 78, 54, 80, 63, 57, 86, 87	gsumval3 19905	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐺 Σ_g 𝐹) = (seq1((+_g‘𝐺), (𝐹 ∘ 𝑓))‘(♯‘(^◡𝐹 “ (V ∖ { 0 })))))
89	88	fveq2d 6905	. . . . . 6 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘(𝐺 Σ_g 𝐹)) = (𝐾‘(seq1((+_g‘𝐺), (𝐹 ∘ 𝑓))‘(♯‘(^◡𝐹 “ (V ∖ { 0 }))))))
90		eqid 2726	. . . . . . 7 ⊢ (Cntz‘𝐻) = (Cntz‘𝐻)
91	1	adantr 479	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐻 ∈ Mnd)
92		fco 6752	. . . . . . . 8 ⊢ ((𝐾:𝐵⟶(Base‘𝐻) ∧ 𝐹:𝐴⟶𝐵) → (𝐾 ∘ 𝐹):𝐴⟶(Base‘𝐻))
93	29, 54, 92	syl2an2r 683	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐾 ∘ 𝐹):𝐴⟶(Base‘𝐻))
94	77, 90	cntzmhm2 19336	. . . . . . . . 9 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ ran 𝐹 ⊆ (𝑍‘ran 𝐹)) → (𝐾 “ ran 𝐹) ⊆ ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹)))
95	7, 80, 94	syl2an2r 683	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐾 “ ran 𝐹) ⊆ ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹)))
96		rnco2 6264	. . . . . . . 8 ⊢ ran (𝐾 ∘ 𝐹) = (𝐾 “ ran 𝐹)
97	96	fveq2i 6904	. . . . . . . 8 ⊢ ((Cntz‘𝐻)‘ran (𝐾 ∘ 𝐹)) = ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹))
98	95, 96, 97	3sstr4g 4025	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ran (𝐾 ∘ 𝐹) ⊆ ((Cntz‘𝐻)‘ran (𝐾 ∘ 𝐹)))
99		eldifi 4126	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 }))) → 𝑥 ∈ 𝐴)
100		fvco3 7001	. . . . . . . . . . 11 ⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝑥 ∈ 𝐴) → ((𝐾 ∘ 𝐹)‘𝑥) = (𝐾‘(𝐹‘𝑥)))
101	54, 99, 100	syl2an 594	. . . . . . . . . 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 8210	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → (𝐹‘𝑥) = 0 )
104	103	fveq2d 6905	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘(𝐹‘𝑥)) = (𝐾‘ 0 ))
105	10	ad2antrr 724	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘ 0 ) = (0_g‘𝐻))
106	101, 104, 105	3eqtrd 2770	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹)‘𝑥) = (0_g‘𝐻))
107	93, 106	suppss 8208	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹) supp (0_g‘𝐻)) ⊆ (^◡𝐹 “ (V ∖ { 0 })))
108	107, 85	sseqtrrd 4021	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹) supp (0_g‘𝐻)) ⊆ ran 𝑓)
109		eqid 2726	. . . . . . 7 ⊢ (((𝐾 ∘ 𝐹) ∘ 𝑓) supp (0_g‘𝐻)) = (((𝐾 ∘ 𝐹) ∘ 𝑓) supp (0_g‘𝐻))
110	27, 3, 67, 90, 91, 78, 93, 98, 63, 57, 108, 109	gsumval3 19905	. . . . . 6 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (seq1((+_g‘𝐻), ((𝐾 ∘ 𝐹) ∘ 𝑓))‘(♯‘(^◡𝐹 “ (V ∖ { 0 })))))
111	76, 89, 110	3eqtr4rd 2777	. . . . 5 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹)))
112	111	expr 455	. . . 4 ⊢ ((𝜑 ∧ (♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ) → (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹))))
113	112	exlimdv 1929	. . 3 ⊢ ((𝜑 ∧ (♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ) → (∃𝑓 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹))))
114	113	expimpd 452	. 2 ⊢ (𝜑 → (((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 }))) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹))))
115		gsumzmhm.w	. . . . 5 ⊢ (𝜑 → 𝐹 finSupp 0 )
116	115	fsuppimpd 9413	. . . 4 ⊢ (𝜑 → (𝐹 supp 0 ) ∈ Fin)
117	23, 116	eqeltrrd 2827	. . 3 ⊢ (𝜑 → (^◡𝐹 “ (V ∖ { 0 })) ∈ Fin)
118		fz1f1o 15714	. . 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 858	1 ⊢ (𝜑 → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 394 ∨ wo 845 = wceq 1534 ∃wex 1774 ∈ wcel 2099 Vcvv 3462 ∖ cdif 3944 ⊆ wss 3947 ∅c0 4325 {csn 4633 class class class wbr 5153 ↦ cmpt 5236 ^◡ccnv 5681 ran crn 5683 “ cima 5685 ∘ ccom 5686 ⟶wf 6550 –1-1→wf1 6551 –onto→wfo 6552 –1-1-onto→wf1o 6553 ‘cfv 6554 (class class class)co 7424 supp csupp 8174 Fincfn 8974 finSupp cfsupp 9405 1c1 11159 ℕcn 12264 ℤ_≥cuz 12874 ...cfz 13538 seqcseq 14021 ♯chash 14347 Basecbs 17213 +_gcplusg 17266 0_gc0g 17454 Σ_g cgsu 17455 Mndcmnd 18727 MndHom cmhm 18771 Cntzccntz 19309

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1790 ax-4 1804 ax-5 1906 ax-6 1964 ax-7 2004 ax-8 2101 ax-9 2109 ax-10 2130 ax-11 2147 ax-12 2167 ax-ext 2697 ax-rep 5290 ax-sep 5304 ax-nul 5311 ax-pow 5369 ax-pr 5433 ax-un 7746 ax-cnex 11214 ax-resscn 11215 ax-1cn 11216 ax-icn 11217 ax-addcl 11218 ax-addrcl 11219 ax-mulcl 11220 ax-mulrcl 11221 ax-mulcom 11222 ax-addass 11223 ax-mulass 11224 ax-distr 11225 ax-i2m1 11226 ax-1ne0 11227 ax-1rid 11228 ax-rnegex 11229 ax-rrecex 11230 ax-cnre 11231 ax-pre-lttri 11232 ax-pre-lttrn 11233 ax-pre-ltadd 11234 ax-pre-mulgt0 11235

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1537 df-fal 1547 df-ex 1775 df-nf 1779 df-sb 2061 df-mo 2529 df-eu 2558 df-clab 2704 df-cleq 2718 df-clel 2803 df-nfc 2878 df-ne 2931 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3364 df-reu 3365 df-rab 3420 df-v 3464 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3967 df-nul 4326 df-if 4534 df-pw 4609 df-sn 4634 df-pr 4636 df-op 4640 df-uni 4914 df-int 4955 df-iun 5003 df-br 5154 df-opab 5216 df-mpt 5237 df-tr 5271 df-id 5580 df-eprel 5586 df-po 5594 df-so 5595 df-fr 5637 df-se 5638 df-we 5639 df-xp 5688 df-rel 5689 df-cnv 5690 df-co 5691 df-dm 5692 df-rn 5693 df-res 5694 df-ima 5695 df-pred 6312 df-ord 6379 df-on 6380 df-lim 6381 df-suc 6382 df-iota 6506 df-fun 6556 df-fn 6557 df-f 6558 df-f1 6559 df-fo 6560 df-f1o 6561 df-fv 6562 df-isom 6563 df-riota 7380 df-ov 7427 df-oprab 7428 df-mpo 7429 df-om 7877 df-1st 8003 df-2nd 8004 df-supp 8175 df-frecs 8296 df-wrecs 8327 df-recs 8401 df-rdg 8440 df-1o 8496 df-er 8734 df-map 8857 df-en 8975 df-dom 8976 df-sdom 8977 df-fin 8978 df-fsupp 9406 df-oi 9553 df-card 9982 df-pnf 11300 df-mnf 11301 df-xr 11302 df-ltxr 11303 df-le 11304 df-sub 11496 df-neg 11497 df-nn 12265 df-n0 12525 df-z 12611 df-uz 12875 df-fz 13539 df-fzo 13682 df-seq 14022 df-hash 14348 df-0g 17456 df-gsum 17457 df-mgm 18633 df-sgrp 18712 df-mnd 18728 df-mhm 18773 df-cntz 19311

This theorem is referenced by: gsummhm 19936 gsumzinv 19943

W3C validator