Theorem dprdval 20047

Description: The value of the internal direct product operation, which is a function mapping the (infinite, but finitely supported) cartesian product of subgroups (which mutually commute and have trivial intersections) to its (group) sum . (Contributed by Mario Carneiro, 25-Apr-2016.) (Revised by AV, 11-Jul-2019.)

Hypotheses

Ref	Expression
dprdval.0	⊢ 0 = (0g‘𝐺)
dprdval.w	⊢ 𝑊 = {ℎ ∈ X𝑖 ∈ 𝐼 (𝑆‘𝑖) ∣ ℎ finSupp 0 }

Assertion

Ref	Expression
dprdval	⊢ ((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) → (𝐺 DProd 𝑆) = ran (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓)))

Distinct variable groups:   𝑓,ℎ,𝑖,𝐼   𝑆,𝑓,ℎ,𝑖   𝑓,𝐺,ℎ,𝑖

Allowed substitution hints:   𝑊(𝑓,ℎ,𝑖)   0 (𝑓,ℎ,𝑖)

Proof of Theorem dprdval

Dummy variables 𝑔 𝑠 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl 482	. 2 ⊢ ((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) → 𝐺dom DProd 𝑆)
2		reldmdprd 20041	. . . . . 6 ⊢ Rel dom DProd
3	2	brrelex2i 5757	. . . . 5 ⊢ (𝐺dom DProd 𝑆 → 𝑆 ∈ V)
4	3	adantr 480	. . . 4 ⊢ ((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) → 𝑆 ∈ V)
5	2	brrelex1i 5756	. . . . . 6 ⊢ (𝐺dom DProd 𝑠 → 𝐺 ∈ V)
6		breq1 5169	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (𝑔dom DProd 𝑠 ↔ 𝐺dom DProd 𝑠))
7		oveq1 7455	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑔 DProd 𝑠) = (𝐺 DProd 𝑠))
8		fveq2 6920	. . . . . . . . . . . . . 14 ⊢ (𝑔 = 𝐺 → (0g‘𝑔) = (0g‘𝐺))
9		dprdval.0	. . . . . . . . . . . . . 14 ⊢ 0 = (0g‘𝐺)
10	8, 9	eqtr4di 2798	. . . . . . . . . . . . 13 ⊢ (𝑔 = 𝐺 → (0g‘𝑔) = 0 )
11	10	breq2d 5178	. . . . . . . . . . . 12 ⊢ (𝑔 = 𝐺 → (ℎ finSupp (0g‘𝑔) ↔ ℎ finSupp 0 ))
12	11	rabbidv 3451	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} = {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 })
13		oveq1 7455	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (𝑔 Σg 𝑓) = (𝐺 Σg 𝑓))
14	12, 13	mpteq12dv 5257	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) = (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)))
15	14	rneqd 5963	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)))
16	7, 15	eqeq12d 2756	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → ((𝑔 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) ↔ (𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓))))
17	6, 16	imbi12d 344	. . . . . . 7 ⊢ (𝑔 = 𝐺 → ((𝑔dom DProd 𝑠 → (𝑔 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓))) ↔ (𝐺dom DProd 𝑠 → (𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)))))
18		df-br 5167	. . . . . . . . 9 ⊢ (𝑔dom DProd 𝑠 ↔ ⟨𝑔, 𝑠⟩ ∈ dom DProd )
19		fvex 6933	. . . . . . . . . . . . . . . . 17 ⊢ (𝑠‘𝑖) ∈ V
20	19	rgenw 3071	. . . . . . . . . . . . . . . 16 ⊢ ∀𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∈ V
21		ixpexg 8980	. . . . . . . . . . . . . . . 16 ⊢ (∀𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∈ V → X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∈ V)
22	20, 21	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∈ V
23	22	mptrabex 7262	. . . . . . . . . . . . . 14 ⊢ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) ∈ V
24	23	rnex 7950	. . . . . . . . . . . . 13 ⊢ ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) ∈ V
25	24	rgen2w 3072	. . . . . . . . . . . 12 ⊢ ∀𝑔 ∈ Grp ∀𝑠 ∈ {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))}ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) ∈ V
26		df-dprd 20039	. . . . . . . . . . . . 13 ⊢ DProd = (𝑔 ∈ Grp, 𝑠 ∈ {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))} ↦ ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)))
27	26	fmpox 8108	. . . . . . . . . . . 12 ⊢ (∀𝑔 ∈ Grp ∀𝑠 ∈ {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))}ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) ∈ V ↔ DProd :∪ 𝑔 ∈ Grp ({𝑔} × {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))})⟶V)
28	25, 27	mpbi 230	. . . . . . . . . . 11 ⊢ DProd :∪ 𝑔 ∈ Grp ({𝑔} × {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))})⟶V
29	28	fdmi 6758	. . . . . . . . . 10 ⊢ dom DProd = ∪ 𝑔 ∈ Grp ({𝑔} × {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))})
30	29	eleq2i 2836	. . . . . . . . 9 ⊢ (⟨𝑔, 𝑠⟩ ∈ dom DProd ↔ ⟨𝑔, 𝑠⟩ ∈ ∪ 𝑔 ∈ Grp ({𝑔} × {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))}))
31		opeliunxp 5767	. . . . . . . . 9 ⊢ (⟨𝑔, 𝑠⟩ ∈ ∪ 𝑔 ∈ Grp ({𝑔} × {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))}) ↔ (𝑔 ∈ Grp ∧ 𝑠 ∈ {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))}))
32	18, 30, 31	3bitri 297	. . . . . . . 8 ⊢ (𝑔dom DProd 𝑠 ↔ (𝑔 ∈ Grp ∧ 𝑠 ∈ {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))}))
33	26	ovmpt4g 7597	. . . . . . . . 9 ⊢ ((𝑔 ∈ Grp ∧ 𝑠 ∈ {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))} ∧ ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) ∈ V) → (𝑔 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)))
34	24, 33	mp3an3 1450	. . . . . . . 8 ⊢ ((𝑔 ∈ Grp ∧ 𝑠 ∈ {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))}) → (𝑔 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)))
35	32, 34	sylbi 217	. . . . . . 7 ⊢ (𝑔dom DProd 𝑠 → (𝑔 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)))
36	17, 35	vtoclg 3566	. . . . . 6 ⊢ (𝐺 ∈ V → (𝐺dom DProd 𝑠 → (𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓))))
37	5, 36	mpcom 38	. . . . 5 ⊢ (𝐺dom DProd 𝑠 → (𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)))
38	37	sbcth 3819	. . . 4 ⊢ (𝑆 ∈ V → [𝑆 / 𝑠](𝐺dom DProd 𝑠 → (𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓))))
39	4, 38	syl 17	. . 3 ⊢ ((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) → [𝑆 / 𝑠](𝐺dom DProd 𝑠 → (𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓))))
40		simpr 484	. . . . . 6 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → 𝑠 = 𝑆)
41	40	breq2d 5178	. . . . 5 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝐺dom DProd 𝑠 ↔ 𝐺dom DProd 𝑆))
42	40	oveq2d 7464	. . . . . 6 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝐺 DProd 𝑠) = (𝐺 DProd 𝑆))
43	40	dmeqd 5930	. . . . . . . . . . . . 13 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → dom 𝑠 = dom 𝑆)
44		simplr 768	. . . . . . . . . . . . 13 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → dom 𝑆 = 𝐼)
45	43, 44	eqtrd 2780	. . . . . . . . . . . 12 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → dom 𝑠 = 𝐼)
46	45	ixpeq1d 8967	. . . . . . . . . . 11 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → X𝑖 ∈ dom 𝑠(𝑠‘𝑖) = X𝑖 ∈ 𝐼 (𝑠‘𝑖))
47	40	fveq1d 6922	. . . . . . . . . . . 12 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝑠‘𝑖) = (𝑆‘𝑖))
48	47	ixpeq2dv 8971	. . . . . . . . . . 11 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → X𝑖 ∈ 𝐼 (𝑠‘𝑖) = X𝑖 ∈ 𝐼 (𝑆‘𝑖))
49	46, 48	eqtrd 2780	. . . . . . . . . 10 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → X𝑖 ∈ dom 𝑠(𝑠‘𝑖) = X𝑖 ∈ 𝐼 (𝑆‘𝑖))
50	49	rabeqdv 3459	. . . . . . . . 9 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } = {ℎ ∈ X𝑖 ∈ 𝐼 (𝑆‘𝑖) ∣ ℎ finSupp 0 })
51		dprdval.w	. . . . . . . . 9 ⊢ 𝑊 = {ℎ ∈ X𝑖 ∈ 𝐼 (𝑆‘𝑖) ∣ ℎ finSupp 0 }
52	50, 51	eqtr4di 2798	. . . . . . . 8 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } = 𝑊)
53		eqidd 2741	. . . . . . . 8 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝐺 Σg 𝑓) = (𝐺 Σg 𝑓))
54	52, 53	mpteq12dv 5257	. . . . . . 7 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)) = (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓)))
55	54	rneqd 5963	. . . . . 6 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)) = ran (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓)))
56	42, 55	eqeq12d 2756	. . . . 5 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → ((𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)) ↔ (𝐺 DProd 𝑆) = ran (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓))))
57	41, 56	imbi12d 344	. . . 4 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → ((𝐺dom DProd 𝑠 → (𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓))) ↔ (𝐺dom DProd 𝑆 → (𝐺 DProd 𝑆) = ran (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓)))))
58	4, 57	sbcied 3850	. . 3 ⊢ ((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) → ([𝑆 / 𝑠](𝐺dom DProd 𝑠 → (𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓))) ↔ (𝐺dom DProd 𝑆 → (𝐺 DProd 𝑆) = ran (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓)))))
59	39, 58	mpbid 232	. 2 ⊢ ((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) → (𝐺dom DProd 𝑆 → (𝐺 DProd 𝑆) = ran (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓))))
60	1, 59	mpd 15	1 ⊢ ((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) → (𝐺 DProd 𝑆) = ran (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓)))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1537   ∈ wcel 2108  {cab 2717  ∀wral 3067  {crab 3443  Vcvv 3488  [wsbc 3804   ∖ cdif 3973   ∩ cin 3975   ⊆ wss 3976  {csn 4648  ⟨cop 4654  ∪ cuni 4931  ∪ ciun 5015   class class class wbr 5166   ↦ cmpt 5249   × cxp 5698  dom cdm 5700  ran crn 5701   “ cima 5703  ⟶wf 6569  ‘cfv 6573  (class class class)co 7448  Xcixp 8955   finSupp cfsupp 9431  0_gc0g 17499   Σ_g cgsu 17500  mrClscmrc 17641  Grpcgrp 18973  SubGrpcsubg 19160  Cntzccntz 19355   DProd cdprd 20037

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 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-ral 3068  df-rex 3077  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-id 5593  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-ov 7451  df-oprab 7452  df-mpo 7453  df-1st 8030  df-2nd 8031  df-ixp 8956  df-dprd 20039

This theorem is referenced by:  eldprd  20048  dprdlub  20070