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 18804

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 2775	. . . . . . . 8 ⊢ (0_g‘𝐻) = (0_g‘𝐻)
4	3	gsumz 17836	. . . . . . 7 ⊢ ((𝐻 ∈ Mnd ∧ 𝐴 ∈ 𝑉) → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (0_g‘𝐻))
5	1, 2, 4	syl2anc 576	. . . . . 6 ⊢ (𝜑 → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (0_g‘𝐻))
6	5	adantr 473	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (0_g‘𝐻))
7		gsumzmhm.k	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ (𝐺 MndHom 𝐻))
8		gsumzmhm.0	. . . . . . . 8 ⊢ 0 = (0_g‘𝐺)
9	8, 3	mhm0 17805	. . . . . . 7 ⊢ (𝐾 ∈ (𝐺 MndHom 𝐻) → (𝐾‘ 0 ) = (0_g‘𝐻))
10	7, 9	syl 17	. . . . . 6 ⊢ (𝜑 → (𝐾‘ 0 ) = (0_g‘𝐻))
11	10	adantr 473	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾‘ 0 ) = (0_g‘𝐻))
12	6, 11	eqtr4d 2814	. . . 4 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))) = (𝐾‘ 0 ))
13		gsumzmhm.g	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 ∈ Mnd)
14		gsumzmhm.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝐺)
15	14, 8	mndidcl 17770	. . . . . . . . 9 ⊢ (𝐺 ∈ Mnd → 0 ∈ 𝐵)
16	13, 15	syl 17	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ 𝐵)
17	16	ad2antrr 713	. . . . . . 7 ⊢ (((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) ∧ 𝑘 ∈ 𝐴) → 0 ∈ 𝐵)
18		gsumzmhm.f	. . . . . . . 8 ⊢ (𝜑 → 𝐹:𝐴⟶𝐵)
19	8	fvexi 6511	. . . . . . . . 9 ⊢ 0 ∈ V
20	19	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ V)
21		fex 6813	. . . . . . . . . . 11 ⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝐴 ∈ 𝑉) → 𝐹 ∈ V)
22	18, 2, 21	syl2anc 576	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ V)
23		suppimacnv 7641	. . . . . . . . . 10 ⊢ ((𝐹 ∈ V ∧ 0 ∈ V) → (𝐹 supp 0 ) = (^◡𝐹 “ (V ∖ { 0 })))
24	22, 20, 23	syl2anc 576	. . . . . . . . 9 ⊢ (𝜑 → (𝐹 supp 0 ) = (^◡𝐹 “ (V ∖ { 0 })))
25		ssid 3878	. . . . . . . . 9 ⊢ (^◡𝐹 “ (V ∖ { 0 })) ⊆ (^◡𝐹 “ (V ∖ { 0 }))
26	24, 25	syl6eqss 3910	. . . . . . . 8 ⊢ (𝜑 → (𝐹 supp 0 ) ⊆ (^◡𝐹 “ (V ∖ { 0 })))
27	18, 2, 20, 26	gsumcllem 18776	. . . . . . 7 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → 𝐹 = (𝑘 ∈ 𝐴 ↦ 0 ))
28		eqid 2775	. . . . . . . . . . 11 ⊢ (Base‘𝐻) = (Base‘𝐻)
29	14, 28	mhmf 17802	. . . . . . . . . 10 ⊢ (𝐾 ∈ (𝐺 MndHom 𝐻) → 𝐾:𝐵⟶(Base‘𝐻))
30	7, 29	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐾:𝐵⟶(Base‘𝐻))
31	30	feqmptd 6560	. . . . . . . 8 ⊢ (𝜑 → 𝐾 = (𝑥 ∈ 𝐵 ↦ (𝐾‘𝑥)))
32	31	adantr 473	. . . . . . 7 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → 𝐾 = (𝑥 ∈ 𝐵 ↦ (𝐾‘𝑥)))
33		fveq2 6497	. . . . . . 7 ⊢ (𝑥 = 0 → (𝐾‘𝑥) = (𝐾‘ 0 ))
34	17, 27, 32, 33	fmptco 6712	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾 ∘ 𝐹) = (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )))
35	10	mpteq2dv 5021	. . . . . . 7 ⊢ (𝜑 → (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )) = (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻)))
36	35	adantr 473	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝑘 ∈ 𝐴 ↦ (𝐾‘ 0 )) = (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻)))
37	34, 36	eqtrd 2811	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾 ∘ 𝐹) = (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻)))
38	37	oveq2d 6990	. . . 4 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐻 Σ_g (𝑘 ∈ 𝐴 ↦ (0_g‘𝐻))))
39	27	oveq2d 6990	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σ_g 𝐹) = (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )))
40	8	gsumz 17836	. . . . . . . 8 ⊢ ((𝐺 ∈ Mnd ∧ 𝐴 ∈ 𝑉) → (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
41	13, 2, 40	syl2anc 576	. . . . . . 7 ⊢ (𝜑 → (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
42	41	adantr 473	. . . . . 6 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σ_g (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
43	39, 42	eqtrd 2811	. . . . 5 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σ_g 𝐹) = 0 )
44	43	fveq2d 6501	. . . 4 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐾‘(𝐺 Σ_g 𝐹)) = (𝐾‘ 0 ))
45	12, 38, 44	3eqtr4d 2821	. . 3 ⊢ ((𝜑 ∧ (^◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹)))
46	45	ex 405	. 2 ⊢ (𝜑 → ((^◡𝐹 “ (V ∖ { 0 })) = ∅ → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹))))
47	13	adantr 473	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐺 ∈ Mnd)
48		eqid 2775	. . . . . . . . . 10 ⊢ (+_g‘𝐺) = (+_g‘𝐺)
49	14, 48	mndcl 17763	. . . . . . . . 9 ⊢ ((𝐺 ∈ Mnd ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑥(+_g‘𝐺)𝑦) ∈ 𝐵)
50	49	3expb 1100	. . . . . . . 8 ⊢ ((𝐺 ∈ Mnd ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+_g‘𝐺)𝑦) ∈ 𝐵)
51	47, 50	sylan 572	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+_g‘𝐺)𝑦) ∈ 𝐵)
52		f1of1 6441	. . . . . . . . . . . 12 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→(^◡𝐹 “ (V ∖ { 0 })))
53	52	ad2antll 716	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→(^◡𝐹 “ (V ∖ { 0 })))
54		cnvimass 5787	. . . . . . . . . . . 12 ⊢ (^◡𝐹 “ (V ∖ { 0 })) ⊆ dom 𝐹
55	18	adantr 473	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐹:𝐴⟶𝐵)
56	54, 55	fssdm 6358	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (^◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴)
57		f1ss 6407	. . . . . . . . . . 11 ⊢ ((𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→(^◡𝐹 “ (V ∖ { 0 })) ∧ (^◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴)
58	53, 56, 57	syl2anc 576	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴)
59		f1f 6402	. . . . . . . . . 10 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴 → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐴)
60	58, 59	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐴)
61		fco 6359	. . . . . . . . 9 ⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐴) → (𝐹 ∘ 𝑓):(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐵)
62	18, 60, 61	syl2an2r 672	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐹 ∘ 𝑓):(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐵)
63	62	ffvelrnda 6674	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → ((𝐹 ∘ 𝑓)‘𝑥) ∈ 𝐵)
64		simprl 758	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ)
65		nnuz 12092	. . . . . . . 8 ⊢ ℕ = (ℤ_≥‘1)
66	64, 65	syl6eleq 2873	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ (ℤ_≥‘1))
67	7	adantr 473	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐾 ∈ (𝐺 MndHom 𝐻))
68		eqid 2775	. . . . . . . . . 10 ⊢ (+_g‘𝐻) = (+_g‘𝐻)
69	14, 48, 68	mhmlin 17804	. . . . . . . . 9 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝐾‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+_g‘𝐻)(𝐾‘𝑦)))
70	69	3expb 1100	. . . . . . . 8 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐾‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+_g‘𝐻)(𝐾‘𝑦)))
71	67, 70	sylan 572	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝐾‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐾‘𝑥)(+_g‘𝐻)(𝐾‘𝑦)))
72		coass 5955	. . . . . . . . 9 ⊢ ((𝐾 ∘ 𝐹) ∘ 𝑓) = (𝐾 ∘ (𝐹 ∘ 𝑓))
73	72	fveq1i 6498	. . . . . . . 8 ⊢ (((𝐾 ∘ 𝐹) ∘ 𝑓)‘𝑥) = ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥)
74		fvco3 6586	. . . . . . . . 9 ⊢ (((𝐹 ∘ 𝑓):(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))⟶𝐵 ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥) = (𝐾‘((𝐹 ∘ 𝑓)‘𝑥)))
75	62, 74	sylan 572	. . . . . . . 8 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → ((𝐾 ∘ (𝐹 ∘ 𝑓))‘𝑥) = (𝐾‘((𝐹 ∘ 𝑓)‘𝑥)))
76	73, 75	syl5req 2824	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) → (𝐾‘((𝐹 ∘ 𝑓)‘𝑥)) = (((𝐾 ∘ 𝐹) ∘ 𝑓)‘𝑥))
77	51, 63, 66, 71, 76	seqhomo 13229	. . . . . 6 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘(seq1((+_g‘𝐺), (𝐹 ∘ 𝑓))‘(♯‘(^◡𝐹 “ (V ∖ { 0 }))))) = (seq1((+_g‘𝐻), ((𝐾 ∘ 𝐹) ∘ 𝑓))‘(♯‘(^◡𝐹 “ (V ∖ { 0 })))))
78		gsumzmhm.z	. . . . . . . 8 ⊢ 𝑍 = (Cntz‘𝐺)
79	2	adantr 473	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐴 ∈ 𝑉)
80		gsumzmhm.c	. . . . . . . . 9 ⊢ (𝜑 → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
81	80	adantr 473	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
82	26	adantr 473	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐹 supp 0 ) ⊆ (^◡𝐹 “ (V ∖ { 0 })))
83		f1ofo 6449	. . . . . . . . . . 11 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–onto→(^◡𝐹 “ (V ∖ { 0 })))
84		forn 6420	. . . . . . . . . . 11 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–onto→(^◡𝐹 “ (V ∖ { 0 })) → ran 𝑓 = (^◡𝐹 “ (V ∖ { 0 })))
85	83, 84	syl 17	. . . . . . . . . 10 ⊢ (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → ran 𝑓 = (^◡𝐹 “ (V ∖ { 0 })))
86	85	ad2antll 716	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ran 𝑓 = (^◡𝐹 “ (V ∖ { 0 })))
87	82, 86	sseqtr4d 3897	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐹 supp 0 ) ⊆ ran 𝑓)
88		eqid 2775	. . . . . . . 8 ⊢ ((𝐹 ∘ 𝑓) supp 0 ) = ((𝐹 ∘ 𝑓) supp 0 )
89	14, 8, 48, 78, 47, 79, 55, 81, 64, 58, 87, 88	gsumval3 18775	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐺 Σ_g 𝐹) = (seq1((+_g‘𝐺), (𝐹 ∘ 𝑓))‘(♯‘(^◡𝐹 “ (V ∖ { 0 })))))
90	89	fveq2d 6501	. . . . . 6 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘(𝐺 Σ_g 𝐹)) = (𝐾‘(seq1((+_g‘𝐺), (𝐹 ∘ 𝑓))‘(♯‘(^◡𝐹 “ (V ∖ { 0 }))))))
91		eqid 2775	. . . . . . 7 ⊢ (Cntz‘𝐻) = (Cntz‘𝐻)
92	1	adantr 473	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 𝐻 ∈ Mnd)
93		fco 6359	. . . . . . . 8 ⊢ ((𝐾:𝐵⟶(Base‘𝐻) ∧ 𝐹:𝐴⟶𝐵) → (𝐾 ∘ 𝐹):𝐴⟶(Base‘𝐻))
94	30, 55, 93	syl2an2r 672	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐾 ∘ 𝐹):𝐴⟶(Base‘𝐻))
95	78, 91	cntzmhm2 18235	. . . . . . . . 9 ⊢ ((𝐾 ∈ (𝐺 MndHom 𝐻) ∧ ran 𝐹 ⊆ (𝑍‘ran 𝐹)) → (𝐾 “ ran 𝐹) ⊆ ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹)))
96	7, 81, 95	syl2an2r 672	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐾 “ ran 𝐹) ⊆ ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹)))
97		rnco2 5943	. . . . . . . 8 ⊢ ran (𝐾 ∘ 𝐹) = (𝐾 “ ran 𝐹)
98	97	fveq2i 6500	. . . . . . . 8 ⊢ ((Cntz‘𝐻)‘ran (𝐾 ∘ 𝐹)) = ((Cntz‘𝐻)‘(𝐾 “ ran 𝐹))
99	96, 97, 98	3sstr4g 3901	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ran (𝐾 ∘ 𝐹) ⊆ ((Cntz‘𝐻)‘ran (𝐾 ∘ 𝐹)))
100		eldifi 3992	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 }))) → 𝑥 ∈ 𝐴)
101		fvco3 6586	. . . . . . . . . . 11 ⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝑥 ∈ 𝐴) → ((𝐾 ∘ 𝐹)‘𝑥) = (𝐾‘(𝐹‘𝑥)))
102	55, 100, 101	syl2an 586	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹)‘𝑥) = (𝐾‘(𝐹‘𝑥)))
103	19	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → 0 ∈ V)
104	55, 82, 79, 103	suppssr 7661	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → (𝐹‘𝑥) = 0 )
105	104	fveq2d 6501	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘(𝐹‘𝑥)) = (𝐾‘ 0 ))
106	10	ad2antrr 713	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → (𝐾‘ 0 ) = (0_g‘𝐻))
107	102, 105, 106	3eqtrd 2815	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (𝐴 ∖ (^◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹)‘𝑥) = (0_g‘𝐻))
108	94, 107	suppss 7660	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹) supp (0_g‘𝐻)) ⊆ (^◡𝐹 “ (V ∖ { 0 })))
109	108, 86	sseqtr4d 3897	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → ((𝐾 ∘ 𝐹) supp (0_g‘𝐻)) ⊆ ran 𝑓)
110		eqid 2775	. . . . . . 7 ⊢ (((𝐾 ∘ 𝐹) ∘ 𝑓) supp (0_g‘𝐻)) = (((𝐾 ∘ 𝐹) ∘ 𝑓) supp (0_g‘𝐻))
111	28, 3, 68, 91, 92, 79, 94, 99, 64, 58, 109, 110	gsumval3 18775	. . . . . 6 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (seq1((+_g‘𝐻), ((𝐾 ∘ 𝐹) ∘ 𝑓))‘(♯‘(^◡𝐹 “ (V ∖ { 0 })))))
112	77, 90, 111	3eqtr4rd 2822	. . . . 5 ⊢ ((𝜑 ∧ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹)))
113	112	expr 449	. . . 4 ⊢ ((𝜑 ∧ (♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ) → (𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹))))
114	113	exlimdv 1892	. . 3 ⊢ ((𝜑 ∧ (♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ) → (∃𝑓 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹))))
115	114	expimpd 446	. 2 ⊢ (𝜑 → (((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 }))) → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹))))
116		gsumzmhm.w	. . . . 5 ⊢ (𝜑 → 𝐹 finSupp 0 )
117	116	fsuppimpd 8631	. . . 4 ⊢ (𝜑 → (𝐹 supp 0 ) ∈ Fin)
118	24, 117	eqeltrrd 2864	. . 3 ⊢ (𝜑 → (^◡𝐹 “ (V ∖ { 0 })) ∈ Fin)
119		fz1f1o 14921	. . 3 ⊢ ((^◡𝐹 “ (V ∖ { 0 })) ∈ Fin → ((^◡𝐹 “ (V ∖ { 0 })) = ∅ ∨ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))))
120	118, 119	syl 17	. 2 ⊢ (𝜑 → ((^◡𝐹 “ (V ∖ { 0 })) = ∅ ∨ ((♯‘(^◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘(^◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(^◡𝐹 “ (V ∖ { 0 })))))
121	46, 115, 120	mpjaod 846	1 ⊢ (𝜑 → (𝐻 Σ_g (𝐾 ∘ 𝐹)) = (𝐾‘(𝐺 Σ_g 𝐹)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 387 ∨ wo 833 = wceq 1507 ∃wex 1742 ∈ wcel 2048 Vcvv 3412 ∖ cdif 3825 ⊆ wss 3828 ∅c0 4177 {csn 4439 class class class wbr 4927 ↦ cmpt 5006 ^◡ccnv 5403 ran crn 5405 “ cima 5407 ∘ ccom 5408 ⟶wf 6182 –1-1→wf1 6183 –onto→wfo 6184 –1-1-onto→wf1o 6185 ‘cfv 6186 (class class class)co 6974 supp csupp 7630 Fincfn 8302 finSupp cfsupp 8624 1c1 10332 ℕcn 11435 ℤ_≥cuz 12055 ...cfz 12705 seqcseq 13181 ♯chash 13502 Basecbs 16333 +_gcplusg 16415 0_gc0g 16563 Σ_g cgsu 16564 Mndcmnd 17756 MndHom cmhm 17795 Cntzccntz 18210

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1758 ax-4 1772 ax-5 1869 ax-6 1928 ax-7 1964 ax-8 2050 ax-9 2057 ax-10 2077 ax-11 2091 ax-12 2104 ax-13 2299 ax-ext 2747 ax-rep 5047 ax-sep 5058 ax-nul 5065 ax-pow 5117 ax-pr 5184 ax-un 7277 ax-cnex 10387 ax-resscn 10388 ax-1cn 10389 ax-icn 10390 ax-addcl 10391 ax-addrcl 10392 ax-mulcl 10393 ax-mulrcl 10394 ax-mulcom 10395 ax-addass 10396 ax-mulass 10397 ax-distr 10398 ax-i2m1 10399 ax-1ne0 10400 ax-1rid 10401 ax-rnegex 10402 ax-rrecex 10403 ax-cnre 10404 ax-pre-lttri 10405 ax-pre-lttrn 10406 ax-pre-ltadd 10407 ax-pre-mulgt0 10408

This theorem depends on definitions: df-bi 199 df-an 388 df-or 834 df-3or 1069 df-3an 1070 df-tru 1510 df-ex 1743 df-nf 1747 df-sb 2014 df-mo 2544 df-eu 2580 df-clab 2756 df-cleq 2768 df-clel 2843 df-nfc 2915 df-ne 2965 df-nel 3071 df-ral 3090 df-rex 3091 df-reu 3092 df-rmo 3093 df-rab 3094 df-v 3414 df-sbc 3681 df-csb 3786 df-dif 3831 df-un 3833 df-in 3835 df-ss 3842 df-pss 3844 df-nul 4178 df-if 4349 df-pw 4422 df-sn 4440 df-pr 4442 df-tp 4444 df-op 4446 df-uni 4711 df-int 4748 df-iun 4792 df-br 4928 df-opab 4990 df-mpt 5007 df-tr 5029 df-id 5309 df-eprel 5314 df-po 5323 df-so 5324 df-fr 5363 df-se 5364 df-we 5365 df-xp 5410 df-rel 5411 df-cnv 5412 df-co 5413 df-dm 5414 df-rn 5415 df-res 5416 df-ima 5417 df-pred 5984 df-ord 6030 df-on 6031 df-lim 6032 df-suc 6033 df-iota 6150 df-fun 6188 df-fn 6189 df-f 6190 df-f1 6191 df-fo 6192 df-f1o 6193 df-fv 6194 df-isom 6195 df-riota 6935 df-ov 6977 df-oprab 6978 df-mpo 6979 df-om 7395 df-1st 7498 df-2nd 7499 df-supp 7631 df-wrecs 7747 df-recs 7809 df-rdg 7847 df-1o 7901 df-oadd 7905 df-er 8085 df-map 8204 df-en 8303 df-dom 8304 df-sdom 8305 df-fin 8306 df-fsupp 8625 df-oi 8765 df-card 9158 df-pnf 10472 df-mnf 10473 df-xr 10474 df-ltxr 10475 df-le 10476 df-sub 10668 df-neg 10669 df-nn 11436 df-n0 11705 df-z 11791 df-uz 12056 df-fz 12706 df-fzo 12847 df-seq 13182 df-hash 13503 df-0g 16565 df-gsum 16566 df-mgm 17704 df-sgrp 17746 df-mnd 17757 df-mhm 17797 df-cntz 18212

This theorem is referenced by: gsummhm 18805 gsumzinv 18812

W3C validator