Theorem dpjidcl 20035

Description: The key property of projections: the sum of all the projections of 𝐴 is 𝐴. (Contributed by Mario Carneiro, 26-Apr-2016.) (Revised by AV, 14-Jul-2019.)

Hypotheses

Ref	Expression
dpjfval.1	⊢ (𝜑 → 𝐺dom DProd 𝑆)
dpjfval.2	⊢ (𝜑 → dom 𝑆 = 𝐼)
dpjfval.p	⊢ 𝑃 = (𝐺dProj𝑆)
dpjidcl.3	⊢ (𝜑 → 𝐴 ∈ (𝐺 DProd 𝑆))
dpjidcl.0	⊢ 0 = (0g‘𝐺)
dpjidcl.w	⊢ 𝑊 = {ℎ ∈ X𝑖 ∈ 𝐼 (𝑆‘𝑖) ∣ ℎ finSupp 0 }

Assertion

Ref	Expression
dpjidcl	⊢ (𝜑 → ((𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)))))

Distinct variable groups:   𝑥,ℎ, 0   ℎ,𝑖,𝐺,𝑥   𝑃,ℎ,𝑥   𝜑,𝑖,𝑥   ℎ,𝐼,𝑖,𝑥   𝑥,𝑊   𝐴,ℎ,𝑥   𝑆,ℎ,𝑖,𝑥

Allowed substitution hints:   𝜑(ℎ)   𝐴(𝑖)   𝑃(𝑖)   𝑊(ℎ,𝑖)   0 (𝑖)

Proof of Theorem dpjidcl

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

Step	Hyp	Ref	Expression
1		dpjidcl.3	. . . 4 ⊢ (𝜑 → 𝐴 ∈ (𝐺 DProd 𝑆))
2		dpjfval.2	. . . . 5 ⊢ (𝜑 → dom 𝑆 = 𝐼)
3		dpjidcl.0	. . . . . 6 ⊢ 0 = (0g‘𝐺)
4		dpjidcl.w	. . . . . 6 ⊢ 𝑊 = {ℎ ∈ X𝑖 ∈ 𝐼 (𝑆‘𝑖) ∣ ℎ finSupp 0 }
5	3, 4	eldprd 19981	. . . . 5 ⊢ (dom 𝑆 = 𝐼 → (𝐴 ∈ (𝐺 DProd 𝑆) ↔ (𝐺dom DProd 𝑆 ∧ ∃𝑓 ∈ 𝑊 𝐴 = (𝐺 Σg 𝑓))))
6	2, 5	syl 17	. . . 4 ⊢ (𝜑 → (𝐴 ∈ (𝐺 DProd 𝑆) ↔ (𝐺dom DProd 𝑆 ∧ ∃𝑓 ∈ 𝑊 𝐴 = (𝐺 Σg 𝑓))))
7	1, 6	mpbid 232	. . 3 ⊢ (𝜑 → (𝐺dom DProd 𝑆 ∧ ∃𝑓 ∈ 𝑊 𝐴 = (𝐺 Σg 𝑓)))
8	7	simprd 495	. 2 ⊢ (𝜑 → ∃𝑓 ∈ 𝑊 𝐴 = (𝐺 Σg 𝑓))
9		dpjfval.1	. . . . 5 ⊢ (𝜑 → 𝐺dom DProd 𝑆)
10	9	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝐺dom DProd 𝑆)
11	2	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → dom 𝑆 = 𝐼)
12	9	ad2antrr 727	. . . . . 6 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐺dom DProd 𝑆)
13	2	ad2antrr 727	. . . . . 6 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → dom 𝑆 = 𝐼)
14		dpjfval.p	. . . . . 6 ⊢ 𝑃 = (𝐺dProj𝑆)
15		simpr 484	. . . . . 6 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑥 ∈ 𝐼)
16	12, 13, 14, 15	dpjf 20034	. . . . 5 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑃‘𝑥):(𝐺 DProd 𝑆)⟶(𝑆‘𝑥))
17	1	ad2antrr 727	. . . . 5 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐴 ∈ (𝐺 DProd 𝑆))
18	16, 17	ffvelcdmd 7038	. . . 4 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((𝑃‘𝑥)‘𝐴) ∈ (𝑆‘𝑥))
19	9, 2	dprddomcld 19978	. . . . . . 7 ⊢ (𝜑 → 𝐼 ∈ V)
20	19	mptexd 7179	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) ∈ V)
21	20	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) ∈ V)
22		funmpt 6537	. . . . . 6 ⊢ Fun (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴))
23	22	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → Fun (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)))
24		simprl 771	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝑓 ∈ 𝑊)
25	4, 10, 11, 24	dprdffsupp 19991	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝑓 finSupp 0 )
26		eldifi 4072	. . . . . . . 8 ⊢ (𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 )) → 𝑥 ∈ 𝐼)
27		eqid 2737	. . . . . . . . . 10 ⊢ (proj1‘𝐺) = (proj1‘𝐺)
28	12, 13, 14, 27, 15	dpjval 20033	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑃‘𝑥) = ((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))))
29	28	fveq1d 6843	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((𝑃‘𝑥)‘𝐴) = (((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴))
30	26, 29	sylan2 594	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → ((𝑃‘𝑥)‘𝐴) = (((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴))
31		simplrr 778	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝐴 = (𝐺 Σg 𝑓))
32		eqid 2737	. . . . . . . . . . 11 ⊢ (Base‘𝐺) = (Base‘𝐺)
33		eqid 2737	. . . . . . . . . . 11 ⊢ (Cntz‘𝐺) = (Cntz‘𝐺)
34		dprdgrp 19982	. . . . . . . . . . . . 13 ⊢ (𝐺dom DProd 𝑆 → 𝐺 ∈ Grp)
35		grpmnd 18916	. . . . . . . . . . . . 13 ⊢ (𝐺 ∈ Grp → 𝐺 ∈ Mnd)
36	10, 34, 35	3syl 18	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝐺 ∈ Mnd)
37	36	adantr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝐺 ∈ Mnd)
38	19	ad2antrr 727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝐼 ∈ V)
39	4, 10, 11, 24, 32	dprdff 19989	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝑓:𝐼⟶(Base‘𝐺))
40	39	adantr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝑓:𝐼⟶(Base‘𝐺))
41	24	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑓 ∈ 𝑊)
42	4, 12, 13, 41, 33	dprdfcntz 19992	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ran 𝑓 ⊆ ((Cntz‘𝐺)‘ran 𝑓))
43	26, 42	sylan2 594	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → ran 𝑓 ⊆ ((Cntz‘𝐺)‘ran 𝑓))
44		snssi 4730	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 )) → {𝑥} ⊆ (𝐼 ∖ (𝑓 supp 0 )))
45	44	adantl 481	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → {𝑥} ⊆ (𝐼 ∖ (𝑓 supp 0 )))
46	45	difss2d 4080	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → {𝑥} ⊆ 𝐼)
47		suppssdm 8127	. . . . . . . . . . . . . . 15 ⊢ (𝑓 supp 0 ) ⊆ dom 𝑓
48	47, 39	fssdm 6688	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → (𝑓 supp 0 ) ⊆ 𝐼)
49	48	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → (𝑓 supp 0 ) ⊆ 𝐼)
50		ssconb 4083	. . . . . . . . . . . . 13 ⊢ (({𝑥} ⊆ 𝐼 ∧ (𝑓 supp 0 ) ⊆ 𝐼) → ({𝑥} ⊆ (𝐼 ∖ (𝑓 supp 0 )) ↔ (𝑓 supp 0 ) ⊆ (𝐼 ∖ {𝑥})))
51	46, 49, 50	syl2anc 585	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → ({𝑥} ⊆ (𝐼 ∖ (𝑓 supp 0 )) ↔ (𝑓 supp 0 ) ⊆ (𝐼 ∖ {𝑥})))
52	45, 51	mpbid 232	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → (𝑓 supp 0 ) ⊆ (𝐼 ∖ {𝑥}))
53	25	adantr 480	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝑓 finSupp 0 )
54	32, 3, 33, 37, 38, 40, 43, 52, 53	gsumzres 19884	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → (𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥}))) = (𝐺 Σg 𝑓))
55	31, 54	eqtr4d 2775	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝐴 = (𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥}))))
56		eqid 2737	. . . . . . . . . . 11 ⊢ {ℎ ∈ X𝑖 ∈ (𝐼 ∖ {𝑥})((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑖) ∣ ℎ finSupp 0 } = {ℎ ∈ X𝑖 ∈ (𝐼 ∖ {𝑥})((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑖) ∣ ℎ finSupp 0 }
57		difss 4077	. . . . . . . . . . . . . 14 ⊢ (𝐼 ∖ {𝑥}) ⊆ 𝐼
58	57	a1i 11	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐼 ∖ {𝑥}) ⊆ 𝐼)
59	12, 13, 58	dprdres 20005	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺dom DProd (𝑆 ↾ (𝐼 ∖ {𝑥})) ∧ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))) ⊆ (𝐺 DProd 𝑆)))
60	59	simpld 494	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐺dom DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))
61	12, 13	dprdf2 19984	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑆:𝐼⟶(SubGrp‘𝐺))
62		fssres 6707	. . . . . . . . . . . . 13 ⊢ ((𝑆:𝐼⟶(SubGrp‘𝐺) ∧ (𝐼 ∖ {𝑥}) ⊆ 𝐼) → (𝑆 ↾ (𝐼 ∖ {𝑥})):(𝐼 ∖ {𝑥})⟶(SubGrp‘𝐺))
63	61, 57, 62	sylancl 587	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑆 ↾ (𝐼 ∖ {𝑥})):(𝐼 ∖ {𝑥})⟶(SubGrp‘𝐺))
64	63	fdmd 6679	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → dom (𝑆 ↾ (𝐼 ∖ {𝑥})) = (𝐼 ∖ {𝑥}))
65	39	adantr 480	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑓:𝐼⟶(Base‘𝐺))
66	65	feqmptd 6909	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑓 = (𝑘 ∈ 𝐼 ↦ (𝑓‘𝑘)))
67	66	reseq1d 5944	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓 ↾ (𝐼 ∖ {𝑥})) = ((𝑘 ∈ 𝐼 ↦ (𝑓‘𝑘)) ↾ (𝐼 ∖ {𝑥})))
68		resmpt 6003	. . . . . . . . . . . . . 14 ⊢ ((𝐼 ∖ {𝑥}) ⊆ 𝐼 → ((𝑘 ∈ 𝐼 ↦ (𝑓‘𝑘)) ↾ (𝐼 ∖ {𝑥})) = (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)))
69	57, 68	ax-mp 5	. . . . . . . . . . . . 13 ⊢ ((𝑘 ∈ 𝐼 ↦ (𝑓‘𝑘)) ↾ (𝐼 ∖ {𝑥})) = (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘))
70	67, 69	eqtrdi 2788	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓 ↾ (𝐼 ∖ {𝑥})) = (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)))
71		eldifi 4072	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (𝐼 ∖ {𝑥}) → 𝑘 ∈ 𝐼)
72	4, 12, 13, 41	dprdfcl 19990	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 ∈ 𝐼) → (𝑓‘𝑘) ∈ (𝑆‘𝑘))
73	71, 72	sylan2 594	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 ∈ (𝐼 ∖ {𝑥})) → (𝑓‘𝑘) ∈ (𝑆‘𝑘))
74		fvres 6860	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (𝐼 ∖ {𝑥}) → ((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑘) = (𝑆‘𝑘))
75	74	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 ∈ (𝐼 ∖ {𝑥})) → ((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑘) = (𝑆‘𝑘))
76	73, 75	eleqtrrd 2840	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 ∈ (𝐼 ∖ {𝑥})) → (𝑓‘𝑘) ∈ ((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑘))
77	19	difexd 5273	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐼 ∖ {𝑥}) ∈ V)
78	77	mptexd 7179	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) ∈ V)
79	78	ad2antrr 727	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) ∈ V)
80		funmpt 6537	. . . . . . . . . . . . . . 15 ⊢ Fun (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘))
81	80	a1i 11	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → Fun (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)))
82	25	adantr 480	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑓 finSupp 0 )
83		ssdif 4085	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∖ {𝑥}) ⊆ 𝐼 → ((𝐼 ∖ {𝑥}) ∖ (𝑓 supp 0 )) ⊆ (𝐼 ∖ (𝑓 supp 0 )))
84	57, 83	ax-mp 5	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∖ {𝑥}) ∖ (𝑓 supp 0 )) ⊆ (𝐼 ∖ (𝑓 supp 0 ))
85	84	sseli 3918	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ((𝐼 ∖ {𝑥}) ∖ (𝑓 supp 0 )) → 𝑘 ∈ (𝐼 ∖ (𝑓 supp 0 )))
86		ssidd 3946	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓 supp 0 ) ⊆ (𝑓 supp 0 ))
87	19	ad2antrr 727	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐼 ∈ V)
88	3	fvexi 6855	. . . . . . . . . . . . . . . . . 18 ⊢ 0 ∈ V
89	88	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 0 ∈ V)
90	65, 86, 87, 89	suppssr 8145	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → (𝑓‘𝑘) = 0 )
91	85, 90	sylan2 594	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 ∈ ((𝐼 ∖ {𝑥}) ∖ (𝑓 supp 0 ))) → (𝑓‘𝑘) = 0 )
92	77	ad2antrr 727	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐼 ∖ {𝑥}) ∈ V)
93	91, 92	suppss2 8150	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) supp 0 ) ⊆ (𝑓 supp 0 ))
94		fsuppsssupp 9294	. . . . . . . . . . . . . 14 ⊢ ((((𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) ∈ V ∧ Fun (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘))) ∧ (𝑓 finSupp 0 ∧ ((𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) supp 0 ) ⊆ (𝑓 supp 0 ))) → (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) finSupp 0 )
95	79, 81, 82, 93, 94	syl22anc 839	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) finSupp 0 )
96	56, 60, 64, 76, 95	dprdwd 19988	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) ∈ {ℎ ∈ X𝑖 ∈ (𝐼 ∖ {𝑥})((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑖) ∣ ℎ finSupp 0 })
97	70, 96	eqeltrd 2837	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓 ↾ (𝐼 ∖ {𝑥})) ∈ {ℎ ∈ X𝑖 ∈ (𝐼 ∖ {𝑥})((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑖) ∣ ℎ finSupp 0 })
98	3, 56, 60, 64, 97	eldprdi 19995	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥}))) ∈ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))
99	26, 98	sylan2 594	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → (𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥}))) ∈ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))
100	55, 99	eqeltrd 2837	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝐴 ∈ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))
101		eqid 2737	. . . . . . . . . 10 ⊢ (+g‘𝐺) = (+g‘𝐺)
102		eqid 2737	. . . . . . . . . 10 ⊢ (LSSum‘𝐺) = (LSSum‘𝐺)
103	61, 15	ffvelcdmd 7038	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑆‘𝑥) ∈ (SubGrp‘𝐺))
104		dprdsubg 20001	. . . . . . . . . . 11 ⊢ (𝐺dom DProd (𝑆 ↾ (𝐼 ∖ {𝑥})) → (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))) ∈ (SubGrp‘𝐺))
105	60, 104	syl 17	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))) ∈ (SubGrp‘𝐺))
106	12, 13, 15, 3	dpjdisj 20030	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((𝑆‘𝑥) ∩ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))) = { 0 })
107	12, 13, 15, 33	dpjcntz 20029	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑆‘𝑥) ⊆ ((Cntz‘𝐺)‘(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))))
108	101, 102, 3, 33, 103, 105, 106, 107, 27	pj1rid 19677	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝐴 ∈ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))) → (((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴) = 0 )
109	26, 108	sylanl2 682	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) ∧ 𝐴 ∈ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))) → (((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴) = 0 )
110	100, 109	mpdan 688	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → (((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴) = 0 )
111	30, 110	eqtrd 2772	. . . . . 6 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → ((𝑃‘𝑥)‘𝐴) = 0 )
112	19	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝐼 ∈ V)
113	111, 112	suppss2 8150	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → ((𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) supp 0 ) ⊆ (𝑓 supp 0 ))
114		fsuppsssupp 9294	. . . . 5 ⊢ ((((𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) ∈ V ∧ Fun (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴))) ∧ (𝑓 finSupp 0 ∧ ((𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) supp 0 ) ⊆ (𝑓 supp 0 ))) → (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) finSupp 0 )
115	21, 23, 25, 113, 114	syl22anc 839	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) finSupp 0 )
116	4, 10, 11, 18, 115	dprdwd 19988	. . 3 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) ∈ 𝑊)
117		simprr 773	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝐴 = (𝐺 Σg 𝑓))
118	39	feqmptd 6909	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝑓 = (𝑥 ∈ 𝐼 ↦ (𝑓‘𝑥)))
119		simplrr 778	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐴 = (𝐺 Σg 𝑓))
120	12, 34, 35	3syl 18	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐺 ∈ Mnd)
121	4, 12, 13, 41	dprdffsupp 19991	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑓 finSupp 0 )
122		disjdif 4413	. . . . . . . . . . . . 13 ⊢ ({𝑥} ∩ (𝐼 ∖ {𝑥})) = ∅
123	122	a1i 11	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ({𝑥} ∩ (𝐼 ∖ {𝑥})) = ∅)
124		undif2 4418	. . . . . . . . . . . . 13 ⊢ ({𝑥} ∪ (𝐼 ∖ {𝑥})) = ({𝑥} ∪ 𝐼)
125	15	snssd 4731	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → {𝑥} ⊆ 𝐼)
126		ssequn1 4127	. . . . . . . . . . . . . 14 ⊢ ({𝑥} ⊆ 𝐼 ↔ ({𝑥} ∪ 𝐼) = 𝐼)
127	125, 126	sylib 218	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ({𝑥} ∪ 𝐼) = 𝐼)
128	124, 127	eqtr2id 2785	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐼 = ({𝑥} ∪ (𝐼 ∖ {𝑥})))
129	32, 3, 101, 33, 120, 87, 65, 42, 121, 123, 128	gsumzsplit 19902	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 Σg 𝑓) = ((𝐺 Σg (𝑓 ↾ {𝑥}))(+g‘𝐺)(𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥})))))
130	65, 125	feqresmpt 6910	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓 ↾ {𝑥}) = (𝑘 ∈ {𝑥} ↦ (𝑓‘𝑘)))
131	130	oveq2d 7383	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 Σg (𝑓 ↾ {𝑥})) = (𝐺 Σg (𝑘 ∈ {𝑥} ↦ (𝑓‘𝑘))))
132	65, 15	ffvelcdmd 7038	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓‘𝑥) ∈ (Base‘𝐺))
133		fveq2 6841	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑥 → (𝑓‘𝑘) = (𝑓‘𝑥))
134	32, 133	gsumsn 19929	. . . . . . . . . . . . . 14 ⊢ ((𝐺 ∈ Mnd ∧ 𝑥 ∈ 𝐼 ∧ (𝑓‘𝑥) ∈ (Base‘𝐺)) → (𝐺 Σg (𝑘 ∈ {𝑥} ↦ (𝑓‘𝑘))) = (𝑓‘𝑥))
135	120, 15, 132, 134	syl3anc 1374	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 Σg (𝑘 ∈ {𝑥} ↦ (𝑓‘𝑘))) = (𝑓‘𝑥))
136	131, 135	eqtrd 2772	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 Σg (𝑓 ↾ {𝑥})) = (𝑓‘𝑥))
137	136	oveq1d 7382	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((𝐺 Σg (𝑓 ↾ {𝑥}))(+g‘𝐺)(𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥})))) = ((𝑓‘𝑥)(+g‘𝐺)(𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥})))))
138	119, 129, 137	3eqtrd 2776	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐴 = ((𝑓‘𝑥)(+g‘𝐺)(𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥})))))
139	12, 13, 15, 102	dpjlsm 20031	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 DProd 𝑆) = ((𝑆‘𝑥)(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))))
140	17, 139	eleqtrd 2839	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐴 ∈ ((𝑆‘𝑥)(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))))
141	4, 10, 11, 24	dprdfcl 19990	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓‘𝑥) ∈ (𝑆‘𝑥))
142	101, 102, 3, 33, 103, 105, 106, 107, 27, 140, 141, 98	pj1eq 19675	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐴 = ((𝑓‘𝑥)(+g‘𝐺)(𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥})))) ↔ ((((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴) = (𝑓‘𝑥) ∧ (((𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))(proj1‘𝐺)(𝑆‘𝑥))‘𝐴) = (𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥}))))))
143	138, 142	mpbid 232	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴) = (𝑓‘𝑥) ∧ (((𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))(proj1‘𝐺)(𝑆‘𝑥))‘𝐴) = (𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥})))))
144	143	simpld 494	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴) = (𝑓‘𝑥))
145	29, 144	eqtrd 2772	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((𝑃‘𝑥)‘𝐴) = (𝑓‘𝑥))
146	145	mpteq2dva 5179	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) = (𝑥 ∈ 𝐼 ↦ (𝑓‘𝑥)))
147	118, 146	eqtr4d 2775	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝑓 = (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)))
148	147	oveq2d 7383	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → (𝐺 Σg 𝑓) = (𝐺 Σg (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴))))
149	117, 148	eqtrd 2772	. . 3 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝐴 = (𝐺 Σg (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴))))
150	116, 149	jca 511	. 2 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → ((𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)))))
151	8, 150	rexlimddv 3145	1 ⊢ (𝜑 → ((𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)))))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542   ∈ wcel 2114  ∃wrex 3062  {crab 3390  Vcvv 3430   ∖ cdif 3887   ∪ cun 3888   ∩ cin 3889   ⊆ wss 3890  ∅c0 4274  {csn 4568   class class class wbr 5086   ↦ cmpt 5167  dom cdm 5631  ran crn 5632   ↾ cres 5633  Fun wfun 6493  ⟶wf 6495  ‘cfv 6499  (class class class)co 7367   supp csupp 8110  Xcixp 8845   finSupp cfsupp 9274  Basecbs 17179  +_gcplusg 17220  0_gc0g 17402   Σ_g cgsu 17403  Mndcmnd 18702  Grpcgrp 18909  SubGrpcsubg 19096  Cntzccntz 19290  LSSumclsm 19609  proj₁cpj1 19610   DProd cdprd 19970  dProjcdpj 19971

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5308  ax-pr 5376  ax-un 7689  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-iin 4937  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-se 5585  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6266  df-ord 6327  df-on 6328  df-lim 6329  df-suc 6330  df-iota 6455  df-fun 6501  df-fn 6502  df-f 6503  df-f1 6504  df-fo 6505  df-f1o 6506  df-fv 6507  df-isom 6508  df-riota 7324  df-ov 7370  df-oprab 7371  df-mpo 7372  df-of 7631  df-om 7818  df-1st 7942  df-2nd 7943  df-supp 8111  df-tpos 8176  df-frecs 8231  df-wrecs 8262  df-recs 8311  df-rdg 8349  df-1o 8405  df-2o 8406  df-er 8643  df-map 8775  df-ixp 8846  df-en 8894  df-dom 8895  df-sdom 8896  df-fin 8897  df-fsupp 9275  df-oi 9425  df-card 9863  df-pnf 11181  df-mnf 11182  df-xr 11183  df-ltxr 11184  df-le 11185  df-sub 11379  df-neg 11380  df-nn 12175  df-2 12244  df-n0 12438  df-z 12525  df-uz 12789  df-fz 13462  df-fzo 13609  df-seq 13964  df-hash 14293  df-sets 17134  df-slot 17152  df-ndx 17164  df-base 17180  df-ress 17201  df-plusg 17233  df-0g 17404  df-gsum 17405  df-mre 17548  df-mrc 17549  df-acs 17551  df-mgm 18608  df-sgrp 18687  df-mnd 18703  df-mhm 18751  df-submnd 18752  df-grp 18912  df-minusg 18913  df-sbg 18914  df-mulg 19044  df-subg 19099  df-ghm 19188  df-gim 19234  df-cntz 19292  df-oppg 19321  df-lsm 19611  df-pj1 19612  df-cmn 19757  df-dprd 19972  df-dpj 19973

This theorem is referenced by:  dpjeq  20036  dpjid  20037