Theorem dprdval 18756

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 476	. 2 ⊢ ((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) → 𝐺dom DProd 𝑆)
2		reldmdprd 18750	. . . . . 6 ⊢ Rel dom DProd
3	2	brrelex2i 5394	. . . . 5 ⊢ (𝐺dom DProd 𝑆 → 𝑆 ∈ V)
4	3	adantr 474	. . . 4 ⊢ ((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) → 𝑆 ∈ V)
5	2	brrelex1i 5393	. . . . . 6 ⊢ (𝐺dom DProd 𝑠 → 𝐺 ∈ V)
6		breq1 4876	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (𝑔dom DProd 𝑠 ↔ 𝐺dom DProd 𝑠))
7		oveq1 6912	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (𝑔 DProd 𝑠) = (𝐺 DProd 𝑠))
8		fveq2 6433	. . . . . . . . . . . . . 14 ⊢ (𝑔 = 𝐺 → (0g‘𝑔) = (0g‘𝐺))
9		dprdval.0	. . . . . . . . . . . . . 14 ⊢ 0 = (0g‘𝐺)
10	8, 9	syl6eqr 2879	. . . . . . . . . . . . 13 ⊢ (𝑔 = 𝐺 → (0g‘𝑔) = 0 )
11	10	breq2d 4885	. . . . . . . . . . . 12 ⊢ (𝑔 = 𝐺 → (ℎ finSupp (0g‘𝑔) ↔ ℎ finSupp 0 ))
12	11	rabbidv 3402	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} = {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 })
13		oveq1 6912	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (𝑔 Σg 𝑓) = (𝐺 Σg 𝑓))
14	12, 13	mpteq12dv 4956	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) = (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)))
15	14	rneqd 5585	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)))
16	7, 15	eqeq12d 2840	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → ((𝑔 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) ↔ (𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓))))
17	6, 16	imbi12d 336	. . . . . . 7 ⊢ (𝑔 = 𝐺 → ((𝑔dom DProd 𝑠 → (𝑔 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓))) ↔ (𝐺dom DProd 𝑠 → (𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)))))
18		df-br 4874	. . . . . . . . 9 ⊢ (𝑔dom DProd 𝑠 ↔ ⟨𝑔, 𝑠⟩ ∈ dom DProd )
19		fvex 6446	. . . . . . . . . . . . . . . . 17 ⊢ (𝑠‘𝑖) ∈ V
20	19	rgenw 3133	. . . . . . . . . . . . . . . 16 ⊢ ∀𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∈ V
21		ixpexg 8199	. . . . . . . . . . . . . . . 16 ⊢ (∀𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∈ V → X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∈ V)
22	20, 21	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∈ V
23	22	mptrabex 6744	. . . . . . . . . . . . . 14 ⊢ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) ∈ V
24	23	rnex 7362	. . . . . . . . . . . . 13 ⊢ ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) ∈ V
25	24	rgen2w 3134	. . . . . . . . . . . 12 ⊢ ∀𝑔 ∈ Grp ∀𝑠 ∈ {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))}ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)) ∈ V
26		df-dprd 18748	. . . . . . . . . . . . 13 ⊢ DProd = (𝑔 ∈ Grp, 𝑠 ∈ {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))} ↦ ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)))
27	26	fmpt2x 7499	. . . . . . . . . . . 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 222	. . . . . . . . . . 11 ⊢ DProd :∪ 𝑔 ∈ Grp ({𝑔} × {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))})⟶V
29	28	fdmi 6288	. . . . . . . . . 10 ⊢ dom DProd = ∪ 𝑔 ∈ Grp ({𝑔} × {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))})
30	29	eleq2i 2898	. . . . . . . . 9 ⊢ (⟨𝑔, 𝑠⟩ ∈ dom DProd ↔ ⟨𝑔, 𝑠⟩ ∈ ∪ 𝑔 ∈ Grp ({𝑔} × {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))}))
31		opeliunxp 5403	. . . . . . . . 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 289	. . . . . . . 8 ⊢ (𝑔dom DProd 𝑠 ↔ (𝑔 ∈ Grp ∧ 𝑠 ∈ {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))}))
33	26	ovmpt4g 7043	. . . . . . . . 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 1578	. . . . . . . 8 ⊢ ((𝑔 ∈ Grp ∧ 𝑠 ∈ {ℎ ∣ (ℎ:dom ℎ⟶(SubGrp‘𝑔) ∧ ∀𝑖 ∈ dom ℎ(∀𝑦 ∈ (dom ℎ ∖ {𝑖})(ℎ‘𝑖) ⊆ ((Cntz‘𝑔)‘(ℎ‘𝑦)) ∧ ((ℎ‘𝑖) ∩ ((mrCls‘(SubGrp‘𝑔))‘∪ (ℎ “ (dom ℎ ∖ {𝑖})))) = {(0g‘𝑔)}))}) → (𝑔 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)))
35	32, 34	sylbi 209	. . . . . . 7 ⊢ (𝑔dom DProd 𝑠 → (𝑔 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp (0g‘𝑔)} ↦ (𝑔 Σg 𝑓)))
36	17, 35	vtoclg 3482	. . . . . 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 3677	. . . 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 479	. . . . . 6 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → 𝑠 = 𝑆)
41	40	breq2d 4885	. . . . 5 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝐺dom DProd 𝑠 ↔ 𝐺dom DProd 𝑆))
42	40	oveq2d 6921	. . . . . 6 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝐺 DProd 𝑠) = (𝐺 DProd 𝑆))
43	40	dmeqd 5558	. . . . . . . . . . . . 13 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → dom 𝑠 = dom 𝑆)
44		simplr 785	. . . . . . . . . . . . 13 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → dom 𝑆 = 𝐼)
45	43, 44	eqtrd 2861	. . . . . . . . . . . 12 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → dom 𝑠 = 𝐼)
46	45	ixpeq1d 8187	. . . . . . . . . . 11 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → X𝑖 ∈ dom 𝑠(𝑠‘𝑖) = X𝑖 ∈ 𝐼 (𝑠‘𝑖))
47	40	fveq1d 6435	. . . . . . . . . . . 12 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝑠‘𝑖) = (𝑆‘𝑖))
48	47	ixpeq2dv 8191	. . . . . . . . . . 11 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → X𝑖 ∈ 𝐼 (𝑠‘𝑖) = X𝑖 ∈ 𝐼 (𝑆‘𝑖))
49	46, 48	eqtrd 2861	. . . . . . . . . 10 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → X𝑖 ∈ dom 𝑠(𝑠‘𝑖) = X𝑖 ∈ 𝐼 (𝑆‘𝑖))
50	49	rabeqdv 3407	. . . . . . . . 9 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } = {ℎ ∈ X𝑖 ∈ 𝐼 (𝑆‘𝑖) ∣ ℎ finSupp 0 })
51		dprdval.w	. . . . . . . . 9 ⊢ 𝑊 = {ℎ ∈ X𝑖 ∈ 𝐼 (𝑆‘𝑖) ∣ ℎ finSupp 0 }
52	50, 51	syl6eqr 2879	. . . . . . . 8 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } = 𝑊)
53		eqidd 2826	. . . . . . . 8 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝐺 Σg 𝑓) = (𝐺 Σg 𝑓))
54	52, 53	mpteq12dv 4956	. . . . . . 7 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)) = (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓)))
55	54	rneqd 5585	. . . . . 6 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)) = ran (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓)))
56	42, 55	eqeq12d 2840	. . . . 5 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → ((𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓)) ↔ (𝐺 DProd 𝑆) = ran (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓))))
57	41, 56	imbi12d 336	. . . 4 ⊢ (((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) ∧ 𝑠 = 𝑆) → ((𝐺dom DProd 𝑠 → (𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓))) ↔ (𝐺dom DProd 𝑆 → (𝐺 DProd 𝑆) = ran (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓)))))
58	4, 57	sbcied 3699	. . 3 ⊢ ((𝐺dom DProd 𝑆 ∧ dom 𝑆 = 𝐼) → ([𝑆 / 𝑠](𝐺dom DProd 𝑠 → (𝐺 DProd 𝑠) = ran (𝑓 ∈ {ℎ ∈ X𝑖 ∈ dom 𝑠(𝑠‘𝑖) ∣ ℎ finSupp 0 } ↦ (𝐺 Σg 𝑓))) ↔ (𝐺dom DProd 𝑆 → (𝐺 DProd 𝑆) = ran (𝑓 ∈ 𝑊 ↦ (𝐺 Σg 𝑓)))))
59	39, 58	mpbid 224	. 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 386   = wceq 1656   ∈ wcel 2164  {cab 2811  ∀wral 3117  {crab 3121  Vcvv 3414  [wsbc 3662   ∖ cdif 3795   ∩ cin 3797   ⊆ wss 3798  {csn 4397  ⟨cop 4403  ∪ cuni 4658  ∪ ciun 4740   class class class wbr 4873   ↦ cmpt 4952   × cxp 5340  dom cdm 5342  ran crn 5343   “ cima 5345  ⟶wf 6119  ‘cfv 6123  (class class class)co 6905  Xcixp 8175   finSupp cfsupp 8544  0_gc0g 16453   Σ_g cgsu 16454  mrClscmrc 16596  Grpcgrp 17776  SubGrpcsubg 17939  Cntzccntz 18098   DProd cdprd 18746

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1894  ax-4 1908  ax-5 2009  ax-6 2075  ax-7 2112  ax-8 2166  ax-9 2173  ax-10 2192  ax-11 2207  ax-12 2220  ax-13 2389  ax-ext 2803  ax-rep 4994  ax-sep 5005  ax-nul 5013  ax-pow 5065  ax-pr 5127  ax-un 7209

This theorem depends on definitions:  df-bi 199  df-an 387  df-or 879  df-3an 1113  df-tru 1660  df-ex 1879  df-nf 1883  df-sb 2068  df-mo 2605  df-eu 2640  df-clab 2812  df-cleq 2818  df-clel 2821  df-nfc 2958  df-ne 3000  df-ral 3122  df-rex 3123  df-reu 3124  df-rab 3126  df-v 3416  df-sbc 3663  df-csb 3758  df-dif 3801  df-un 3803  df-in 3805  df-ss 3812  df-nul 4145  df-if 4307  df-pw 4380  df-sn 4398  df-pr 4400  df-op 4404  df-uni 4659  df-iun 4742  df-br 4874  df-opab 4936  df-mpt 4953  df-id 5250  df-xp 5348  df-rel 5349  df-cnv 5350  df-co 5351  df-dm 5352  df-rn 5353  df-res 5354  df-ima 5355  df-iota 6086  df-fun 6125  df-fn 6126  df-f 6127  df-f1 6128  df-fo 6129  df-f1o 6130  df-fv 6131  df-ov 6908  df-oprab 6909  df-mpt2 6910  df-1st 7428  df-2nd 7429  df-ixp 8176  df-dprd 18748

This theorem is referenced by:  eldprd  18757  dprdlub  18779