gsumvalx - Metamath Proof Explorer

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

Theorem gsumvalx 18388

Description: Expand out the substitutions in df-gsum 17181. (Contributed by Mario Carneiro, 18-Sep-2015.)

**Hypotheses**
Ref	Expression
gsumval.b	⊢ 𝐵 = (Base‘𝐺)
gsumval.z	⊢ 0 = (0_g‘𝐺)
gsumval.p	⊢ + = (+_g‘𝐺)
gsumval.o	⊢ 𝑂 = {𝑠 ∈ 𝐵 ∣ ∀𝑡 ∈ 𝐵 ((𝑠 + 𝑡) = 𝑡 ∧ (𝑡 + 𝑠) = 𝑡)}
gsumval.w	⊢ (𝜑 → 𝑊 = (^◡𝐹 “ (V ∖ 𝑂)))
gsumval.g	⊢ (𝜑 → 𝐺 ∈ 𝑉)
gsumvalx.f	⊢ (𝜑 → 𝐹 ∈ 𝑋)
gsumvalx.a	⊢ (𝜑 → dom 𝐹 = 𝐴)

**Assertion**
Ref	Expression
gsumvalx	⊢ (𝜑 → (𝐺 Σ_g 𝐹) = if(ran 𝐹 ⊆ 𝑂, 0 , if(𝐴 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))))))

Distinct variable groups: 𝑡,𝑠,𝑥,𝐵 𝑓,𝑚,𝑛,𝑥,𝜑 𝑓,𝐹,𝑚,𝑛,𝑥 𝑓,𝐺,𝑚,𝑛,𝑥 + ,𝑠,𝑡,𝑥 𝑓,𝑂,𝑚,𝑛,𝑥 Allowed substitution hints: 𝜑(𝑡,𝑠) 𝐴(𝑥,𝑡,𝑓,𝑚,𝑛,𝑠) 𝐵(𝑓,𝑚,𝑛) + (𝑓,𝑚,𝑛) 𝐹(𝑡,𝑠) 𝐺(𝑡,𝑠) 𝑂(𝑡,𝑠) 𝑉(𝑥,𝑡,𝑓,𝑚,𝑛,𝑠) 𝑊(𝑥,𝑡,𝑓,𝑚,𝑛,𝑠) 𝑋(𝑥,𝑡,𝑓,𝑚,𝑛,𝑠) 0 (𝑥,𝑡,𝑓,𝑚,𝑛,𝑠)

Proof of Theorem gsumvalx Dummy variables 𝑔 𝑜 𝑤 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-gsum 17181	. . 3 ⊢ Σ_g = (𝑤 ∈ V, 𝑔 ∈ V ↦ ⦋{𝑥 ∈ (Base‘𝑤) ∣ ∀𝑦 ∈ (Base‘𝑤)((𝑥(+_g‘𝑤)𝑦) = 𝑦 ∧ (𝑦(+_g‘𝑤)𝑥) = 𝑦)} / 𝑜⦌if(ran 𝑔 ⊆ 𝑜, (0_g‘𝑤), if(dom 𝑔 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(dom 𝑔 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛))), (℩𝑥∃𝑓[(^◡𝑔 “ (V ∖ 𝑜)) / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦)))))))
2	1	a1i 11	. 2 ⊢ (𝜑 → Σ_g = (𝑤 ∈ V, 𝑔 ∈ V ↦ ⦋{𝑥 ∈ (Base‘𝑤) ∣ ∀𝑦 ∈ (Base‘𝑤)((𝑥(+_g‘𝑤)𝑦) = 𝑦 ∧ (𝑦(+_g‘𝑤)𝑥) = 𝑦)} / 𝑜⦌if(ran 𝑔 ⊆ 𝑜, (0_g‘𝑤), if(dom 𝑔 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(dom 𝑔 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛))), (℩𝑥∃𝑓[(^◡𝑔 “ (V ∖ 𝑜)) / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦))))))))
3		simprl 767	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → 𝑤 = 𝐺)
4	3	fveq2d 6796	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → (Base‘𝑤) = (Base‘𝐺))
5		gsumval.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐺)
6	4, 5	eqtr4di 2791	. . . . . 6 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → (Base‘𝑤) = 𝐵)
7	3	fveq2d 6796	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → (+_g‘𝑤) = (+_g‘𝐺))
8		gsumval.p	. . . . . . . . . . 11 ⊢ + = (+_g‘𝐺)
9	7, 8	eqtr4di 2791	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → (+_g‘𝑤) = + )
10	9	oveqd 7312	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → (𝑥(+_g‘𝑤)𝑦) = (𝑥 + 𝑦))
11	10	eqeq1d 2735	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → ((𝑥(+_g‘𝑤)𝑦) = 𝑦 ↔ (𝑥 + 𝑦) = 𝑦))
12	9	oveqd 7312	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → (𝑦(+_g‘𝑤)𝑥) = (𝑦 + 𝑥))
13	12	eqeq1d 2735	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → ((𝑦(+_g‘𝑤)𝑥) = 𝑦 ↔ (𝑦 + 𝑥) = 𝑦))
14	11, 13	anbi12d 630	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → (((𝑥(+_g‘𝑤)𝑦) = 𝑦 ∧ (𝑦(+_g‘𝑤)𝑥) = 𝑦) ↔ ((𝑥 + 𝑦) = 𝑦 ∧ (𝑦 + 𝑥) = 𝑦)))
15	6, 14	raleqbidv 3338	. . . . . 6 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → (∀𝑦 ∈ (Base‘𝑤)((𝑥(+_g‘𝑤)𝑦) = 𝑦 ∧ (𝑦(+_g‘𝑤)𝑥) = 𝑦) ↔ ∀𝑦 ∈ 𝐵 ((𝑥 + 𝑦) = 𝑦 ∧ (𝑦 + 𝑥) = 𝑦)))
16	6, 15	rabeqbidv 3422	. . . . 5 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → {𝑥 ∈ (Base‘𝑤) ∣ ∀𝑦 ∈ (Base‘𝑤)((𝑥(+_g‘𝑤)𝑦) = 𝑦 ∧ (𝑦(+_g‘𝑤)𝑥) = 𝑦)} = {𝑥 ∈ 𝐵 ∣ ∀𝑦 ∈ 𝐵 ((𝑥 + 𝑦) = 𝑦 ∧ (𝑦 + 𝑥) = 𝑦)})
17		gsumval.o	. . . . . 6 ⊢ 𝑂 = {𝑠 ∈ 𝐵 ∣ ∀𝑡 ∈ 𝐵 ((𝑠 + 𝑡) = 𝑡 ∧ (𝑡 + 𝑠) = 𝑡)}
18		oveq2 7303	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑦 → (𝑠 + 𝑡) = (𝑠 + 𝑦))
19		id 22	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑦 → 𝑡 = 𝑦)
20	18, 19	eqeq12d 2749	. . . . . . . . . 10 ⊢ (𝑡 = 𝑦 → ((𝑠 + 𝑡) = 𝑡 ↔ (𝑠 + 𝑦) = 𝑦))
21		oveq1 7302	. . . . . . . . . . 11 ⊢ (𝑡 = 𝑦 → (𝑡 + 𝑠) = (𝑦 + 𝑠))
22	21, 19	eqeq12d 2749	. . . . . . . . . 10 ⊢ (𝑡 = 𝑦 → ((𝑡 + 𝑠) = 𝑡 ↔ (𝑦 + 𝑠) = 𝑦))
23	20, 22	anbi12d 630	. . . . . . . . 9 ⊢ (𝑡 = 𝑦 → (((𝑠 + 𝑡) = 𝑡 ∧ (𝑡 + 𝑠) = 𝑡) ↔ ((𝑠 + 𝑦) = 𝑦 ∧ (𝑦 + 𝑠) = 𝑦)))
24	23	cbvralvw 3385	. . . . . . . 8 ⊢ (∀𝑡 ∈ 𝐵 ((𝑠 + 𝑡) = 𝑡 ∧ (𝑡 + 𝑠) = 𝑡) ↔ ∀𝑦 ∈ 𝐵 ((𝑠 + 𝑦) = 𝑦 ∧ (𝑦 + 𝑠) = 𝑦))
25		oveq1 7302	. . . . . . . . . 10 ⊢ (𝑠 = 𝑥 → (𝑠 + 𝑦) = (𝑥 + 𝑦))
26	25	eqeq1d 2735	. . . . . . . . 9 ⊢ (𝑠 = 𝑥 → ((𝑠 + 𝑦) = 𝑦 ↔ (𝑥 + 𝑦) = 𝑦))
27	26	ovanraleqv 7319	. . . . . . . 8 ⊢ (𝑠 = 𝑥 → (∀𝑦 ∈ 𝐵 ((𝑠 + 𝑦) = 𝑦 ∧ (𝑦 + 𝑠) = 𝑦) ↔ ∀𝑦 ∈ 𝐵 ((𝑥 + 𝑦) = 𝑦 ∧ (𝑦 + 𝑥) = 𝑦)))
28	24, 27	bitrid 282	. . . . . . 7 ⊢ (𝑠 = 𝑥 → (∀𝑡 ∈ 𝐵 ((𝑠 + 𝑡) = 𝑡 ∧ (𝑡 + 𝑠) = 𝑡) ↔ ∀𝑦 ∈ 𝐵 ((𝑥 + 𝑦) = 𝑦 ∧ (𝑦 + 𝑥) = 𝑦)))
29	28	cbvrabv 3428	. . . . . 6 ⊢ {𝑠 ∈ 𝐵 ∣ ∀𝑡 ∈ 𝐵 ((𝑠 + 𝑡) = 𝑡 ∧ (𝑡 + 𝑠) = 𝑡)} = {𝑥 ∈ 𝐵 ∣ ∀𝑦 ∈ 𝐵 ((𝑥 + 𝑦) = 𝑦 ∧ (𝑦 + 𝑥) = 𝑦)}
30	17, 29	eqtri 2761	. . . . 5 ⊢ 𝑂 = {𝑥 ∈ 𝐵 ∣ ∀𝑦 ∈ 𝐵 ((𝑥 + 𝑦) = 𝑦 ∧ (𝑦 + 𝑥) = 𝑦)}
31	16, 30	eqtr4di 2791	. . . 4 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → {𝑥 ∈ (Base‘𝑤) ∣ ∀𝑦 ∈ (Base‘𝑤)((𝑥(+_g‘𝑤)𝑦) = 𝑦 ∧ (𝑦(+_g‘𝑤)𝑥) = 𝑦)} = 𝑂)
32	31	csbeq1d 3838	. . 3 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → ⦋{𝑥 ∈ (Base‘𝑤) ∣ ∀𝑦 ∈ (Base‘𝑤)((𝑥(+_g‘𝑤)𝑦) = 𝑦 ∧ (𝑦(+_g‘𝑤)𝑥) = 𝑦)} / 𝑜⦌if(ran 𝑔 ⊆ 𝑜, (0_g‘𝑤), if(dom 𝑔 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(dom 𝑔 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛))), (℩𝑥∃𝑓[(^◡𝑔 “ (V ∖ 𝑜)) / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦)))))) = ⦋𝑂 / 𝑜⦌if(ran 𝑔 ⊆ 𝑜, (0_g‘𝑤), if(dom 𝑔 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(dom 𝑔 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛))), (℩𝑥∃𝑓[(^◡𝑔 “ (V ∖ 𝑜)) / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦)))))))
33	5	fvexi 6806	. . . . . 6 ⊢ 𝐵 ∈ V
34	17, 33	rabex2 5261	. . . . 5 ⊢ 𝑂 ∈ V
35	34	a1i 11	. . . 4 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → 𝑂 ∈ V)
36		simplrr 774	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → 𝑔 = 𝐹)
37	36	rneqd 5850	. . . . . 6 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → ran 𝑔 = ran 𝐹)
38		simpr 484	. . . . . 6 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → 𝑜 = 𝑂)
39	37, 38	sseq12d 3956	. . . . 5 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (ran 𝑔 ⊆ 𝑜 ↔ ran 𝐹 ⊆ 𝑂))
40	3	adantr 480	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → 𝑤 = 𝐺)
41	40	fveq2d 6796	. . . . . 6 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (0_g‘𝑤) = (0_g‘𝐺))
42		gsumval.z	. . . . . 6 ⊢ 0 = (0_g‘𝐺)
43	41, 42	eqtr4di 2791	. . . . 5 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (0_g‘𝑤) = 0 )
44	36	dmeqd 5818	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → dom 𝑔 = dom 𝐹)
45		gsumvalx.a	. . . . . . . . 9 ⊢ (𝜑 → dom 𝐹 = 𝐴)
46	45	ad2antrr 722	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → dom 𝐹 = 𝐴)
47	44, 46	eqtrd 2773	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → dom 𝑔 = 𝐴)
48	47	eleq1d 2818	. . . . . 6 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (dom 𝑔 ∈ ran ... ↔ 𝐴 ∈ ran ...))
49	47	eqeq1d 2735	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (dom 𝑔 = (𝑚...𝑛) ↔ 𝐴 = (𝑚...𝑛)))
50	9	adantr 480	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (+_g‘𝑤) = + )
51	50	seqeq2d 13756	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → seq𝑚((+_g‘𝑤), 𝑔) = seq𝑚( + , 𝑔))
52	36	seqeq3d 13757	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → seq𝑚( + , 𝑔) = seq𝑚( + , 𝐹))
53	51, 52	eqtrd 2773	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → seq𝑚((+_g‘𝑤), 𝑔) = seq𝑚( + , 𝐹))
54	53	fveq1d 6794	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛) = (seq𝑚( + , 𝐹)‘𝑛))
55	54	eqeq2d 2744	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (𝑥 = (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛) ↔ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛)))
56	49, 55	anbi12d 630	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → ((dom 𝑔 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛)) ↔ (𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))))
57	56	rexbidv 3169	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (∃𝑛 ∈ (ℤ_≥‘𝑚)(dom 𝑔 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛)) ↔ ∃𝑛 ∈ (ℤ_≥‘𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))))
58	57	exbidv 1920	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(dom 𝑔 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛)) ↔ ∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))))
59	58	iotabidv 6431	. . . . . 6 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(dom 𝑔 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛))) = (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))))
60	38	difeq2d 4060	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (V ∖ 𝑜) = (V ∖ 𝑂))
61	60	imaeq2d 5970	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (^◡𝐹 “ (V ∖ 𝑜)) = (^◡𝐹 “ (V ∖ 𝑂)))
62	36	cnveqd 5788	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → ^◡𝑔 = ^◡𝐹)
63	62	imaeq1d 5969	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (^◡𝑔 “ (V ∖ 𝑜)) = (^◡𝐹 “ (V ∖ 𝑜)))
64		gsumval.w	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑊 = (^◡𝐹 “ (V ∖ 𝑂)))
65	64	ad2antrr 722	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → 𝑊 = (^◡𝐹 “ (V ∖ 𝑂)))
66	61, 63, 65	3eqtr4d 2783	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (^◡𝑔 “ (V ∖ 𝑜)) = 𝑊)
67	66	sbceq1d 3723	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → ([(^◡𝑔 “ (V ∖ 𝑜)) / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦))) ↔ [𝑊 / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦)))))
68		gsumvalx.f	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐹 ∈ 𝑋)
69		cnvexg 7791	. . . . . . . . . . . . 13 ⊢ (𝐹 ∈ 𝑋 → ^◡𝐹 ∈ V)
70		imaexg 7782	. . . . . . . . . . . . 13 ⊢ (^◡𝐹 ∈ V → (^◡𝐹 “ (V ∖ 𝑂)) ∈ V)
71	68, 69, 70	3syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (^◡𝐹 “ (V ∖ 𝑂)) ∈ V)
72	64, 71	eqeltrd 2834	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑊 ∈ V)
73	72	ad2antrr 722	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → 𝑊 ∈ V)
74		fveq2 6792	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑊 → (♯‘𝑦) = (♯‘𝑊))
75	74	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) ∧ 𝑦 = 𝑊) → (♯‘𝑦) = (♯‘𝑊))
76	75	oveq2d 7311	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) ∧ 𝑦 = 𝑊) → (1...(♯‘𝑦)) = (1...(♯‘𝑊)))
77	76	f1oeq2d 6730	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) ∧ 𝑦 = 𝑊) → (𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ↔ 𝑓:(1...(♯‘𝑊))–1-1-onto→𝑦))
78		f1oeq3 6724	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑊 → (𝑓:(1...(♯‘𝑊))–1-1-onto→𝑦 ↔ 𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊))
79	78	adantl 481	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) ∧ 𝑦 = 𝑊) → (𝑓:(1...(♯‘𝑊))–1-1-onto→𝑦 ↔ 𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊))
80	77, 79	bitrd 278	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) ∧ 𝑦 = 𝑊) → (𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ↔ 𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊))
81	50	seqeq2d 13756	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → seq1((+_g‘𝑤), (𝑔 ∘ 𝑓)) = seq1( + , (𝑔 ∘ 𝑓)))
82	36	coeq1d 5774	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (𝑔 ∘ 𝑓) = (𝐹 ∘ 𝑓))
83	82	seqeq3d 13757	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → seq1( + , (𝑔 ∘ 𝑓)) = seq1( + , (𝐹 ∘ 𝑓)))
84	81, 83	eqtrd 2773	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → seq1((+_g‘𝑤), (𝑔 ∘ 𝑓)) = seq1( + , (𝐹 ∘ 𝑓)))
85	84	adantr 480	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) ∧ 𝑦 = 𝑊) → seq1((+_g‘𝑤), (𝑔 ∘ 𝑓)) = seq1( + , (𝐹 ∘ 𝑓)))
86	85, 75	fveq12d 6799	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) ∧ 𝑦 = 𝑊) → (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦)) = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))
87	86	eqeq2d 2744	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) ∧ 𝑦 = 𝑊) → (𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦)) ↔ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊))))
88	80, 87	anbi12d 630	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) ∧ 𝑦 = 𝑊) → ((𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦))) ↔ (𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))))
89	73, 88	sbcied 3763	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → ([𝑊 / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦))) ↔ (𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))))
90	67, 89	bitrd 278	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → ([(^◡𝑔 “ (V ∖ 𝑜)) / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦))) ↔ (𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))))
91	90	exbidv 1920	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (∃𝑓[(^◡𝑔 “ (V ∖ 𝑜)) / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦))) ↔ ∃𝑓(𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))))
92	91	iotabidv 6431	. . . . . 6 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → (℩𝑥∃𝑓[(^◡𝑔 “ (V ∖ 𝑜)) / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦)))) = (℩𝑥∃𝑓(𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))))
93	48, 59, 92	ifbieq12d 4490	. . . . 5 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → if(dom 𝑔 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(dom 𝑔 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛))), (℩𝑥∃𝑓[(^◡𝑔 “ (V ∖ 𝑜)) / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦))))) = if(𝐴 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊))))))
94	39, 43, 93	ifbieq12d 4490	. . . 4 ⊢ (((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) ∧ 𝑜 = 𝑂) → if(ran 𝑔 ⊆ 𝑜, (0_g‘𝑤), if(dom 𝑔 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(dom 𝑔 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛))), (℩𝑥∃𝑓[(^◡𝑔 “ (V ∖ 𝑜)) / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦)))))) = if(ran 𝐹 ⊆ 𝑂, 0 , if(𝐴 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))))))
95	35, 94	csbied 3872	. . 3 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → ⦋𝑂 / 𝑜⦌if(ran 𝑔 ⊆ 𝑜, (0_g‘𝑤), if(dom 𝑔 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(dom 𝑔 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛))), (℩𝑥∃𝑓[(^◡𝑔 “ (V ∖ 𝑜)) / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦)))))) = if(ran 𝐹 ⊆ 𝑂, 0 , if(𝐴 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))))))
96	32, 95	eqtrd 2773	. 2 ⊢ ((𝜑 ∧ (𝑤 = 𝐺 ∧ 𝑔 = 𝐹)) → ⦋{𝑥 ∈ (Base‘𝑤) ∣ ∀𝑦 ∈ (Base‘𝑤)((𝑥(+_g‘𝑤)𝑦) = 𝑦 ∧ (𝑦(+_g‘𝑤)𝑥) = 𝑦)} / 𝑜⦌if(ran 𝑔 ⊆ 𝑜, (0_g‘𝑤), if(dom 𝑔 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(dom 𝑔 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚((+_g‘𝑤), 𝑔)‘𝑛))), (℩𝑥∃𝑓[(^◡𝑔 “ (V ∖ 𝑜)) / 𝑦](𝑓:(1...(♯‘𝑦))–1-1-onto→𝑦 ∧ 𝑥 = (seq1((+_g‘𝑤), (𝑔 ∘ 𝑓))‘(♯‘𝑦)))))) = if(ran 𝐹 ⊆ 𝑂, 0 , if(𝐴 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))))))
97		gsumval.g	. . 3 ⊢ (𝜑 → 𝐺 ∈ 𝑉)
98	97	elexd 3454	. 2 ⊢ (𝜑 → 𝐺 ∈ V)
99	68	elexd 3454	. 2 ⊢ (𝜑 → 𝐹 ∈ V)
100	42	fvexi 6806	. . . 4 ⊢ 0 ∈ V
101		iotaex 6420	. . . . 5 ⊢ (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))) ∈ V
102		iotaex 6420	. . . . 5 ⊢ (℩𝑥∃𝑓(𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))) ∈ V
103	101, 102	ifex 4512	. . . 4 ⊢ if(𝐴 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊))))) ∈ V
104	100, 103	ifex 4512	. . 3 ⊢ if(ran 𝐹 ⊆ 𝑂, 0 , if(𝐴 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))))) ∈ V
105	104	a1i 11	. 2 ⊢ (𝜑 → if(ran 𝐹 ⊆ 𝑂, 0 , if(𝐴 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))))) ∈ V)
106	2, 96, 98, 99, 105	ovmpod 7445	1 ⊢ (𝜑 → (𝐺 Σ_g 𝐹) = if(ran 𝐹 ⊆ 𝑂, 0 , if(𝐴 ∈ ran ..., (℩𝑥∃𝑚∃𝑛 ∈ (ℤ_≥‘𝑚)(𝐴 = (𝑚...𝑛) ∧ 𝑥 = (seq𝑚( + , 𝐹)‘𝑛))), (℩𝑥∃𝑓(𝑓:(1...(♯‘𝑊))–1-1-onto→𝑊 ∧ 𝑥 = (seq1( + , (𝐹 ∘ 𝑓))‘(♯‘𝑊)))))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 395 = wceq 1537 ∃wex 1777 ∈ wcel 2101 ∀wral 3059 ∃wrex 3068 {crab 3221 Vcvv 3434 [wsbc 3718 ⦋csb 3834 ∖ cdif 3886 ⊆ wss 3889 ifcif 4462 ^◡ccnv 5590 dom cdm 5591 ran crn 5592 “ cima 5594 ∘ ccom 5595 ℩cio 6397 –1-1-onto→wf1o 6446 ‘cfv 6447 (class class class)co 7295 ∈ cmpo 7297 1c1 10900 ℤ_≥cuz 12610 ...cfz 13267 seqcseq 13749 ♯chash 14072 Basecbs 16940 +_gcplusg 16990 0_gc0g 17178 Σ_g cgsu 17179

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1793 ax-4 1807 ax-5 1909 ax-6 1967 ax-7 2007 ax-8 2103 ax-9 2111 ax-10 2132 ax-11 2149 ax-12 2166 ax-ext 2704 ax-sep 5226 ax-nul 5233 ax-pow 5291 ax-pr 5355 ax-un 7608

This theorem depends on definitions: df-bi 206 df-an 396 df-or 844 df-3an 1087 df-tru 1540 df-fal 1550 df-ex 1778 df-nf 1782 df-sb 2063 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2884 df-ne 2939 df-ral 3060 df-rex 3069 df-rab 3224 df-v 3436 df-sbc 3719 df-csb 3835 df-dif 3892 df-un 3894 df-in 3896 df-ss 3906 df-nul 4260 df-if 4463 df-pw 4538 df-sn 4565 df-pr 4567 df-op 4571 df-uni 4842 df-br 5078 df-opab 5140 df-mpt 5161 df-id 5491 df-xp 5597 df-rel 5598 df-cnv 5599 df-co 5600 df-dm 5601 df-rn 5602 df-res 5603 df-ima 5604 df-pred 6206 df-iota 6399 df-fun 6449 df-fn 6450 df-f 6451 df-f1 6452 df-fo 6453 df-f1o 6454 df-fv 6455 df-ov 7298 df-oprab 7299 df-mpo 7300 df-frecs 8117 df-wrecs 8148 df-recs 8222 df-rdg 8261 df-seq 13750 df-gsum 17181

This theorem is referenced by: gsumval 18389 gsumpropd 18390 gsumpropd2lem 18391

W3C validator