Theorem dmdprdsplitlem 18634

Description: Lemma for dmdprdsplit 18644. (Contributed by Mario Carneiro, 25-Apr-2016.) (Revised by AV, 14-Jul-2019.)

Hypotheses

Ref	Expression
dmdprdsplitlem.0	⊢ 0 = (0g‘𝐺)
dmdprdsplitlem.w	⊢ 𝑊 = {ℎ ∈ X𝑖 ∈ 𝐼 (𝑆‘𝑖) ∣ ℎ finSupp 0 }
dmdprdsplitlem.1	⊢ (𝜑 → 𝐺dom DProd 𝑆)
dmdprdsplitlem.2	⊢ (𝜑 → dom 𝑆 = 𝐼)
dmdprdsplitlem.3	⊢ (𝜑 → 𝐴 ⊆ 𝐼)
dmdprdsplitlem.4	⊢ (𝜑 → 𝐹 ∈ 𝑊)
dmdprdsplitlem.5	⊢ (𝜑 → (𝐺 Σg 𝐹) ∈ (𝐺 DProd (𝑆 ↾ 𝐴)))

Assertion

Ref	Expression
dmdprdsplitlem	⊢ ((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) → (𝐹‘𝑋) = 0 )

Distinct variable groups:   0 ,ℎ   ℎ,𝑖,𝐴   ℎ,𝐺,𝑖   ℎ,𝐼,𝑖   ℎ,𝐹   𝑆,ℎ,𝑖

Allowed substitution hints:   𝜑(ℎ,𝑖)   𝐹(𝑖)   𝑊(ℎ,𝑖)   𝑋(ℎ,𝑖)   0 (𝑖)

Proof of Theorem dmdprdsplitlem

Dummy variables 𝑓 𝑛 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dmdprdsplitlem.5	. . . . 5 ⊢ (𝜑 → (𝐺 Σg 𝐹) ∈ (𝐺 DProd (𝑆 ↾ 𝐴)))
2		dmdprdsplitlem.1	. . . . . . . 8 ⊢ (𝜑 → 𝐺dom DProd 𝑆)
3		dmdprdsplitlem.2	. . . . . . . 8 ⊢ (𝜑 → dom 𝑆 = 𝐼)
4	2, 3	dprdf2 18604	. . . . . . 7 ⊢ (𝜑 → 𝑆:𝐼⟶(SubGrp‘𝐺))
5		dmdprdsplitlem.3	. . . . . . 7 ⊢ (𝜑 → 𝐴 ⊆ 𝐼)
6	4, 5	fssresd 6282	. . . . . 6 ⊢ (𝜑 → (𝑆 ↾ 𝐴):𝐴⟶(SubGrp‘𝐺))
7		fdm 6260	. . . . . 6 ⊢ ((𝑆 ↾ 𝐴):𝐴⟶(SubGrp‘𝐺) → dom (𝑆 ↾ 𝐴) = 𝐴)
8		dmdprdsplitlem.0	. . . . . . 7 ⊢ 0 = (0g‘𝐺)
9		eqid 2806	. . . . . . 7 ⊢ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } = {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 }
10	8, 9	eldprd 18601	. . . . . 6 ⊢ (dom (𝑆 ↾ 𝐴) = 𝐴 → ((𝐺 Σg 𝐹) ∈ (𝐺 DProd (𝑆 ↾ 𝐴)) ↔ (𝐺dom DProd (𝑆 ↾ 𝐴) ∧ ∃𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))))
11	6, 7, 10	3syl 18	. . . . 5 ⊢ (𝜑 → ((𝐺 Σg 𝐹) ∈ (𝐺 DProd (𝑆 ↾ 𝐴)) ↔ (𝐺dom DProd (𝑆 ↾ 𝐴) ∧ ∃𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))))
12	1, 11	mpbid 223	. . . 4 ⊢ (𝜑 → (𝐺dom DProd (𝑆 ↾ 𝐴) ∧ ∃𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓)))
13	12	simprd 485	. . 3 ⊢ (𝜑 → ∃𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))
14	13	adantr 468	. 2 ⊢ ((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) → ∃𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))
15		simprr 780	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))
16	12	simpld 484	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺dom DProd (𝑆 ↾ 𝐴))
17	16	ad2antrr 708	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝐺dom DProd (𝑆 ↾ 𝐴))
18	6, 7	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → dom (𝑆 ↾ 𝐴) = 𝐴)
19	18	ad2antrr 708	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → dom (𝑆 ↾ 𝐴) = 𝐴)
20		simprl 778	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 })
21		eqid 2806	. . . . . . . . . 10 ⊢ (Base‘𝐺) = (Base‘𝐺)
22	9, 17, 19, 20, 21	dprdff 18609	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝑓:𝐴⟶(Base‘𝐺))
23	22	feqmptd 6466	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝑓 = (𝑛 ∈ 𝐴 ↦ (𝑓‘𝑛)))
24	5	ad2antrr 708	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝐴 ⊆ 𝐼)
25	24	resmptd 5657	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → ((𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) ↾ 𝐴) = (𝑛 ∈ 𝐴 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )))
26		iftrue 4285	. . . . . . . . . 10 ⊢ (𝑛 ∈ 𝐴 → if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ) = (𝑓‘𝑛))
27	26	mpteq2ia 4934	. . . . . . . . 9 ⊢ (𝑛 ∈ 𝐴 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) = (𝑛 ∈ 𝐴 ↦ (𝑓‘𝑛))
28	25, 27	syl6eq 2856	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → ((𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) ↾ 𝐴) = (𝑛 ∈ 𝐴 ↦ (𝑓‘𝑛)))
29	23, 28	eqtr4d 2843	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝑓 = ((𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) ↾ 𝐴))
30	29	oveq2d 6886	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → (𝐺 Σg 𝑓) = (𝐺 Σg ((𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) ↾ 𝐴)))
31		eqid 2806	. . . . . . 7 ⊢ (Cntz‘𝐺) = (Cntz‘𝐺)
32	2	ad2antrr 708	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝐺dom DProd 𝑆)
33		dprdgrp 18602	. . . . . . . 8 ⊢ (𝐺dom DProd 𝑆 → 𝐺 ∈ Grp)
34		grpmnd 17630	. . . . . . . 8 ⊢ (𝐺 ∈ Grp → 𝐺 ∈ Mnd)
35	32, 33, 34	3syl 18	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝐺 ∈ Mnd)
36	2, 3	dprddomcld 18598	. . . . . . . 8 ⊢ (𝜑 → 𝐼 ∈ V)
37	36	ad2antrr 708	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝐼 ∈ V)
38		dmdprdsplitlem.w	. . . . . . . 8 ⊢ 𝑊 = {ℎ ∈ X𝑖 ∈ 𝐼 (𝑆‘𝑖) ∣ ℎ finSupp 0 }
39	3	ad2antrr 708	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → dom 𝑆 = 𝐼)
40	17	adantr 468	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ 𝐼) → 𝐺dom DProd (𝑆 ↾ 𝐴))
41	19	adantr 468	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ 𝐼) → dom (𝑆 ↾ 𝐴) = 𝐴)
42		simplrl 786	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ 𝐼) → 𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 })
43	9, 40, 41, 42	dprdfcl 18610	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ 𝐼) ∧ 𝑛 ∈ 𝐴) → (𝑓‘𝑛) ∈ ((𝑆 ↾ 𝐴)‘𝑛))
44		fvres 6423	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ 𝐴 → ((𝑆 ↾ 𝐴)‘𝑛) = (𝑆‘𝑛))
45	44	adantl 469	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ 𝐼) ∧ 𝑛 ∈ 𝐴) → ((𝑆 ↾ 𝐴)‘𝑛) = (𝑆‘𝑛))
46	43, 45	eleqtrd 2887	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ 𝐼) ∧ 𝑛 ∈ 𝐴) → (𝑓‘𝑛) ∈ (𝑆‘𝑛))
47	4	ad2antrr 708	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝑆:𝐼⟶(SubGrp‘𝐺))
48	47	ffvelrnda 6577	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ 𝐼) → (𝑆‘𝑛) ∈ (SubGrp‘𝐺))
49	8	subg0cl 17800	. . . . . . . . . . . 12 ⊢ ((𝑆‘𝑛) ∈ (SubGrp‘𝐺) → 0 ∈ (𝑆‘𝑛))
50	48, 49	syl 17	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ 𝐼) → 0 ∈ (𝑆‘𝑛))
51	50	adantr 468	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ 𝐼) ∧ ¬ 𝑛 ∈ 𝐴) → 0 ∈ (𝑆‘𝑛))
52	46, 51	ifclda 4313	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ 𝐼) → if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ) ∈ (𝑆‘𝑛))
53		mptexg 6705	. . . . . . . . . . . 12 ⊢ (𝐼 ∈ V → (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) ∈ V)
54	36, 53	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) ∈ V)
55	54	ad2antrr 708	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) ∈ V)
56		funmpt 6135	. . . . . . . . . . 11 ⊢ Fun (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ))
57	56	a1i 11	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → Fun (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )))
58	9, 17, 19, 20	dprdffsupp 18611	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝑓 finSupp 0 )
59		simpr 473	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ (𝐼 ∖ (𝑓 supp 0 ))) ∧ 𝑛 ∈ 𝐴) → 𝑛 ∈ 𝐴)
60		eldifn 3932	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ (𝐼 ∖ (𝑓 supp 0 )) → ¬ 𝑛 ∈ (𝑓 supp 0 ))
61	60	ad2antlr 709	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ (𝐼 ∖ (𝑓 supp 0 ))) ∧ 𝑛 ∈ 𝐴) → ¬ 𝑛 ∈ (𝑓 supp 0 ))
62	59, 61	eldifd 3780	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ (𝐼 ∖ (𝑓 supp 0 ))) ∧ 𝑛 ∈ 𝐴) → 𝑛 ∈ (𝐴 ∖ (𝑓 supp 0 )))
63		ssidd 3821	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → (𝑓 supp 0 ) ⊆ (𝑓 supp 0 ))
64	36, 5	ssexd 5000	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐴 ∈ V)
65	64	ad2antrr 708	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝐴 ∈ V)
66	8	fvexi 6418	. . . . . . . . . . . . . . . . 17 ⊢ 0 ∈ V
67	66	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 0 ∈ V)
68	22, 63, 65, 67	suppssr 7557	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ (𝐴 ∖ (𝑓 supp 0 ))) → (𝑓‘𝑛) = 0 )
69	68	adantlr 697	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ (𝐼 ∖ (𝑓 supp 0 ))) ∧ 𝑛 ∈ (𝐴 ∖ (𝑓 supp 0 ))) → (𝑓‘𝑛) = 0 )
70	62, 69	syldan 581	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ (𝐼 ∖ (𝑓 supp 0 ))) ∧ 𝑛 ∈ 𝐴) → (𝑓‘𝑛) = 0 )
71	70	ifeq1da 4309	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ) = if(𝑛 ∈ 𝐴, 0 , 0 ))
72		ifid 4318	. . . . . . . . . . . 12 ⊢ if(𝑛 ∈ 𝐴, 0 , 0 ) = 0
73	71, 72	syl6eq 2856	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ) = 0 )
74	73, 37	suppss2 7560	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → ((𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) supp 0 ) ⊆ (𝑓 supp 0 ))
75		fsuppsssupp 8526	. . . . . . . . . 10 ⊢ ((((𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) ∈ V ∧ Fun (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ))) ∧ (𝑓 finSupp 0 ∧ ((𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) supp 0 ) ⊆ (𝑓 supp 0 ))) → (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) finSupp 0 )
76	55, 57, 58, 74, 75	syl22anc 858	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) finSupp 0 )
77	38, 32, 39, 52, 76	dprdwd 18608	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) ∈ 𝑊)
78	38, 32, 39, 77, 21	dprdff 18609	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )):𝐼⟶(Base‘𝐺))
79	38, 32, 39, 77, 31	dprdfcntz 18612	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → ran (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) ⊆ ((Cntz‘𝐺)‘ran (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ))))
80		eldifn 3932	. . . . . . . . . 10 ⊢ (𝑛 ∈ (𝐼 ∖ 𝐴) → ¬ 𝑛 ∈ 𝐴)
81	80	adantl 469	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ (𝐼 ∖ 𝐴)) → ¬ 𝑛 ∈ 𝐴)
82	81	iffalsed 4290	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) ∧ 𝑛 ∈ (𝐼 ∖ 𝐴)) → if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ) = 0 )
83	82, 37	suppss2 7560	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → ((𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) supp 0 ) ⊆ 𝐴)
84	21, 8, 31, 35, 37, 78, 79, 83, 76	gsumzres 18507	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → (𝐺 Σg ((𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) ↾ 𝐴)) = (𝐺 Σg (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ))))
85	15, 30, 84	3eqtrd 2844	. . . . 5 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → (𝐺 Σg 𝐹) = (𝐺 Σg (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ))))
86		dmdprdsplitlem.4	. . . . . . 7 ⊢ (𝜑 → 𝐹 ∈ 𝑊)
87	86	ad2antrr 708	. . . . . 6 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝐹 ∈ 𝑊)
88	8, 38, 32, 39, 87, 77	dprdf11 18620	. . . . 5 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → ((𝐺 Σg 𝐹) = (𝐺 Σg (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ))) ↔ 𝐹 = (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ))))
89	85, 88	mpbid 223	. . . 4 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝐹 = (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )))
90	89	fveq1d 6406	. . 3 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → (𝐹‘𝑋) = ((𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ))‘𝑋))
91		eldifi 3931	. . . . 5 ⊢ (𝑋 ∈ (𝐼 ∖ 𝐴) → 𝑋 ∈ 𝐼)
92	91	ad2antlr 709	. . . 4 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → 𝑋 ∈ 𝐼)
93		eleq1 2873	. . . . . 6 ⊢ (𝑛 = 𝑋 → (𝑛 ∈ 𝐴 ↔ 𝑋 ∈ 𝐴))
94		fveq2 6404	. . . . . 6 ⊢ (𝑛 = 𝑋 → (𝑓‘𝑛) = (𝑓‘𝑋))
95	93, 94	ifbieq1d 4302	. . . . 5 ⊢ (𝑛 = 𝑋 → if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ) = if(𝑋 ∈ 𝐴, (𝑓‘𝑋), 0 ))
96		eqid 2806	. . . . 5 ⊢ (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 )) = (𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ))
97		fvex 6417	. . . . . 6 ⊢ (𝑓‘𝑛) ∈ V
98	97, 66	ifex 4327	. . . . 5 ⊢ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ) ∈ V
99	95, 96, 98	fvmpt3i 6504	. . . 4 ⊢ (𝑋 ∈ 𝐼 → ((𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ))‘𝑋) = if(𝑋 ∈ 𝐴, (𝑓‘𝑋), 0 ))
100	92, 99	syl 17	. . 3 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → ((𝑛 ∈ 𝐼 ↦ if(𝑛 ∈ 𝐴, (𝑓‘𝑛), 0 ))‘𝑋) = if(𝑋 ∈ 𝐴, (𝑓‘𝑋), 0 ))
101		eldifn 3932	. . . . 5 ⊢ (𝑋 ∈ (𝐼 ∖ 𝐴) → ¬ 𝑋 ∈ 𝐴)
102	101	ad2antlr 709	. . . 4 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → ¬ 𝑋 ∈ 𝐴)
103	102	iffalsed 4290	. . 3 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → if(𝑋 ∈ 𝐴, (𝑓‘𝑋), 0 ) = 0 )
104	90, 100, 103	3eqtrd 2844	. 2 ⊢ (((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) ∧ (𝑓 ∈ {ℎ ∈ X𝑖 ∈ 𝐴 ((𝑆 ↾ 𝐴)‘𝑖) ∣ ℎ finSupp 0 } ∧ (𝐺 Σg 𝐹) = (𝐺 Σg 𝑓))) → (𝐹‘𝑋) = 0 )
105	14, 104	rexlimddv 3223	1 ⊢ ((𝜑 ∧ 𝑋 ∈ (𝐼 ∖ 𝐴)) → (𝐹‘𝑋) = 0 )

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 197   ∧ wa 384   = wceq 1637   ∈ wcel 2156  ∃wrex 3097  {crab 3100  Vcvv 3391   ∖ cdif 3766   ⊆ wss 3769  ifcif 4279   class class class wbr 4844   ↦ cmpt 4923  dom cdm 5311   ↾ cres 5313  Fun wfun 6091  ⟶wf 6093  ‘cfv 6097  (class class class)co 6870   supp csupp 7525  Xcixp 8141   finSupp cfsupp 8510  Basecbs 16064  0_gc0g 16301   Σ_g cgsu 16302  Mndcmnd 17495  Grpcgrp 17623  SubGrpcsubg 17786  Cntzccntz 17945   DProd cdprd 18590

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1877  ax-4 1894  ax-5 2001  ax-6 2068  ax-7 2104  ax-8 2158  ax-9 2165  ax-10 2185  ax-11 2201  ax-12 2214  ax-13 2420  ax-ext 2784  ax-rep 4964  ax-sep 4975  ax-nul 4983  ax-pow 5035  ax-pr 5096  ax-un 7175  ax-inf2 8781  ax-cnex 10273  ax-resscn 10274  ax-1cn 10275  ax-icn 10276  ax-addcl 10277  ax-addrcl 10278  ax-mulcl 10279  ax-mulrcl 10280  ax-mulcom 10281  ax-addass 10282  ax-mulass 10283  ax-distr 10284  ax-i2m1 10285  ax-1ne0 10286  ax-1rid 10287  ax-rnegex 10288  ax-rrecex 10289  ax-cnre 10290  ax-pre-lttri 10291  ax-pre-lttrn 10292  ax-pre-ltadd 10293  ax-pre-mulgt0 10294

This theorem depends on definitions:  df-bi 198  df-an 385  df-or 866  df-3or 1101  df-3an 1102  df-tru 1641  df-ex 1860  df-nf 1864  df-sb 2061  df-eu 2634  df-mo 2635  df-clab 2793  df-cleq 2799  df-clel 2802  df-nfc 2937  df-ne 2979  df-nel 3082  df-ral 3101  df-rex 3102  df-reu 3103  df-rmo 3104  df-rab 3105  df-v 3393  df-sbc 3634  df-csb 3729  df-dif 3772  df-un 3774  df-in 3776  df-ss 3783  df-pss 3785  df-nul 4117  df-if 4280  df-pw 4353  df-sn 4371  df-pr 4373  df-tp 4375  df-op 4377  df-uni 4631  df-int 4670  df-iun 4714  df-iin 4715  df-br 4845  df-opab 4907  df-mpt 4924  df-tr 4947  df-id 5219  df-eprel 5224  df-po 5232  df-so 5233  df-fr 5270  df-se 5271  df-we 5272  df-xp 5317  df-rel 5318  df-cnv 5319  df-co 5320  df-dm 5321  df-rn 5322  df-res 5323  df-ima 5324  df-pred 5893  df-ord 5939  df-on 5940  df-lim 5941  df-suc 5942  df-iota 6060  df-fun 6099  df-fn 6100  df-f 6101  df-f1 6102  df-fo 6103  df-f1o 6104  df-fv 6105  df-isom 6106  df-riota 6831  df-ov 6873  df-oprab 6874  df-mpt2 6875  df-of 7123  df-om 7292  df-1st 7394  df-2nd 7395  df-supp 7526  df-tpos 7583  df-wrecs 7638  df-recs 7700  df-rdg 7738  df-1o 7792  df-oadd 7796  df-er 7975  df-map 8090  df-ixp 8142  df-en 8189  df-dom 8190  df-sdom 8191  df-fin 8192  df-fsupp 8511  df-oi 8650  df-card 9044  df-pnf 10357  df-mnf 10358  df-xr 10359  df-ltxr 10360  df-le 10361  df-sub 10549  df-neg 10550  df-nn 11302  df-2 11360  df-n0 11556  df-z 11640  df-uz 11901  df-fz 12546  df-fzo 12686  df-seq 13021  df-hash 13334  df-ndx 16067  df-slot 16068  df-base 16070  df-sets 16071  df-ress 16072  df-plusg 16162  df-0g 16303  df-gsum 16304  df-mre 16447  df-mrc 16448  df-acs 16450  df-mgm 17443  df-sgrp 17485  df-mnd 17496  df-mhm 17536  df-submnd 17537  df-grp 17626  df-minusg 17627  df-sbg 17628  df-mulg 17742  df-subg 17789  df-ghm 17856  df-gim 17899  df-cntz 17947  df-oppg 17973  df-cmn 18392  df-dprd 18592

This theorem is referenced by:  dprddisj2  18636