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 19923

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 2736	. . . . . . . 8 ⊢ (0_g‘𝐻) = (0_g‘𝐻)
4	3	gsumz 18819	. . . . . . 7 ⊢ ((𝐻 ∈ Mnd ∧ 𝐴 ∈ 𝑉) → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (0_g‘𝐻))
5	1, 2, 4	syl2anc 584	. . . . . 6 ⊢ (𝜑 → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (0_g‘𝐻))
6	5	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (0_g‘𝐻))
7		gsumzmhm.k	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ (𝐺 MndHom 𝐻))
8		gsumzmhm.0	. . . . . . . 8 ⊢ 0 = (0_g‘𝐺)
9	8, 3	mhm0 18777	. . . . . . 7 ⊢ (𝐾 ∈ (𝐺 MndHom 𝐻) → (𝐾‘ 0 ) = (0_g‘𝐻))
10	7, 9	syl 17	. . . . . 6 ⊢ (𝜑 → (𝐾‘ 0 ) = (0_g‘𝐻))
11	10	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾‘ 0 ) = (0_g‘𝐻))
12	6, 11	eqtr4d 2774	. . . 4 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (𝐾‘ 0 ))
13		gsumzmhm.g	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 ∈ Mnd)
14		gsumzmhm.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝐺)
15	14, 8	mndidcl 18732	. . . . . . . . 9 ⊢ (𝐺 ∈ Mnd → 0 ∈ 𝐵)
16	13, 15	syl 17	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ 𝐵)
17	16	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) ∧ 𝑘 ∈ 𝐴) → 0 ∈ 𝐵)
18		gsumzmhm.f	. . . . . . . 8 ⊢ (𝜑 → 𝐹:𝐴⟶𝐵)
19	8	fvexi 6895	. . . . . . . . 9 ⊢ 0 ∈ V
20	19	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ V)
21	18, 2	fexd 7224	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ V)
22		suppimacnv 8178	. . . . . . . . . 10 ⊢ ((𝐹 ∈ V ∧ 0 ∈ V) → (𝐹 supp 0 ) = (^◡𝐹 “ (V ∖ { 0 })))
23	21, 20, 22	syl2anc 584	. . . . . . . . 9 ⊢ (𝜑 → (𝐹 supp 0 ) = (^◡𝐹 “ (V ∖ { 0 })))
24		ssid 3986	. . . . . . . . 9 ⊢ (^◡𝐹 “ (V ∖ { 0 })) ⊆ (^◡𝐹 “ (V ∖ { 0 }))
25	23, 24	eqsstrdi 4008	. . . . . . . 8 ⊢ (𝜑 → (𝐹 supp 0 ) ⊆ (^◡𝐹 “ (V ∖ { 0 })))
26	18, 2, 20, 25	gsumcllem 19894	. . . . . . 7 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → 𝐹 = (𝑘 ∈ 𝐴 ↦ 0 ))
27		eqid 2736	. . . . . . . . . . 11 ⊢ (Base‘𝐻) = (Base‘𝐻)
28	14, 27	mhmf 18772	. . . . . . . . . 10 ⊢ (𝐾 ∈ (𝐺 MndHom 𝐻) → 𝐾:𝐵⟶(Base‘𝐻))
29	7, 28	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐾:𝐵⟶(Base‘𝐻))
30	29	feqmptd 6952	. . . . . . . 8 ⊢ (𝜑 → 𝐾 = (𝑥 ∈ 𝐵 ↦ (𝐾‘𝑥)))
31	30	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → 𝐾 = (𝑥 ∈ 𝐵 ↦ (𝐾‘𝑥)))
32		fveq2 6881	. . . . . . 7 ⊢ (𝑥 = 0 → (𝐾‘𝑥) = (𝐾‘ 0 ))
33	17, 26, 31, 32	fmptco 7124	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾 ∘ 𝐹) = (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )))
34	10	mpteq2dv 5220	. . . . . . 7 ⊢ (𝜑 → (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )) = (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻)))
35	34	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )) = (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻)))
36	33, 35	eqtrd 2771	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾 ∘ 𝐹) = (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻)))
37	36	oveq2d 7426	. . . 4 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))))
38	26	oveq2d 7426	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σ_g 𝐹) = (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )))
39	8	gsumz 18819	. . . . . . . 8 ⊢ ((𝐺 ∈ Mnd ∧ 𝐴 ∈ 𝑉) → (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
40	13, 2, 39	syl2anc 584	. . . . . . 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 6885	. . . 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 18725	. . . . . . . . 9 ⊢ ((𝐺 ∈ Mnd ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑥(+_g‘𝐺)𝑦) ∈ 𝐵)
49	48	3expb 1120	. . . . . . . 8 ⊢ ((𝐺 ∈ Mnd ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+_g‘𝐺)𝑦) ∈ 𝐵)
50	46, 49	sylan 580	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+_g‘𝐺)𝑦) ∈ 𝐵)
51		f1of1 6822	. . . . . . . . . . . 12 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→(^◡𝐹 “ (V ∖ { 0 })))
52	51	ad2antll 729	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→(^◡𝐹 “ (V ∖ { 0 })))
53		cnvimass 6074	. . . . . . . . . . . 12 ⊢ (^◡𝐹 “ (V ∖ { 0 })) ⊆ dom 𝐹
54	18	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐹:𝐴⟶𝐵)
55	53, 54	fssdm 6730	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (^◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴)
56		f1ss 6784	. . . . . . . . . . 11 ⊢ ((𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→(^◡𝐹 “ (V ∖ { 0 })) ∧ (^◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴)
57	52, 55, 56	syl2anc 584	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴)
58		f1f 6779	. . . . . . . . . 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 6735	. . . . . . . . 9 ⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐴) → (𝐹 ∘ 𝑓):(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐵)
61	18, 59, 60	syl2an2r 685	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐹 ∘ 𝑓):(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐵)
62	61	ffvelcdmda 7079	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → ((𝐹 ∘ 𝑓)‘𝑥) ∈ 𝐵)
63		simprl 770	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ)
64		nnuz 12900	. . . . . . . 8 ⊢ ℕ = (ℤ_≥‘1)
65	63, 64	eleqtrdi 2845	. . . . . . 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 18776	. . . . . . . . 9 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝐾‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+_g‘𝐻)(𝐾‘𝑦)))
69	68	3expb 1120	. . . . . . . 8 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐾‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+_g‘𝐻)(𝐾‘𝑦)))
70	66, 69	sylan 580	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐾‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+_g‘𝐻)(𝐾‘𝑦)))
71		coass 6259	. . . . . . . . 9 ⊢ ((𝐾 ∘ 𝐹) ∘ 𝑓) = (𝐾 ∘ (𝐹 ∘ 𝑓))
72	71	fveq1i 6882	. . . . . . . 8 ⊢ (((𝐾 ∘ 𝐹) ∘ 𝑓)‘𝑥) = ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥)
73		fvco3 6983	. . . . . . . . 9 ⊢ (((𝐹 ∘ 𝑓):(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐵 ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥) = (𝐾‘((𝐹 ∘ 𝑓)‘𝑥)))
74	61, 73	sylan 580	. . . . . . . 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 14072	. . . . . 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 6830	. . . . . . . . . . 11 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–onto→(^◡𝐹 “ (V ∖ { 0 })))
83		forn 6798	. . . . . . . . . . 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 729	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ran 𝑓 = (^◡𝐹 “ (V ∖ { 0 })))
86	81, 85	sseqtrrd 4001	. . . . . . . 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 19893	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐺 Σ_g 𝐹) = (seq1((+_g‘𝐺), (𝐹 ∘ 𝑓))‘(♯‘(^◡𝐹 “ (V ∖ { 0 })))))
89	88	fveq2d 6885	. . . . . 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 6735	. . . . . . . 8 ⊢ ((𝐾:𝐵⟶(Base‘𝐻) ∧ 𝐹:𝐴⟶𝐵) → (𝐾 ∘ 𝐹):𝐴⟶(Base‘𝐻))
93	29, 54, 92	syl2an2r 685	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐾 ∘ 𝐹):𝐴⟶(Base‘𝐻))
94	77, 90	cntzmhm2 19330	. . . . . . . . 9 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ ran 𝐹 ⊆ (𝑍‘ran 𝐹)) → (𝐾 “ ran 𝐹) ⊆ ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹)))
95	7, 80, 94	syl2an2r 685	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐾 “ ran 𝐹) ⊆ ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹)))
96		rnco2 6247	. . . . . . . 8 ⊢ ran (𝐾 ∘ 𝐹) = (𝐾 “ ran 𝐹)
97	96	fveq2i 6884	. . . . . . . 8 ⊢ ((Cntz‘𝐻)‘ran (𝐾 ∘ 𝐹)) = ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹))
98	95, 96, 97	3sstr4g 4017	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ran (𝐾 ∘ 𝐹) ⊆ ((Cntz‘𝐻)‘ran (𝐾 ∘ 𝐹)))
99		eldifi 4111	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 }))) → 𝑥 ∈ 𝐴)
100		fvco3 6983	. . . . . . . . . . 11 ⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝑥 ∈ 𝐴) → ((𝐾 ∘ 𝐹)‘𝑥) = (𝐾‘(𝐹‘𝑥)))
101	54, 99, 100	syl2an 596	. . . . . . . . . 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 8199	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → (𝐹‘𝑥) = 0 )
104	103	fveq2d 6885	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘(𝐹‘𝑥)) = (𝐾‘ 0 ))
105	10	ad2antrr 726	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘ 0 ) = (0_g‘𝐻))
106	101, 104, 105	3eqtrd 2775	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹)‘𝑥) = (0_g‘𝐻))
107	93, 106	suppss 8198	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹) supp (0_g‘𝐻)) ⊆ (^◡𝐹 “ (V ∖ { 0 })))
108	107, 85	sseqtrrd 4001	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹) supp (0_g‘𝐻)) ⊆ ran 𝑓)
109		eqid 2736	. . . . . . 7 ⊢ (((𝐾 ∘ 𝐹) ∘ 𝑓) supp (0_g‘𝐻)) = (((𝐾 ∘ 𝐹) ∘ 𝑓) supp (0_g‘𝐻))
110	27, 3, 67, 90, 91, 78, 93, 98, 63, 57, 108, 109	gsumval3 19893	. . . . . 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 1933	. . 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 9386	. . . 4 ⊢ (𝜑 → (𝐹 supp 0 ) ∈ Fin)
117	23, 116	eqeltrrd 2836	. . 3 ⊢ (𝜑 → (^◡𝐹 “ (V ∖ { 0 })) ∈ Fin)
118		fz1f1o 15731	. . 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 860	1 ⊢ (𝜑 → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 ∨ wo 847 = wceq 1540 ∃wex 1779 ∈ wcel 2109 Vcvv 3464 ∖ cdif 3928 ⊆ wss 3931 ∅c0 4313 {csn 4606 class class class wbr 5124 ↦ cmpt 5206 ^◡ccnv 5658 ran crn 5660 “ cima 5662 ∘ ccom 5663 ⟶wf 6532 –1-1→wf1 6533 –onto→wfo 6534 –1-1-onto→wf1o 6535 ‘cfv 6536 (class class class)co 7410 supp csupp 8164 Fincfn 8964 finSupp cfsupp 9378 1c1 11135 ℕcn 12245 ℤ_≥cuz 12857 ...cfz 13529 seqcseq 14024 ♯chash 14353 Basecbs 17233 +_gcplusg 17276 0_gc0g 17458 Σ_g cgsu 17459 Mndcmnd 18717 MndHom cmhm 18764 Cntzccntz 19303

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2708 ax-rep 5254 ax-sep 5271 ax-nul 5281 ax-pow 5340 ax-pr 5407 ax-un 7734 ax-cnex 11190 ax-resscn 11191 ax-1cn 11192 ax-icn 11193 ax-addcl 11194 ax-addrcl 11195 ax-mulcl 11196 ax-mulrcl 11197 ax-mulcom 11198 ax-addass 11199 ax-mulass 11200 ax-distr 11201 ax-i2m1 11202 ax-1ne0 11203 ax-1rid 11204 ax-rnegex 11205 ax-rrecex 11206 ax-cnre 11207 ax-pre-lttri 11208 ax-pre-lttrn 11209 ax-pre-ltadd 11210 ax-pre-mulgt0 11211

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2540 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2810 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3062 df-rmo 3364 df-reu 3365 df-rab 3421 df-v 3466 df-sbc 3771 df-csb 3880 df-dif 3934 df-un 3936 df-in 3938 df-ss 3948 df-pss 3951 df-nul 4314 df-if 4506 df-pw 4582 df-sn 4607 df-pr 4609 df-op 4613 df-uni 4889 df-int 4928 df-iun 4974 df-br 5125 df-opab 5187 df-mpt 5207 df-tr 5235 df-id 5553 df-eprel 5558 df-po 5566 df-so 5567 df-fr 5611 df-se 5612 df-we 5613 df-xp 5665 df-rel 5666 df-cnv 5667 df-co 5668 df-dm 5669 df-rn 5670 df-res 5671 df-ima 5672 df-pred 6295 df-ord 6360 df-on 6361 df-lim 6362 df-suc 6363 df-iota 6489 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-isom 6545 df-riota 7367 df-ov 7413 df-oprab 7414 df-mpo 7415 df-om 7867 df-1st 7993 df-2nd 7994 df-supp 8165 df-frecs 8285 df-wrecs 8316 df-recs 8390 df-rdg 8429 df-1o 8485 df-er 8724 df-map 8847 df-en 8965 df-dom 8966 df-sdom 8967 df-fin 8968 df-fsupp 9379 df-oi 9529 df-card 9958 df-pnf 11276 df-mnf 11277 df-xr 11278 df-ltxr 11279 df-le 11280 df-sub 11473 df-neg 11474 df-nn 12246 df-n0 12507 df-z 12594 df-uz 12858 df-fz 13530 df-fzo 13677 df-seq 14025 df-hash 14354 df-0g 17460 df-gsum 17461 df-mgm 18623 df-sgrp 18702 df-mnd 18718 df-mhm 18766 df-cntz 19305

This theorem is referenced by: gsummhm 19924 gsumzinv 19931

W3C validator