Theorem dpjidcl 19173

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 19119	. . . . 5 ⊢ (dom 𝑆 = 𝐼 → (𝐴 ∈ (𝐺 DProd 𝑆) ↔ (𝐺dom DProd 𝑆 ∧ ∃𝑓 ∈ 𝑊 𝐴 = (𝐺 Σg 𝑓))))
6	2, 5	syl 17	. . . 4 ⊢ (𝜑 → (𝐴 ∈ (𝐺 DProd 𝑆) ↔ (𝐺dom DProd 𝑆 ∧ ∃𝑓 ∈ 𝑊 𝐴 = (𝐺 Σg 𝑓))))
7	1, 6	mpbid 235	. . 3 ⊢ (𝜑 → (𝐺dom DProd 𝑆 ∧ ∃𝑓 ∈ 𝑊 𝐴 = (𝐺 Σg 𝑓)))
8	7	simprd 499	. 2 ⊢ (𝜑 → ∃𝑓 ∈ 𝑊 𝐴 = (𝐺 Σg 𝑓))
9		dpjfval.1	. . . . 5 ⊢ (𝜑 → 𝐺dom DProd 𝑆)
10	9	adantr 484	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝐺dom DProd 𝑆)
11	2	adantr 484	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → dom 𝑆 = 𝐼)
12	9	ad2antrr 725	. . . . . 6 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐺dom DProd 𝑆)
13	2	ad2antrr 725	. . . . . 6 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → dom 𝑆 = 𝐼)
14		dpjfval.p	. . . . . 6 ⊢ 𝑃 = (𝐺dProj𝑆)
15		simpr 488	. . . . . 6 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑥 ∈ 𝐼)
16	12, 13, 14, 15	dpjf 19172	. . . . 5 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑃‘𝑥):(𝐺 DProd 𝑆)⟶(𝑆‘𝑥))
17	1	ad2antrr 725	. . . . 5 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐴 ∈ (𝐺 DProd 𝑆))
18	16, 17	ffvelrnd 6829	. . . 4 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((𝑃‘𝑥)‘𝐴) ∈ (𝑆‘𝑥))
19	9, 2	dprddomcld 19116	. . . . . . 7 ⊢ (𝜑 → 𝐼 ∈ V)
20	19	mptexd 6964	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) ∈ V)
21	20	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) ∈ V)
22		funmpt 6362	. . . . . 6 ⊢ Fun (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴))
23	22	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → Fun (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)))
24		simprl 770	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝑓 ∈ 𝑊)
25	4, 10, 11, 24	dprdffsupp 19129	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝑓 finSupp 0 )
26		eldifi 4054	. . . . . . . 8 ⊢ (𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 )) → 𝑥 ∈ 𝐼)
27		eqid 2798	. . . . . . . . . 10 ⊢ (proj1‘𝐺) = (proj1‘𝐺)
28	12, 13, 14, 27, 15	dpjval 19171	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑃‘𝑥) = ((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))))
29	28	fveq1d 6647	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((𝑃‘𝑥)‘𝐴) = (((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴))
30	26, 29	sylan2 595	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → ((𝑃‘𝑥)‘𝐴) = (((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴))
31		simplrr 777	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝐴 = (𝐺 Σg 𝑓))
32		eqid 2798	. . . . . . . . . . 11 ⊢ (Base‘𝐺) = (Base‘𝐺)
33		eqid 2798	. . . . . . . . . . 11 ⊢ (Cntz‘𝐺) = (Cntz‘𝐺)
34		dprdgrp 19120	. . . . . . . . . . . . 13 ⊢ (𝐺dom DProd 𝑆 → 𝐺 ∈ Grp)
35		grpmnd 18102	. . . . . . . . . . . . 13 ⊢ (𝐺 ∈ Grp → 𝐺 ∈ Mnd)
36	10, 34, 35	3syl 18	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝐺 ∈ Mnd)
37	36	adantr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝐺 ∈ Mnd)
38	19	ad2antrr 725	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝐼 ∈ V)
39	4, 10, 11, 24, 32	dprdff 19127	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝑓:𝐼⟶(Base‘𝐺))
40	39	adantr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝑓:𝐼⟶(Base‘𝐺))
41	24	adantr 484	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑓 ∈ 𝑊)
42	4, 12, 13, 41, 33	dprdfcntz 19130	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ran 𝑓 ⊆ ((Cntz‘𝐺)‘ran 𝑓))
43	26, 42	sylan2 595	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → ran 𝑓 ⊆ ((Cntz‘𝐺)‘ran 𝑓))
44		snssi 4701	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 )) → {𝑥} ⊆ (𝐼 ∖ (𝑓 supp 0 )))
45	44	adantl 485	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → {𝑥} ⊆ (𝐼 ∖ (𝑓 supp 0 )))
46	45	difss2d 4062	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → {𝑥} ⊆ 𝐼)
47		suppssdm 7826	. . . . . . . . . . . . . . 15 ⊢ (𝑓 supp 0 ) ⊆ dom 𝑓
48	47, 39	fssdm 6504	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → (𝑓 supp 0 ) ⊆ 𝐼)
49	48	adantr 484	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → (𝑓 supp 0 ) ⊆ 𝐼)
50		ssconb 4065	. . . . . . . . . . . . 13 ⊢ (({𝑥} ⊆ 𝐼 ∧ (𝑓 supp 0 ) ⊆ 𝐼) → ({𝑥} ⊆ (𝐼 ∖ (𝑓 supp 0 )) ↔ (𝑓 supp 0 ) ⊆ (𝐼 ∖ {𝑥})))
51	46, 49, 50	syl2anc 587	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → ({𝑥} ⊆ (𝐼 ∖ (𝑓 supp 0 )) ↔ (𝑓 supp 0 ) ⊆ (𝐼 ∖ {𝑥})))
52	45, 51	mpbid 235	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → (𝑓 supp 0 ) ⊆ (𝐼 ∖ {𝑥}))
53	25	adantr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝑓 finSupp 0 )
54	32, 3, 33, 37, 38, 40, 43, 52, 53	gsumzres 19022	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → (𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥}))) = (𝐺 Σg 𝑓))
55	31, 54	eqtr4d 2836	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝐴 = (𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥}))))
56		eqid 2798	. . . . . . . . . . 11 ⊢ {ℎ ∈ X𝑖 ∈ (𝐼 ∖ {𝑥})((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑖) ∣ ℎ finSupp 0 } = {ℎ ∈ X𝑖 ∈ (𝐼 ∖ {𝑥})((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑖) ∣ ℎ finSupp 0 }
57		difss 4059	. . . . . . . . . . . . . 14 ⊢ (𝐼 ∖ {𝑥}) ⊆ 𝐼
58	57	a1i 11	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐼 ∖ {𝑥}) ⊆ 𝐼)
59	12, 13, 58	dprdres 19143	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺dom DProd (𝑆 ↾ (𝐼 ∖ {𝑥})) ∧ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))) ⊆ (𝐺 DProd 𝑆)))
60	59	simpld 498	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐺dom DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))
61	12, 13	dprdf2 19122	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑆:𝐼⟶(SubGrp‘𝐺))
62		fssres 6518	. . . . . . . . . . . . 13 ⊢ ((𝑆:𝐼⟶(SubGrp‘𝐺) ∧ (𝐼 ∖ {𝑥}) ⊆ 𝐼) → (𝑆 ↾ (𝐼 ∖ {𝑥})):(𝐼 ∖ {𝑥})⟶(SubGrp‘𝐺))
63	61, 57, 62	sylancl 589	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑆 ↾ (𝐼 ∖ {𝑥})):(𝐼 ∖ {𝑥})⟶(SubGrp‘𝐺))
64	63	fdmd 6497	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → dom (𝑆 ↾ (𝐼 ∖ {𝑥})) = (𝐼 ∖ {𝑥}))
65	39	adantr 484	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑓:𝐼⟶(Base‘𝐺))
66	65	feqmptd 6708	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑓 = (𝑘 ∈ 𝐼 ↦ (𝑓‘𝑘)))
67	66	reseq1d 5817	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓 ↾ (𝐼 ∖ {𝑥})) = ((𝑘 ∈ 𝐼 ↦ (𝑓‘𝑘)) ↾ (𝐼 ∖ {𝑥})))
68		resmpt 5872	. . . . . . . . . . . . . 14 ⊢ ((𝐼 ∖ {𝑥}) ⊆ 𝐼 → ((𝑘 ∈ 𝐼 ↦ (𝑓‘𝑘)) ↾ (𝐼 ∖ {𝑥})) = (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)))
69	57, 68	ax-mp 5	. . . . . . . . . . . . 13 ⊢ ((𝑘 ∈ 𝐼 ↦ (𝑓‘𝑘)) ↾ (𝐼 ∖ {𝑥})) = (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘))
70	67, 69	eqtrdi 2849	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓 ↾ (𝐼 ∖ {𝑥})) = (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)))
71		eldifi 4054	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (𝐼 ∖ {𝑥}) → 𝑘 ∈ 𝐼)
72	4, 12, 13, 41	dprdfcl 19128	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 ∈ 𝐼) → (𝑓‘𝑘) ∈ (𝑆‘𝑘))
73	71, 72	sylan2 595	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 ∈ (𝐼 ∖ {𝑥})) → (𝑓‘𝑘) ∈ (𝑆‘𝑘))
74		fvres 6664	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (𝐼 ∖ {𝑥}) → ((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑘) = (𝑆‘𝑘))
75	74	adantl 485	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 ∈ (𝐼 ∖ {𝑥})) → ((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑘) = (𝑆‘𝑘))
76	73, 75	eleqtrrd 2893	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 ∈ (𝐼 ∖ {𝑥})) → (𝑓‘𝑘) ∈ ((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑘))
77		difexg 5195	. . . . . . . . . . . . . . . . 17 ⊢ (𝐼 ∈ V → (𝐼 ∖ {𝑥}) ∈ V)
78	19, 77	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐼 ∖ {𝑥}) ∈ V)
79	78	mptexd 6964	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) ∈ V)
80	79	ad2antrr 725	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) ∈ V)
81		funmpt 6362	. . . . . . . . . . . . . . 15 ⊢ Fun (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘))
82	81	a1i 11	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → Fun (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)))
83	25	adantr 484	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑓 finSupp 0 )
84		ssdif 4067	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∖ {𝑥}) ⊆ 𝐼 → ((𝐼 ∖ {𝑥}) ∖ (𝑓 supp 0 )) ⊆ (𝐼 ∖ (𝑓 supp 0 )))
85	57, 84	ax-mp 5	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∖ {𝑥}) ∖ (𝑓 supp 0 )) ⊆ (𝐼 ∖ (𝑓 supp 0 ))
86	85	sseli 3911	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ((𝐼 ∖ {𝑥}) ∖ (𝑓 supp 0 )) → 𝑘 ∈ (𝐼 ∖ (𝑓 supp 0 )))
87		ssidd 3938	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓 supp 0 ) ⊆ (𝑓 supp 0 ))
88	19	ad2antrr 725	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐼 ∈ V)
89	3	fvexi 6659	. . . . . . . . . . . . . . . . . 18 ⊢ 0 ∈ V
90	89	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 0 ∈ V)
91	65, 87, 88, 90	suppssr 7844	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → (𝑓‘𝑘) = 0 )
92	86, 91	sylan2 595	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝑘 ∈ ((𝐼 ∖ {𝑥}) ∖ (𝑓 supp 0 ))) → (𝑓‘𝑘) = 0 )
93	78	ad2antrr 725	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐼 ∖ {𝑥}) ∈ V)
94	92, 93	suppss2 7847	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) supp 0 ) ⊆ (𝑓 supp 0 ))
95		fsuppsssupp 8833	. . . . . . . . . . . . . 14 ⊢ ((((𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) ∈ V ∧ Fun (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘))) ∧ (𝑓 finSupp 0 ∧ ((𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) supp 0 ) ⊆ (𝑓 supp 0 ))) → (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) finSupp 0 )
96	80, 82, 83, 94, 95	syl22anc 837	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) finSupp 0 )
97	56, 60, 64, 76, 96	dprdwd 19126	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑘 ∈ (𝐼 ∖ {𝑥}) ↦ (𝑓‘𝑘)) ∈ {ℎ ∈ X𝑖 ∈ (𝐼 ∖ {𝑥})((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑖) ∣ ℎ finSupp 0 })
98	70, 97	eqeltrd 2890	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓 ↾ (𝐼 ∖ {𝑥})) ∈ {ℎ ∈ X𝑖 ∈ (𝐼 ∖ {𝑥})((𝑆 ↾ (𝐼 ∖ {𝑥}))‘𝑖) ∣ ℎ finSupp 0 })
99	3, 56, 60, 64, 98	eldprdi 19133	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥}))) ∈ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))
100	26, 99	sylan2 595	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → (𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥}))) ∈ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))
101	55, 100	eqeltrd 2890	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → 𝐴 ∈ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))
102		eqid 2798	. . . . . . . . . 10 ⊢ (+g‘𝐺) = (+g‘𝐺)
103		eqid 2798	. . . . . . . . . 10 ⊢ (LSSum‘𝐺) = (LSSum‘𝐺)
104	61, 15	ffvelrnd 6829	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑆‘𝑥) ∈ (SubGrp‘𝐺))
105		dprdsubg 19139	. . . . . . . . . . 11 ⊢ (𝐺dom DProd (𝑆 ↾ (𝐼 ∖ {𝑥})) → (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))) ∈ (SubGrp‘𝐺))
106	60, 105	syl 17	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))) ∈ (SubGrp‘𝐺))
107	12, 13, 15, 3	dpjdisj 19168	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((𝑆‘𝑥) ∩ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))) = { 0 })
108	12, 13, 15, 33	dpjcntz 19167	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑆‘𝑥) ⊆ ((Cntz‘𝐺)‘(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))))
109	102, 103, 3, 33, 104, 106, 107, 108, 27	pj1rid 18820	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) ∧ 𝐴 ∈ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))) → (((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴) = 0 )
110	26, 109	sylanl2 680	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) ∧ 𝐴 ∈ (𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))) → (((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴) = 0 )
111	101, 110	mpdan 686	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → (((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴) = 0 )
112	30, 111	eqtrd 2833	. . . . . 6 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ (𝐼 ∖ (𝑓 supp 0 ))) → ((𝑃‘𝑥)‘𝐴) = 0 )
113	19	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝐼 ∈ V)
114	112, 113	suppss2 7847	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → ((𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) supp 0 ) ⊆ (𝑓 supp 0 ))
115		fsuppsssupp 8833	. . . . 5 ⊢ ((((𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) ∈ V ∧ Fun (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴))) ∧ (𝑓 finSupp 0 ∧ ((𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) supp 0 ) ⊆ (𝑓 supp 0 ))) → (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) finSupp 0 )
116	21, 23, 25, 114, 115	syl22anc 837	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) finSupp 0 )
117	4, 10, 11, 18, 116	dprdwd 19126	. . 3 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) ∈ 𝑊)
118		simprr 772	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝐴 = (𝐺 Σg 𝑓))
119	39	feqmptd 6708	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝑓 = (𝑥 ∈ 𝐼 ↦ (𝑓‘𝑥)))
120		simplrr 777	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐴 = (𝐺 Σg 𝑓))
121	12, 34, 35	3syl 18	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐺 ∈ Mnd)
122	4, 12, 13, 41	dprdffsupp 19129	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝑓 finSupp 0 )
123		disjdif 4379	. . . . . . . . . . . . 13 ⊢ ({𝑥} ∩ (𝐼 ∖ {𝑥})) = ∅
124	123	a1i 11	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ({𝑥} ∩ (𝐼 ∖ {𝑥})) = ∅)
125		undif2 4383	. . . . . . . . . . . . 13 ⊢ ({𝑥} ∪ (𝐼 ∖ {𝑥})) = ({𝑥} ∪ 𝐼)
126	15	snssd 4702	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → {𝑥} ⊆ 𝐼)
127		ssequn1 4107	. . . . . . . . . . . . . 14 ⊢ ({𝑥} ⊆ 𝐼 ↔ ({𝑥} ∪ 𝐼) = 𝐼)
128	126, 127	sylib 221	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ({𝑥} ∪ 𝐼) = 𝐼)
129	125, 128	syl5req 2846	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐼 = ({𝑥} ∪ (𝐼 ∖ {𝑥})))
130	32, 3, 102, 33, 121, 88, 65, 42, 122, 124, 129	gsumzsplit 19040	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 Σg 𝑓) = ((𝐺 Σg (𝑓 ↾ {𝑥}))(+g‘𝐺)(𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥})))))
131	65, 126	feqresmpt 6709	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓 ↾ {𝑥}) = (𝑘 ∈ {𝑥} ↦ (𝑓‘𝑘)))
132	131	oveq2d 7151	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 Σg (𝑓 ↾ {𝑥})) = (𝐺 Σg (𝑘 ∈ {𝑥} ↦ (𝑓‘𝑘))))
133	65, 15	ffvelrnd 6829	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓‘𝑥) ∈ (Base‘𝐺))
134		fveq2 6645	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑥 → (𝑓‘𝑘) = (𝑓‘𝑥))
135	32, 134	gsumsn 19067	. . . . . . . . . . . . . 14 ⊢ ((𝐺 ∈ Mnd ∧ 𝑥 ∈ 𝐼 ∧ (𝑓‘𝑥) ∈ (Base‘𝐺)) → (𝐺 Σg (𝑘 ∈ {𝑥} ↦ (𝑓‘𝑘))) = (𝑓‘𝑥))
136	121, 15, 133, 135	syl3anc 1368	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 Σg (𝑘 ∈ {𝑥} ↦ (𝑓‘𝑘))) = (𝑓‘𝑥))
137	132, 136	eqtrd 2833	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 Σg (𝑓 ↾ {𝑥})) = (𝑓‘𝑥))
138	137	oveq1d 7150	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((𝐺 Σg (𝑓 ↾ {𝑥}))(+g‘𝐺)(𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥})))) = ((𝑓‘𝑥)(+g‘𝐺)(𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥})))))
139	120, 130, 138	3eqtrd 2837	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐴 = ((𝑓‘𝑥)(+g‘𝐺)(𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥})))))
140	12, 13, 15, 103	dpjlsm 19169	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐺 DProd 𝑆) = ((𝑆‘𝑥)(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))))
141	17, 140	eleqtrd 2892	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → 𝐴 ∈ ((𝑆‘𝑥)(LSSum‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))))
142	4, 10, 11, 24	dprdfcl 19128	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝑓‘𝑥) ∈ (𝑆‘𝑥))
143	102, 103, 3, 33, 104, 106, 107, 108, 27, 141, 142, 99	pj1eq 18818	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (𝐴 = ((𝑓‘𝑥)(+g‘𝐺)(𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥})))) ↔ ((((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴) = (𝑓‘𝑥) ∧ (((𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))(proj1‘𝐺)(𝑆‘𝑥))‘𝐴) = (𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥}))))))
144	139, 143	mpbid 235	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴) = (𝑓‘𝑥) ∧ (((𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥})))(proj1‘𝐺)(𝑆‘𝑥))‘𝐴) = (𝐺 Σg (𝑓 ↾ (𝐼 ∖ {𝑥})))))
145	144	simpld 498	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → (((𝑆‘𝑥)(proj1‘𝐺)(𝐺 DProd (𝑆 ↾ (𝐼 ∖ {𝑥}))))‘𝐴) = (𝑓‘𝑥))
146	29, 145	eqtrd 2833	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) ∧ 𝑥 ∈ 𝐼) → ((𝑃‘𝑥)‘𝐴) = (𝑓‘𝑥))
147	146	mpteq2dva 5125	. . . . . 6 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) = (𝑥 ∈ 𝐼 ↦ (𝑓‘𝑥)))
148	119, 147	eqtr4d 2836	. . . . 5 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝑓 = (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)))
149	148	oveq2d 7151	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → (𝐺 Σg 𝑓) = (𝐺 Σg (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴))))
150	118, 149	eqtrd 2833	. . 3 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → 𝐴 = (𝐺 Σg (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴))))
151	117, 150	jca 515	. 2 ⊢ ((𝜑 ∧ (𝑓 ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg 𝑓))) → ((𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)))))
152	8, 151	rexlimddv 3250	1 ⊢ (𝜑 → ((𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)) ∈ 𝑊 ∧ 𝐴 = (𝐺 Σg (𝑥 ∈ 𝐼 ↦ ((𝑃‘𝑥)‘𝐴)))))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399   = wceq 1538   ∈ wcel 2111  ∃wrex 3107  {crab 3110  Vcvv 3441   ∖ cdif 3878   ∪ cun 3879   ∩ cin 3880   ⊆ wss 3881  ∅c0 4243  {csn 4525   class class class wbr 5030   ↦ cmpt 5110  dom cdm 5519  ran crn 5520   ↾ cres 5521  Fun wfun 6318  ⟶wf 6320  ‘cfv 6324  (class class class)co 7135   supp csupp 7813  Xcixp 8444   finSupp cfsupp 8817  Basecbs 16475  +_gcplusg 16557  0_gc0g 16705   Σ_g cgsu 16706  Mndcmnd 17903  Grpcgrp 18095  SubGrpcsubg 18265  Cntzccntz 18437  LSSumclsm 18751  proj₁cpj1 18752   DProd cdprd 19108  dProjcdpj 19109

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 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7441  ax-cnex 10582  ax-resscn 10583  ax-1cn 10584  ax-icn 10585  ax-addcl 10586  ax-addrcl 10587  ax-mulcl 10588  ax-mulrcl 10589  ax-mulcom 10590  ax-addass 10591  ax-mulass 10592  ax-distr 10593  ax-i2m1 10594  ax-1ne0 10595  ax-1rid 10596  ax-rnegex 10597  ax-rrecex 10598  ax-cnre 10599  ax-pre-lttri 10600  ax-pre-lttrn 10601  ax-pre-ltadd 10602  ax-pre-mulgt0 10603

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-nel 3092  df-ral 3111  df-rex 3112  df-reu 3113  df-rmo 3114  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-tp 4530  df-op 4532  df-uni 4801  df-int 4839  df-iun 4883  df-iin 4884  df-br 5031  df-opab 5093  df-mpt 5111  df-tr 5137  df-id 5425  df-eprel 5430  df-po 5438  df-so 5439  df-fr 5478  df-se 5479  df-we 5480  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-pred 6116  df-ord 6162  df-on 6163  df-lim 6164  df-suc 6165  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-isom 6333  df-riota 7093  df-ov 7138  df-oprab 7139  df-mpo 7140  df-of 7389  df-om 7561  df-1st 7671  df-2nd 7672  df-supp 7814  df-tpos 7875  df-wrecs 7930  df-recs 7991  df-rdg 8029  df-1o 8085  df-oadd 8089  df-er 8272  df-map 8391  df-ixp 8445  df-en 8493  df-dom 8494  df-sdom 8495  df-fin 8496  df-fsupp 8818  df-oi 8958  df-card 9352  df-pnf 10666  df-mnf 10667  df-xr 10668  df-ltxr 10669  df-le 10670  df-sub 10861  df-neg 10862  df-nn 11626  df-2 11688  df-n0 11886  df-z 11970  df-uz 12232  df-fz 12886  df-fzo 13029  df-seq 13365  df-hash 13687  df-ndx 16478  df-slot 16479  df-base 16481  df-sets 16482  df-ress 16483  df-plusg 16570  df-0g 16707  df-gsum 16708  df-mre 16849  df-mrc 16850  df-acs 16852  df-mgm 17844  df-sgrp 17893  df-mnd 17904  df-mhm 17948  df-submnd 17949  df-grp 18098  df-minusg 18099  df-sbg 18100  df-mulg 18217  df-subg 18268  df-ghm 18348  df-gim 18391  df-cntz 18439  df-oppg 18466  df-lsm 18753  df-pj1 18754  df-cmn 18900  df-dprd 19110  df-dpj 19111

This theorem is referenced by:  dpjeq  19174  dpjid  19175