Theorem dprdval 19884

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 19878	. . . . . 6 ⊢ Rel dom DProd
3	2	brrelex2i 5676	. . . . 5 ⊢ (𝐺dom DProd 𝑆 → 𝑆 ∈ V)
4	3	adantr 480	. . . 4 ⊢ ((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) → 𝑆 ∈ V)
5	2	brrelex1i 5675	. . . . . 6 ⊢ (𝐺dom DProd 𝑠 → 𝐺 ∈ V)
6		breq1 5095	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (𝑔dom DProd 𝑠 ↔ 𝐺dom DProd 𝑠))
7		oveq1 7356	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑔 DProd 𝑠) = (𝐺 DProd 𝑠))
8		fveq2 6822	. . . . . . . . . . . . . 14 ⊢ (𝑔 = 𝐺 → (0g‘𝑔) = (0g‘𝐺))
9		dprdval.0	. . . . . . . . . . . . . 14 ⊢ 0 = (0g‘𝐺)
10	8, 9	eqtr4di 2782	. . . . . . . . . . . . 13 ⊢ (𝑔 = 𝐺 → (0g‘𝑔) = 0 )
11	10	breq2d 5104	. . . . . . . . . . . 12 ⊢ (𝑔 = 𝐺 → (ℎ finSupp (0g‘𝑔) ↔ ℎ finSupp 0 ))
12	11	rabbidv 3402	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} = {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 })
13		oveq1 7356	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (𝑔 Σg 𝑓) = (𝐺 Σg 𝑓))
14	12, 13	mpteq12dv 5179	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) = (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)))
15	14	rneqd 5880	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)))
16	7, 15	eqeq12d 2745	. . . . . . . 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 5093	. . . . . . . . 9 ⊢ (𝑔dom DProd 𝑠 ↔ ⟨𝑔, 𝑠⟩ ∈ dom DProd )
19		fvex 6835	. . . . . . . . . . . . . . . . 17 ⊢ (𝑠‘𝑖) ∈ V
20	19	rgenw 3048	. . . . . . . . . . . . . . . 16 ⊢ ∀𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∈ V
21		ixpexg 8849	. . . . . . . . . . . . . . . 16 ⊢ (∀𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∈ V → X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∈ V)
22	20, 21	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∈ V
23	22	mptrabex 7161	. . . . . . . . . . . . . 14 ⊢ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) ∈ V
24	23	rnex 7843	. . . . . . . . . . . . 13 ⊢ ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) ∈ V
25	24	rgen2w 3049	. . . . . . . . . . . 12 ⊢ ∀𝑔 ∈ Grp ∀𝑠 ∈ {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))}ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) ∈ V
26		df-dprd 19876	. . . . . . . . . . . . 13 ⊢ DProd = (𝑔 ∈ Grp, 𝑠 ∈ {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))} ↦ ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)))
27	26	fmpox 8002	. . . . . . . . . . . 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 6663	. . . . . . . . . 10 ⊢ dom DProd = ∪ 𝑔 ∈ Grp ({𝑔} × {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))})
30	29	eleq2i 2820	. . . . . . . . 9 ⊢ (⟨𝑔, 𝑠⟩ ∈ dom DProd ↔ ⟨𝑔, 𝑠⟩ ∈ ∪ 𝑔 ∈ Grp ({𝑔} × {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))}))
31		opeliunxp 5686	. . . . . . . . 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 7496	. . . . . . . . 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 1452	. . . . . . . 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 3509	. . . . . 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 3757	. . . 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 5104	. . . . 5 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝐺dom DProd 𝑠 ↔ 𝐺dom DProd 𝑆))
42	40	oveq2d 7365	. . . . . 6 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝐺 DProd 𝑠) = (𝐺 DProd 𝑆))
43	40	dmeqd 5848	. . . . . . . . . . . . 13 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → dom 𝑠 = dom 𝑆)
44		simplr 768	. . . . . . . . . . . . 13 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → dom 𝑆 = 𝐼)
45	43, 44	eqtrd 2764	. . . . . . . . . . . 12 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → dom 𝑠 = 𝐼)
46	45	ixpeq1d 8836	. . . . . . . . . . 11 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → X𝑖 ∈ dom 𝑠(𝑠‘𝑖) = X𝑖 ∈ 𝐼 (𝑠‘𝑖))
47	40	fveq1d 6824	. . . . . . . . . . . 12 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝑠‘𝑖) = (𝑆‘𝑖))
48	47	ixpeq2dv 8840	. . . . . . . . . . 11 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → X𝑖 ∈ 𝐼 (𝑠‘𝑖) = X𝑖 ∈ 𝐼 (𝑆‘𝑖))
49	46, 48	eqtrd 2764	. . . . . . . . . 10 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → X𝑖 ∈ dom 𝑠(𝑠‘𝑖) = X𝑖 ∈ 𝐼 (𝑆‘𝑖))
50	49	rabeqdv 3410	. . . . . . . . 9 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } = {ℎ ∈ X𝑖 ∈ 𝐼 (𝑆‘𝑖) ∣ ℎ finSupp 0 })
51		dprdval.w	. . . . . . . . 9 ⊢ 𝑊 = {ℎ ∈ X𝑖 ∈ 𝐼 (𝑆‘𝑖) ∣ ℎ finSupp 0 }
52	50, 51	eqtr4di 2782	. . . . . . . 8 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } = 𝑊)
53		eqidd 2730	. . . . . . . 8 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝐺 Σg 𝑓) = (𝐺 Σg 𝑓))
54	52, 53	mpteq12dv 5179	. . . . . . 7 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)) = (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓)))
55	54	rneqd 5880	. . . . . 6 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)) = ran (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓)))
56	42, 55	eqeq12d 2745	. . . . 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 3786	. . 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 1540   ∈ wcel 2109  {cab 2707  ∀wral 3044  {crab 3394  Vcvv 3436  [wsbc 3742   ∖ cdif 3900   ∩ cin 3902   ⊆ wss 3903  {csn 4577  ⟨cop 4583  ∪ cuni 4858  ∪ ciun 4941   class class class wbr 5092   ↦ cmpt 5173   × cxp 5617  dom cdm 5619  ran crn 5620   “ cima 5622  ⟶wf 6478  ‘cfv 6482  (class class class)co 7349  Xcixp 8824   finSupp cfsupp 9251  0_gc0g 17343   Σ_g cgsu 17344  mrClscmrc 17485  Grpcgrp 18812  SubGrpcsubg 18999  Cntzccntz 19194   DProd cdprd 19874

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 2701  ax-rep 5218  ax-sep 5235  ax-nul 5245  ax-pow 5304  ax-pr 5371  ax-un 7671

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-reu 3344  df-rab 3395  df-v 3438  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4859  df-iun 4943  df-br 5093  df-opab 5155  df-mpt 5174  df-id 5514  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-iota 6438  df-fun 6484  df-fn 6485  df-f 6486  df-f1 6487  df-fo 6488  df-f1o 6489  df-fv 6490  df-ov 7352  df-oprab 7353  df-mpo 7354  df-1st 7924  df-2nd 7925  df-ixp 8825  df-dprd 19876

This theorem is referenced by:  eldprd  19885  dprdlub  19907