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 20166

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 2763	. . . . . . . 8 ⊢ (0_g‘𝐻) = (0_g‘𝐻)
4	3	gsumz 19047	. . . . . . 7 ⊢ ((𝐻 ∈ Mnd ∧ 𝐴 ∈ 𝑉) → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (0_g‘𝐻))
5	1, 2, 4	syl2anc 596	. . . . . 6 ⊢ (𝜑 → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (0_g‘𝐻))
6	5	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (0_g‘𝐻))
7		gsumzmhm.k	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ (𝐺 MndHom 𝐻))
8		gsumzmhm.0	. . . . . . . 8 ⊢ 0 = (0_g‘𝐺)
9	8, 3	mhm0 19004	. . . . . . 7 ⊢ (𝐾 ∈ (𝐺 MndHom 𝐻) → (𝐾‘ 0 ) = (0_g‘𝐻))
10	7, 9	syl 18	. . . . . 6 ⊢ (𝜑 → (𝐾‘ 0 ) = (0_g‘𝐻))
11	10	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾‘ 0 ) = (0_g‘𝐻))
12	6, 11	eqtr4d 2801	. . . 4 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (𝐾‘ 0 ))
13		gsumzmhm.g	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 ∈ Mnd)
14		gsumzmhm.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝐺)
15	14, 8	mndidcl 18954	. . . . . . . . 9 ⊢ (𝐺 ∈ Mnd → 0 ∈ 𝐵)
16	13, 15	syl 18	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ 𝐵)
17	16	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) ∧ 𝑘 ∈ 𝐴) → 0 ∈ 𝐵)
18		gsumzmhm.f	. . . . . . . 8 ⊢ (𝜑 → 𝐹:𝐴⟶𝐵)
19	8	fvexi 6910	. . . . . . . . 9 ⊢ 0 ∈ V
20	19	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ V)
21	18, 2	fexd 7243	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ V)
22		suppimacnv 8205	. . . . . . . . . 10 ⊢ ((𝐹 ∈ V ∧ 0 ∈ V) → (𝐹 supp 0 ) = (^◡𝐹 “ (V ∖ { 0 })))
23	21, 20, 22	syl2anc 596	. . . . . . . . 9 ⊢ (𝜑 → (𝐹 supp 0 ) = (^◡𝐹 “ (V ∖ { 0 })))
24		ssid 3935	. . . . . . . . 9 ⊢ (^◡𝐹 “ (V ∖ { 0 })) ⊆ (^◡𝐹 “ (V ∖ { 0 }))
25	23, 24	eqsstrdi 3957	. . . . . . . 8 ⊢ (𝜑 → (𝐹 supp 0 ) ⊆ (^◡𝐹 “ (V ∖ { 0 })))
26	18, 2, 20, 25	gsumcllem 20137	. . . . . . 7 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → 𝐹 = (𝑘 ∈ 𝐴 ↦ 0 ))
27		eqid 2763	. . . . . . . . . . 11 ⊢ (Base‘𝐻) = (Base‘𝐻)
28	14, 27	mhmf 18999	. . . . . . . . . 10 ⊢ (𝐾 ∈ (𝐺 MndHom 𝐻) → 𝐾:𝐵⟶(Base‘𝐻))
29	7, 28	syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝐾:𝐵⟶(Base‘𝐻))
30	29	feqmptd 6964	. . . . . . . 8 ⊢ (𝜑 → 𝐾 = (𝑥 ∈ 𝐵 ↦ (𝐾‘𝑥)))
31	30	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → 𝐾 = (𝑥 ∈ 𝐵 ↦ (𝐾‘𝑥)))
32		fveq2 6896	. . . . . . 7 ⊢ (𝑥 = 0 → (𝐾‘𝑥) = (𝐾‘ 0 ))
33	17, 26, 31, 32	fmptco 7141	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾 ∘ 𝐹) = (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )))
34	10	mpteq2dv 5202	. . . . . . 7 ⊢ (𝜑 → (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )) = (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻)))
35	34	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )) = (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻)))
36	33, 35	eqtrd 2798	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾 ∘ 𝐹) = (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻)))
37	36	oveq2d 7446	. . . 4 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))))
38	26	oveq2d 7446	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σ_g 𝐹) = (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )))
39	8	gsumz 19047	. . . . . . . 8 ⊢ ((𝐺 ∈ Mnd ∧ 𝐴 ∈ 𝑉) → (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
40	13, 2, 39	syl2anc 596	. . . . . . 7 ⊢ (𝜑 → (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
41	40	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
42	38, 41	eqtrd 2798	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σ_g 𝐹) = 0 )
43	42	fveq2d 6900	. . . 4 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾‘(𝐺 Σ_g 𝐹)) = (𝐾‘ 0 ))
44	12, 37, 43	3eqtr4d 2808	. . 3 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹)))
45	44	ex 418	. 2 ⊢ (𝜑 → ((^◡𝐹 “ (V ∖ { 0 })) = ∅ → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹))))
46	13	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐺 ∈ Mnd)
47		eqid 2763	. . . . . . . . . 10 ⊢ (+_g‘𝐺) = (+_g‘𝐺)
48	14, 47	mndcl 18946	. . . . . . . . 9 ⊢ ((𝐺 ∈ Mnd ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑥(+_g‘𝐺)𝑦) ∈ 𝐵)
49	48	3expb 1138	. . . . . . . 8 ⊢ ((𝐺 ∈ Mnd ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+_g‘𝐺)𝑦) ∈ 𝐵)
50	46, 49	sylan 592	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+_g‘𝐺)𝑦) ∈ 𝐵)
51		f1of1 6834	. . . . . . . . . . . 12 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→(^◡𝐹 “ (V ∖ { 0 })))
52	51	ad2antll 742	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→(^◡𝐹 “ (V ∖ { 0 })))
53		cnvimass 6205	. . . . . . . . . . . 12 ⊢ (^◡𝐹 “ (V ∖ { 0 })) ⊆ dom 𝐹
54	18	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐹:𝐴⟶𝐵)
55	53, 54	fssdm 6740	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (^◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴)
56		f1ss 6796	. . . . . . . . . . 11 ⊢ ((𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→(^◡𝐹 “ (V ∖ { 0 })) ∧ (^◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴)
57	52, 55, 56	syl2anc 596	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴)
58		f1f 6789	. . . . . . . . . 10 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴 → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐴)
59	57, 58	syl 18	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐴)
60		fco 6745	. . . . . . . . 9 ⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐴) → (𝐹 ∘ 𝑓):(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐵)
61	18, 59, 60	syl2an2r 698	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐹 ∘ 𝑓):(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐵)
62	61	ffvelcdmda 7095	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → ((𝐹 ∘ 𝑓)‘𝑥) ∈ 𝐵)
63		simprl 783	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ)
64		nnuz 13017	. . . . . . . 8 ⊢ ℕ = (ℤ_≥‘1)
65	63, 64	eleqtrdi 2874	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ (ℤ_≥‘1))
66	7	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐾 ∈ (𝐺 MndHom 𝐻))
67		eqid 2763	. . . . . . . . . 10 ⊢ (+_g‘𝐻) = (+_g‘𝐻)
68	14, 47, 67	mhmlin 19003	. . . . . . . . 9 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝐾‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+_g‘𝐻)(𝐾‘𝑦)))
69	68	3expb 1138	. . . . . . . 8 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐾‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+_g‘𝐻)(𝐾‘𝑦)))
70	66, 69	sylan 592	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐾‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+_g‘𝐻)(𝐾‘𝑦)))
71		coass 6274	. . . . . . . . 9 ⊢ ((𝐾 ∘ 𝐹) ∘ 𝑓) = (𝐾 ∘ (𝐹 ∘ 𝑓))
72	71	fveq1i 6897	. . . . . . . 8 ⊢ (((𝐾 ∘ 𝐹) ∘ 𝑓)‘𝑥) = ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥)
73		fvco3 6996	. . . . . . . . 9 ⊢ (((𝐹 ∘ 𝑓):(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐵 ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥) = (𝐾‘((𝐹 ∘ 𝑓)‘𝑥)))
74	61, 73	sylan 592	. . . . . . . 8 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥) = (𝐾‘((𝐹 ∘ 𝑓)‘𝑥)))
75	72, 74	eqtr2id 2811	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → (𝐾‘((𝐹 ∘ 𝑓)‘𝑥)) = (((𝐾 ∘ 𝐹) ∘ 𝑓)‘𝑥))
76	50, 62, 65, 70, 75	seqhomo 14205	. . . . . 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 486	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐴 ∈ 𝑉)
79		gsumzmhm.c	. . . . . . . . 9 ⊢ (𝜑 → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
80	79	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
81	25	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐹 supp 0 ) ⊆ (^◡𝐹 “ (V ∖ { 0 })))
82		f1ofo 6843	. . . . . . . . . . 11 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–onto→(^◡𝐹 “ (V ∖ { 0 })))
83		forn 6810	. . . . . . . . . . 11 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–onto→(^◡𝐹 “ (V ∖ { 0 })) → ran 𝑓 = (^◡𝐹 “ (V ∖ { 0 })))
84	82, 83	syl 18	. . . . . . . . . 10 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → ran 𝑓 = (^◡𝐹 “ (V ∖ { 0 })))
85	84	ad2antll 742	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ran 𝑓 = (^◡𝐹 “ (V ∖ { 0 })))
86	81, 85	sseqtrrd 3950	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐹 supp 0 ) ⊆ ran 𝑓)
87		eqid 2763	. . . . . . . 8 ⊢ ((𝐹 ∘ 𝑓) supp 0 ) = ((𝐹 ∘ 𝑓) supp 0 )
88	14, 8, 47, 77, 46, 78, 54, 80, 63, 57, 86, 87	gsumval3 20136	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐺 Σ_g 𝐹) = (seq1((+_g‘𝐺), (𝐹 ∘ 𝑓))‘(♯‘(^◡𝐹 “ (V ∖ { 0 })))))
89	88	fveq2d 6900	. . . . . 6 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘(𝐺 Σ_g 𝐹)) = (𝐾‘(seq1((+_g‘𝐺), (𝐹 ∘ 𝑓))‘(♯‘(^◡𝐹 “ (V ∖ { 0 }))))))
90		eqid 2763	. . . . . . 7 ⊢ (Cntz‘𝐻) = (Cntz‘𝐻)
91	1	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐻 ∈ Mnd)
92		fco 6745	. . . . . . . 8 ⊢ ((𝐾:𝐵⟶(Base‘𝐻) ∧ 𝐹:𝐴⟶𝐵) → (𝐾 ∘ 𝐹):𝐴⟶(Base‘𝐻))
93	29, 54, 92	syl2an2r 698	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐾 ∘ 𝐹):𝐴⟶(Base‘𝐻))
94	77, 90	cntzmhm2 19571	. . . . . . . . 9 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ ran 𝐹 ⊆ (𝑍‘ran 𝐹)) → (𝐾 “ ran 𝐹) ⊆ ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹)))
95	7, 80, 94	syl2an2r 698	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐾 “ ran 𝐹) ⊆ ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹)))
96		rnco2 6262	. . . . . . . 8 ⊢ ran (𝐾 ∘ 𝐹) = (𝐾 “ ran 𝐹)
97	96	fveq2i 6899	. . . . . . . 8 ⊢ ((Cntz‘𝐻)‘ran (𝐾 ∘ 𝐹)) = ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹))
98	95, 96, 97	3sstr4g 3966	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ran (𝐾 ∘ 𝐹) ⊆ ((Cntz‘𝐻)‘ran (𝐾 ∘ 𝐹)))
99		eldifi 4070	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 }))) → 𝑥 ∈ 𝐴)
100		fvco3 6996	. . . . . . . . . . 11 ⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝑥 ∈ 𝐴) → ((𝐾 ∘ 𝐹)‘𝑥) = (𝐾‘(𝐹‘𝑥)))
101	54, 99, 100	syl2an 608	. . . . . . . . . 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 8226	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → (𝐹‘𝑥) = 0 )
104	103	fveq2d 6900	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘(𝐹‘𝑥)) = (𝐾‘ 0 ))
105	10	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘ 0 ) = (0_g‘𝐻))
106	101, 104, 105	3eqtrd 2802	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹)‘𝑥) = (0_g‘𝐻))
107	93, 106	suppss 8225	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹) supp (0_g‘𝐻)) ⊆ (^◡𝐹 “ (V ∖ { 0 })))
108	107, 85	sseqtrrd 3950	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹) supp (0_g‘𝐻)) ⊆ ran 𝑓)
109		eqid 2763	. . . . . . 7 ⊢ (((𝐾 ∘ 𝐹) ∘ 𝑓) supp (0_g‘𝐻)) = (((𝐾 ∘ 𝐹) ∘ 𝑓) supp (0_g‘𝐻))
110	27, 3, 67, 90, 91, 78, 93, 98, 63, 57, 108, 109	gsumval3 20136	. . . . . 6 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (seq1((+_g‘𝐻), ((𝐾 ∘ 𝐹) ∘ 𝑓))‘(♯‘(^◡𝐹 “ (V ∖ { 0 })))))
111	76, 89, 110	3eqtr4rd 2809	. . . . 5 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹)))
112	111	expr 462	. . . 4 ⊢ ((𝜑 ∧ (♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ) → (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹))))
113	112	exlimdv 1967	. . 3 ⊢ ((𝜑 ∧ (♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ) → (∃𝑓 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹))))
114	113	expimpd 459	. 2 ⊢ (𝜑 → (((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 }))) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹))))
115		gsumzmhm.w	. . . . 5 ⊢ (𝜑 → 𝐹 finSupp 0 )
116	115	fsuppimpd 9375	. . . 4 ⊢ (𝜑 → (𝐹 supp 0 ) ∈ Fin)
117	23, 116	eqeltrrd 2865	. . 3 ⊢ (𝜑 → (^◡𝐹 “ (V ∖ { 0 })) ∈ Fin)
118		fz1f1o 15891	. . 3 ⊢ ((^◡𝐹 “ (V ∖ { 0 })) ∈ Fin → ((^◡𝐹 “ (V ∖ { 0 })) = ∅ ∨ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))))
119	117, 118	syl 18	. 2 ⊢ (𝜑 → ((^◡𝐹 “ (V ∖ { 0 })) = ∅ ∨ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))))
120	45, 114, 119	mpjaod 874	1 ⊢ (𝜑 → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹)))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ∧ wa 401 ∨ wo 861 = wceq 1569 ∃wex 1811 ∈ wcel 2146 Vcvv 3454 ⊆ wss 3900 ∖ cdif 4048 ∅c0 4281 {csn 4588 class class class wbr 5106 ↦ cmpt 5189 ^◡ccnv 5654 ran crn 5656 “ cima 5658 ∘ ccom 5659 ⟶wf 6543 –1-1→wf1 6544 –onto→wfo 6545 –1-1-onto→wf1o 6546 ‘cfv 6547 (class class class)co 7430 supp csupp 8190 Fincfn 8987 finSupp cfsupp 9367 1c1 11214 ℕcn 12348 ℤ_≥cuz 12978 ...cfz 13652 seqcseq 14157 ♯chash 14487 Basecbs 17402 +_gcplusg 17443 0_gc0g 17625 Σ_g cgsu 17626 Mndcmnd 18938 MndHom cmhm 18991 Cntzccntz 19544

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1944 ax-6 2001 ax-7 2042 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2196 ax-12 2215 ax-ext 2735 ax-rep 5235 ax-sep 5252 ax-nul 5263 ax-pow 5331 ax-pr 5395 ax-un 7761 ax-cnex 11269 ax-resscn 11270 ax-1cn 11271 ax-icn 11272 ax-addcl 11273 ax-addrcl 11274 ax-mulcl 11275 ax-mulrcl 11276 ax-mulcom 11277 ax-addass 11278 ax-mulass 11279 ax-distr 11280 ax-i2m1 11281 ax-1ne0 11282 ax-1rid 11283 ax-rnegex 11284 ax-rrecex 11285 ax-cnre 11286 ax-pre-lttri 11287 ax-pre-lttrn 11288 ax-pre-ltadd 11289 ax-pre-mulgt0 11290

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2101 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2839 df-nfc 2913 df-ne 2960 df-nel 3066 df-ral 3081 df-rex 3091 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3456 df-sbc 3743 df-csb 3852 df-ss 3901 df-pss 4017 df-dif 4050 df-in 4094 df-un 4154 df-nul 4282 df-if 4486 df-pw 4562 df-sn 4589 df-pr 4591 df-op 4839 df-uni 4871 df-int 4911 df-iun 4956 df-br 5107 df-opab 5171 df-mpt 5190 df-tr 5216 df-id 5550 df-eprel 5555 df-po 5563 df-so 5564 df-fr 5608 df-se 5609 df-we 5610 df-xp 5661 df-rel 5662 df-cnv 5663 df-co 5664 df-dm 5665 df-rn 5666 df-res 5667 df-ima 5668 df-pred 6311 df-ord 6372 df-on 6373 df-lim 6374 df-suc 6375 df-iota 6501 df-fun 6549 df-fn 6550 df-f 6551 df-f1 6552 df-fo 6553 df-f1o 6554 df-fv 6555 df-isom 6556 df-riota 7387 df-ov 7433 df-oprab 7434 df-mpo 7435 df-om 7888 df-1st 8011 df-2nd 8012 df-supp 8191 df-frecs 8313 df-wrecs 8344 df-recs 8393 df-rdg 8432 df-1o 8490 df-er 8731 df-map 8863 df-en 8988 df-dom 8989 df-sdom 8990 df-fin 8991 df-fsupp 9368 df-oi 9517 df-card 10033 df-pnf 11358 df-mnf 11359 df-xr 11360 df-ltxr 11361 df-le 11362 df-sub 11556 df-neg 11557 df-nn 12349 df-n0 12620 df-z 12707 df-uz 12979 df-fz 13653 df-fzo 13802 df-seq 14158 df-hash 14488 df-0g 17627 df-gsum 17628 df-mgm 18831 df-sgrp 18923 df-mnd 18939 df-mhm 18993 df-cntz 19546

This theorem is used by: gsummhm 20167 gsumzinv 20174

W3C validator