Theorem gsumzoppg 18817

Description: The opposite of a group sum is the same as the original. (Contributed by Mario Carneiro, 25-Apr-2016.) (Revised by AV, 6-Jun-2019.)

Hypotheses

Ref	Expression
gsumzoppg.b	⊢ 𝐵 = (Base‘𝐺)
gsumzoppg.0	⊢ 0 = (0g‘𝐺)
gsumzoppg.z	⊢ 𝑍 = (Cntz‘𝐺)
gsumzoppg.o	⊢ 𝑂 = (oppg‘𝐺)
gsumzoppg.g	⊢ (𝜑 → 𝐺 ∈ Mnd)
gsumzoppg.a	⊢ (𝜑 → 𝐴 ∈ 𝑉)
gsumzoppg.f	⊢ (𝜑 → 𝐹:𝐴⟶𝐵)
gsumzoppg.c	⊢ (𝜑 → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
gsumzoppg.n	⊢ (𝜑 → 𝐹 finSupp 0 )

Assertion

Ref	Expression
gsumzoppg	⊢ (𝜑 → (𝑂 Σg 𝐹) = (𝐺 Σg 𝐹))

Proof of Theorem gsumzoppg

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

Step	Hyp	Ref	Expression
1		gsumzoppg.g	. . . . . . . 8 ⊢ (𝜑 → 𝐺 ∈ Mnd)
2		gsumzoppg.o	. . . . . . . . 9 ⊢ 𝑂 = (oppg‘𝐺)
3	2	oppgmnd 18253	. . . . . . . 8 ⊢ (𝐺 ∈ Mnd → 𝑂 ∈ Mnd)
4	1, 3	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑂 ∈ Mnd)
5		gsumzoppg.a	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ 𝑉)
6		gsumzoppg.0	. . . . . . . . 9 ⊢ 0 = (0g‘𝐺)
7	2, 6	oppgid 18255	. . . . . . . 8 ⊢ 0 = (0g‘𝑂)
8	7	gsumz 17842	. . . . . . 7 ⊢ ((𝑂 ∈ Mnd ∧ 𝐴 ∈ 𝑉) → (𝑂 Σg (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
9	4, 5, 8	syl2anc 576	. . . . . 6 ⊢ (𝜑 → (𝑂 Σg (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
10	6	gsumz 17842	. . . . . . 7 ⊢ ((𝐺 ∈ Mnd ∧ 𝐴 ∈ 𝑉) → (𝐺 Σg (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
11	1, 5, 10	syl2anc 576	. . . . . 6 ⊢ (𝜑 → (𝐺 Σg (𝑘 ∈ 𝐴 ↦ 0 )) = 0 )
12	9, 11	eqtr4d 2817	. . . . 5 ⊢ (𝜑 → (𝑂 Σg (𝑘 ∈ 𝐴 ↦ 0 )) = (𝐺 Σg (𝑘 ∈ 𝐴 ↦ 0 )))
13	12	adantr 473	. . . 4 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝑂 Σg (𝑘 ∈ 𝐴 ↦ 0 )) = (𝐺 Σg (𝑘 ∈ 𝐴 ↦ 0 )))
14		gsumzoppg.f	. . . . . 6 ⊢ (𝜑 → 𝐹:𝐴⟶𝐵)
15	6	fvexi 6513	. . . . . . 7 ⊢ 0 ∈ V
16	15	a1i 11	. . . . . 6 ⊢ (𝜑 → 0 ∈ V)
17		ssid 3879	. . . . . . 7 ⊢ (◡𝐹 “ (V ∖ { 0 })) ⊆ (◡𝐹 “ (V ∖ { 0 }))
18		fex 6815	. . . . . . . . . 10 ⊢ ((𝐹:𝐴⟶𝐵 ∧ 𝐴 ∈ 𝑉) → 𝐹 ∈ V)
19	14, 5, 18	syl2anc 576	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ V)
20		suppimacnv 7644	. . . . . . . . 9 ⊢ ((𝐹 ∈ V ∧ 0 ∈ V) → (𝐹 supp 0 ) = (◡𝐹 “ (V ∖ { 0 })))
21	19, 15, 20	sylancl 577	. . . . . . . 8 ⊢ (𝜑 → (𝐹 supp 0 ) = (◡𝐹 “ (V ∖ { 0 })))
22	21	sseq1d 3888	. . . . . . 7 ⊢ (𝜑 → ((𝐹 supp 0 ) ⊆ (◡𝐹 “ (V ∖ { 0 })) ↔ (◡𝐹 “ (V ∖ { 0 })) ⊆ (◡𝐹 “ (V ∖ { 0 }))))
23	17, 22	mpbiri 250	. . . . . 6 ⊢ (𝜑 → (𝐹 supp 0 ) ⊆ (◡𝐹 “ (V ∖ { 0 })))
24	14, 5, 16, 23	gsumcllem 18782	. . . . 5 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → 𝐹 = (𝑘 ∈ 𝐴 ↦ 0 ))
25	24	oveq2d 6992	. . . 4 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝑂 Σg 𝐹) = (𝑂 Σg (𝑘 ∈ 𝐴 ↦ 0 )))
26	24	oveq2d 6992	. . . 4 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝐺 Σg 𝐹) = (𝐺 Σg (𝑘 ∈ 𝐴 ↦ 0 )))
27	13, 25, 26	3eqtr4d 2824	. . 3 ⊢ ((𝜑 ∧ (◡𝐹 “ (V ∖ { 0 })) = ∅) → (𝑂 Σg 𝐹) = (𝐺 Σg 𝐹))
28	27	ex 405	. 2 ⊢ (𝜑 → ((◡𝐹 “ (V ∖ { 0 })) = ∅ → (𝑂 Σg 𝐹) = (𝐺 Σg 𝐹)))
29		simprl 758	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ)
30		nnuz 12095	. . . . . . . 8 ⊢ ℕ = (ℤ≥‘1)
31	29, 30	syl6eleq 2876	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ (ℤ≥‘1))
32	14	adantr 473	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝐹:𝐴⟶𝐵)
33		ffn 6344	. . . . . . . . . . . 12 ⊢ (𝐹:𝐴⟶𝐵 → 𝐹 Fn 𝐴)
34		dffn4 6425	. . . . . . . . . . . 12 ⊢ (𝐹 Fn 𝐴 ↔ 𝐹:𝐴–onto→ran 𝐹)
35	33, 34	sylib 210	. . . . . . . . . . 11 ⊢ (𝐹:𝐴⟶𝐵 → 𝐹:𝐴–onto→ran 𝐹)
36		fof 6419	. . . . . . . . . . 11 ⊢ (𝐹:𝐴–onto→ran 𝐹 → 𝐹:𝐴⟶ran 𝐹)
37	32, 35, 36	3syl 18	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝐹:𝐴⟶ran 𝐹)
38	1	adantr 473	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝐺 ∈ Mnd)
39		gsumzoppg.b	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝐺)
40	39	submacs 17833	. . . . . . . . . . . 12 ⊢ (𝐺 ∈ Mnd → (SubMnd‘𝐺) ∈ (ACS‘𝐵))
41		acsmre 16781	. . . . . . . . . . . 12 ⊢ ((SubMnd‘𝐺) ∈ (ACS‘𝐵) → (SubMnd‘𝐺) ∈ (Moore‘𝐵))
42	38, 40, 41	3syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (SubMnd‘𝐺) ∈ (Moore‘𝐵))
43		eqid 2778	. . . . . . . . . . 11 ⊢ (mrCls‘(SubMnd‘𝐺)) = (mrCls‘(SubMnd‘𝐺))
44	32	frnd 6351	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ran 𝐹 ⊆ 𝐵)
45	42, 43, 44	mrcssidd 16754	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ran 𝐹 ⊆ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))
46	37, 45	fssd 6358	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝐹:𝐴⟶((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))
47		f1of1 6443	. . . . . . . . . . . 12 ⊢ (𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })) → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1→(◡𝐹 “ (V ∖ { 0 })))
48	47	ad2antll 716	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1→(◡𝐹 “ (V ∖ { 0 })))
49		cnvimass 5789	. . . . . . . . . . . 12 ⊢ (◡𝐹 “ (V ∖ { 0 })) ⊆ dom 𝐹
50	49, 32	fssdm 6360	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴)
51		f1ss 6409	. . . . . . . . . . 11 ⊢ ((𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1→(◡𝐹 “ (V ∖ { 0 })) ∧ (◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴) → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴)
52	48, 50, 51	syl2anc 576	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴)
53		f1f 6404	. . . . . . . . . 10 ⊢ (𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴 → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))⟶𝐴)
54	52, 53	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))⟶𝐴)
55		fco 6361	. . . . . . . . 9 ⊢ ((𝐹:𝐴⟶((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))⟶𝐴) → (𝐹 ∘ 𝑓):(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))⟶((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))
56	46, 54, 55	syl2anc 576	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐹 ∘ 𝑓):(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))⟶((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))
57	56	ffvelrnda 6676	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ (1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))) → ((𝐹 ∘ 𝑓)‘𝑥) ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))
58	43	mrccl 16740	. . . . . . . . . 10 ⊢ (((SubMnd‘𝐺) ∈ (Moore‘𝐵) ∧ ran 𝐹 ⊆ 𝐵) → ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ∈ (SubMnd‘𝐺))
59	42, 44, 58	syl2anc 576	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ∈ (SubMnd‘𝐺))
60	2	oppgsubm 18261	. . . . . . . . 9 ⊢ (SubMnd‘𝐺) = (SubMnd‘𝑂)
61	59, 60	syl6eleq 2876	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ∈ (SubMnd‘𝑂))
62		eqid 2778	. . . . . . . . . 10 ⊢ (+g‘𝑂) = (+g‘𝑂)
63	62	submcl 17821	. . . . . . . . 9 ⊢ ((((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ∈ (SubMnd‘𝑂) ∧ 𝑥 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ∧ 𝑦 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)) → (𝑥(+g‘𝑂)𝑦) ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))
64	63	3expb 1100	. . . . . . . 8 ⊢ ((((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ∈ (SubMnd‘𝑂) ∧ (𝑥 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ∧ 𝑦 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))) → (𝑥(+g‘𝑂)𝑦) ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))
65	61, 64	sylan 572	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ (𝑥 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ∧ 𝑦 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))) → (𝑥(+g‘𝑂)𝑦) ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))
66		gsumzoppg.c	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
67	66	adantr 473	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ran 𝐹 ⊆ (𝑍‘ran 𝐹))
68		gsumzoppg.z	. . . . . . . . . . . . . 14 ⊢ 𝑍 = (Cntz‘𝐺)
69		eqid 2778	. . . . . . . . . . . . . 14 ⊢ (𝐺 ↾s ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)) = (𝐺 ↾s ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))
70	68, 43, 69	cntzspan 18720	. . . . . . . . . . . . 13 ⊢ ((𝐺 ∈ Mnd ∧ ran 𝐹 ⊆ (𝑍‘ran 𝐹)) → (𝐺 ↾s ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)) ∈ CMnd)
71	38, 67, 70	syl2anc 576	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐺 ↾s ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)) ∈ CMnd)
72	69, 68	submcmn2 18717	. . . . . . . . . . . . 13 ⊢ (((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ∈ (SubMnd‘𝐺) → ((𝐺 ↾s ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)) ∈ CMnd ↔ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ⊆ (𝑍‘((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))))
73	59, 72	syl 17	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ((𝐺 ↾s ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)) ∈ CMnd ↔ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ⊆ (𝑍‘((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))))
74	71, 73	mpbid 224	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ⊆ (𝑍‘((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)))
75	74	sselda 3858	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)) → 𝑥 ∈ (𝑍‘((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)))
76		eqid 2778	. . . . . . . . . . 11 ⊢ (+g‘𝐺) = (+g‘𝐺)
77	76, 68	cntzi 18230	. . . . . . . . . 10 ⊢ ((𝑥 ∈ (𝑍‘((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)) ∧ 𝑦 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)) → (𝑥(+g‘𝐺)𝑦) = (𝑦(+g‘𝐺)𝑥))
78	75, 77	sylan 572	. . . . . . . . 9 ⊢ ((((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)) ∧ 𝑦 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)) → (𝑥(+g‘𝐺)𝑦) = (𝑦(+g‘𝐺)𝑥))
79	76, 2, 62	oppgplus 18248	. . . . . . . . 9 ⊢ (𝑥(+g‘𝑂)𝑦) = (𝑦(+g‘𝐺)𝑥)
80	78, 79	syl6reqr 2833	. . . . . . . 8 ⊢ ((((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ 𝑥 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)) ∧ 𝑦 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹)) → (𝑥(+g‘𝑂)𝑦) = (𝑥(+g‘𝐺)𝑦))
81	80	anasss 459	. . . . . . 7 ⊢ (((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) ∧ (𝑥 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹) ∧ 𝑦 ∈ ((mrCls‘(SubMnd‘𝐺))‘ran 𝐹))) → (𝑥(+g‘𝑂)𝑦) = (𝑥(+g‘𝐺)𝑦))
82	31, 57, 65, 81	seqfeq4 13234	. . . . . 6 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (seq1((+g‘𝑂), (𝐹 ∘ 𝑓))‘(♯‘(◡𝐹 “ (V ∖ { 0 })))) = (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(♯‘(◡𝐹 “ (V ∖ { 0 })))))
83	2, 39	oppgbas 18250	. . . . . . 7 ⊢ 𝐵 = (Base‘𝑂)
84		eqid 2778	. . . . . . 7 ⊢ (Cntz‘𝑂) = (Cntz‘𝑂)
85	38, 3	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝑂 ∈ Mnd)
86	5	adantr 473	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝐴 ∈ 𝑉)
87	2, 68	oppgcntz 18263	. . . . . . . 8 ⊢ (𝑍‘ran 𝐹) = ((Cntz‘𝑂)‘ran 𝐹)
88	67, 87	syl6sseq 3907	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ran 𝐹 ⊆ ((Cntz‘𝑂)‘ran 𝐹))
89		suppssdm 7646	. . . . . . . . . . 11 ⊢ (𝐹 supp 0 ) ⊆ dom 𝐹
90	21, 89	syl6eqssr 3912	. . . . . . . . . 10 ⊢ (𝜑 → (◡𝐹 “ (V ∖ { 0 })) ⊆ dom 𝐹)
91	14, 90	fssdmd 6359	. . . . . . . . 9 ⊢ (𝜑 → (◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴)
92	91	adantr 473	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (◡𝐹 “ (V ∖ { 0 })) ⊆ 𝐴)
93	48, 92, 51	syl2anc 576	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1→𝐴)
94	22	adantr 473	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ((𝐹 supp 0 ) ⊆ (◡𝐹 “ (V ∖ { 0 })) ↔ (◡𝐹 “ (V ∖ { 0 })) ⊆ (◡𝐹 “ (V ∖ { 0 }))))
95	17, 94	mpbiri 250	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐹 supp 0 ) ⊆ (◡𝐹 “ (V ∖ { 0 })))
96		f1ofo 6451	. . . . . . . . . . 11 ⊢ (𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })) → 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–onto→(◡𝐹 “ (V ∖ { 0 })))
97		forn 6422	. . . . . . . . . . 11 ⊢ (𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–onto→(◡𝐹 “ (V ∖ { 0 })) → ran 𝑓 = (◡𝐹 “ (V ∖ { 0 })))
98	96, 97	syl 17	. . . . . . . . . 10 ⊢ (𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })) → ran 𝑓 = (◡𝐹 “ (V ∖ { 0 })))
99	98	sseq2d 3889	. . . . . . . . 9 ⊢ (𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })) → ((𝐹 supp 0 ) ⊆ ran 𝑓 ↔ (𝐹 supp 0 ) ⊆ (◡𝐹 “ (V ∖ { 0 }))))
100	99	ad2antll 716	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → ((𝐹 supp 0 ) ⊆ ran 𝑓 ↔ (𝐹 supp 0 ) ⊆ (◡𝐹 “ (V ∖ { 0 }))))
101	95, 100	mpbird 249	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐹 supp 0 ) ⊆ ran 𝑓)
102		eqid 2778	. . . . . . 7 ⊢ ((𝐹 ∘ 𝑓) supp 0 ) = ((𝐹 ∘ 𝑓) supp 0 )
103	83, 7, 62, 84, 85, 86, 32, 88, 29, 93, 101, 102	gsumval3 18781	. . . . . 6 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝑂 Σg 𝐹) = (seq1((+g‘𝑂), (𝐹 ∘ 𝑓))‘(♯‘(◡𝐹 “ (V ∖ { 0 })))))
104	23	adantr 473	. . . . . . . 8 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐹 supp 0 ) ⊆ (◡𝐹 “ (V ∖ { 0 })))
105	104, 100	mpbird 249	. . . . . . 7 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐹 supp 0 ) ⊆ ran 𝑓)
106	39, 6, 76, 68, 38, 86, 32, 67, 29, 93, 105, 102	gsumval3 18781	. . . . . 6 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝐺 Σg 𝐹) = (seq1((+g‘𝐺), (𝐹 ∘ 𝑓))‘(♯‘(◡𝐹 “ (V ∖ { 0 })))))
107	82, 103, 106	3eqtr4d 2824	. . . . 5 ⊢ ((𝜑 ∧ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))) → (𝑂 Σg 𝐹) = (𝐺 Σg 𝐹))
108	107	expr 449	. . . 4 ⊢ ((𝜑 ∧ (♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ) → (𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })) → (𝑂 Σg 𝐹) = (𝐺 Σg 𝐹)))
109	108	exlimdv 1892	. . 3 ⊢ ((𝜑 ∧ (♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ) → (∃𝑓 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })) → (𝑂 Σg 𝐹) = (𝐺 Σg 𝐹)))
110	109	expimpd 446	. 2 ⊢ (𝜑 → (((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 }))) → (𝑂 Σg 𝐹) = (𝐺 Σg 𝐹)))
111		gsumzoppg.n	. . . . 5 ⊢ (𝜑 → 𝐹 finSupp 0 )
112	111	fsuppimpd 8635	. . . 4 ⊢ (𝜑 → (𝐹 supp 0 ) ∈ Fin)
113	21, 112	eqeltrrd 2867	. . 3 ⊢ (𝜑 → (◡𝐹 “ (V ∖ { 0 })) ∈ Fin)
114		fz1f1o 14927	. . 3 ⊢ ((◡𝐹 “ (V ∖ { 0 })) ∈ Fin → ((◡𝐹 “ (V ∖ { 0 })) = ∅ ∨ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))))
115	113, 114	syl 17	. 2 ⊢ (𝜑 → ((◡𝐹 “ (V ∖ { 0 })) = ∅ ∨ ((♯‘(◡𝐹 “ (V ∖ { 0 }))) ∈ ℕ ∧ ∃𝑓 𝑓:(1...(♯‘(◡𝐹 “ (V ∖ { 0 }))))–1-1-onto→(◡𝐹 “ (V ∖ { 0 })))))
116	28, 110, 115	mpjaod 846	1 ⊢ (𝜑 → (𝑂 Σg 𝐹) = (𝐺 Σg 𝐹))

Syntax hints:   → wi 4   ↔ wb 198   ∧ wa 387   ∨ wo 833   = wceq 1507  ∃wex 1742   ∈ wcel 2050  Vcvv 3415   ∖ cdif 3826   ⊆ wss 3829  ∅c0 4178  {csn 4441   class class class wbr 4929   ↦ cmpt 5008  ^◡ccnv 5406  dom cdm 5407  ran crn 5408   “ cima 5410   ∘ ccom 5411   Fn wfn 6183  ⟶wf 6184  –1-1→wf1 6185  –onto→wfo 6186  –1-1-onto→wf1o 6187  ‘cfv 6188  (class class class)co 6976   supp csupp 7633  Fincfn 8306   finSupp cfsupp 8628  1c1 10336  ℕcn 11439  ℤ_≥cuz 12058  ...cfz 12708  seqcseq 13184  ♯chash 13505  Basecbs 16339   ↾_s cress 16340  +_gcplusg 16421  0_gc0g 16569   Σ_g cgsu 16570  Moorecmre 16711  mrClscmrc 16712  ACScacs 16714  Mndcmnd 17762  SubMndcsubmnd 17802  Cntzccntz 18216  opp_gcoppg 18244  CMndccmn 18666

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 1965  ax-8 2052  ax-9 2059  ax-10 2079  ax-11 2093  ax-12 2106  ax-13 2301  ax-ext 2750  ax-rep 5049  ax-sep 5060  ax-nul 5067  ax-pow 5119  ax-pr 5186  ax-un 7279  ax-cnex 10391  ax-resscn 10392  ax-1cn 10393  ax-icn 10394  ax-addcl 10395  ax-addrcl 10396  ax-mulcl 10397  ax-mulrcl 10398  ax-mulcom 10399  ax-addass 10400  ax-mulass 10401  ax-distr 10402  ax-i2m1 10403  ax-1ne0 10404  ax-1rid 10405  ax-rnegex 10406  ax-rrecex 10407  ax-cnre 10408  ax-pre-lttri 10409  ax-pre-lttrn 10410  ax-pre-ltadd 10411  ax-pre-mulgt0 10412

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 2016  df-mo 2547  df-eu 2584  df-clab 2759  df-cleq 2771  df-clel 2846  df-nfc 2918  df-ne 2968  df-nel 3074  df-ral 3093  df-rex 3094  df-reu 3095  df-rmo 3096  df-rab 3097  df-v 3417  df-sbc 3682  df-csb 3787  df-dif 3832  df-un 3834  df-in 3836  df-ss 3843  df-pss 3845  df-nul 4179  df-if 4351  df-pw 4424  df-sn 4442  df-pr 4444  df-tp 4446  df-op 4448  df-uni 4713  df-int 4750  df-iun 4794  df-iin 4795  df-br 4930  df-opab 4992  df-mpt 5009  df-tr 5031  df-id 5312  df-eprel 5317  df-po 5326  df-so 5327  df-fr 5366  df-se 5367  df-we 5368  df-xp 5413  df-rel 5414  df-cnv 5415  df-co 5416  df-dm 5417  df-rn 5418  df-res 5419  df-ima 5420  df-pred 5986  df-ord 6032  df-on 6033  df-lim 6034  df-suc 6035  df-iota 6152  df-fun 6190  df-fn 6191  df-f 6192  df-f1 6193  df-fo 6194  df-f1o 6195  df-fv 6196  df-isom 6197  df-riota 6937  df-ov 6979  df-oprab 6980  df-mpo 6981  df-om 7397  df-1st 7501  df-2nd 7502  df-supp 7634  df-tpos 7695  df-wrecs 7750  df-recs 7812  df-rdg 7850  df-1o 7905  df-oadd 7909  df-er 8089  df-en 8307  df-dom 8308  df-sdom 8309  df-fin 8310  df-fsupp 8629  df-oi 8769  df-card 9162  df-pnf 10476  df-mnf 10477  df-xr 10478  df-ltxr 10479  df-le 10480  df-sub 10672  df-neg 10673  df-nn 11440  df-2 11503  df-n0 11708  df-z 11794  df-uz 12059  df-fz 12709  df-fzo 12850  df-seq 13185  df-hash 13506  df-ndx 16342  df-slot 16343  df-base 16345  df-sets 16346  df-ress 16347  df-plusg 16434  df-0g 16571  df-gsum 16572  df-mre 16715  df-mrc 16716  df-acs 16718  df-mgm 17710  df-sgrp 17752  df-mnd 17763  df-submnd 17804  df-cntz 18218  df-oppg 18245  df-cmn 18668

This theorem is referenced by:  gsumzinv  18818