Theorem evlselv 42830

Description: Evaluating a selection of variable assignments, then evaluating the rest of the variables, is the same as evaluating with all assignments. (Contributed by SN, 10-Mar-2025.)

Hypotheses

Ref	Expression
evlselv.p	⊢ 𝑃 = (𝐼 mPoly 𝑅)
evlselv.k	⊢ 𝐾 = (Base‘𝑅)
evlselv.b	⊢ 𝐵 = (Base‘𝑃)
evlselv.u	⊢ 𝑈 = ((𝐼 ∖ 𝐽) mPoly 𝑅)
evlselv.t	⊢ 𝑇 = (𝐽 mPoly 𝑈)
evlselv.l	⊢ 𝐿 = (algSc‘𝑈)
evlselv.i	⊢ (𝜑 → 𝐼 ∈ 𝑉)
evlselv.r	⊢ (𝜑 → 𝑅 ∈ CRing)
evlselv.j	⊢ (𝜑 → 𝐽 ⊆ 𝐼)
evlselv.f	⊢ (𝜑 → 𝐹 ∈ 𝐵)
evlselv.a	⊢ (𝜑 → 𝐴 ∈ (𝐾 ↑m 𝐼))

Assertion

Ref	Expression
evlselv	⊢ (𝜑 → ((((𝐼 ∖ 𝐽) eval 𝑅)‘(((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽))))‘(𝐴 ↾ (𝐼 ∖ 𝐽))) = (((𝐼 eval 𝑅)‘𝐹)‘𝐴))

Proof of Theorem evlselv

Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑒 𝑖 𝑗 𝑘 𝑢 𝑣 𝑓 ℎ 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2736	. . . . . . . . . . . . 13 ⊢ (Base‘𝑈) = (Base‘𝑈)
2		eqid 2736	. . . . . . . . . . . . 13 ⊢ (.r‘𝑈) = (.r‘𝑈)
3		evlselv.u	. . . . . . . . . . . . . . . 16 ⊢ 𝑈 = ((𝐼 ∖ 𝐽) mPoly 𝑅)
4		evlselv.i	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
5		difssd 4089	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐼 ∖ 𝐽) ⊆ 𝐼)
6	4, 5	ssexd 5269	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐼 ∖ 𝐽) ∈ V)
7		evlselv.r	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑅 ∈ CRing)
8	3, 6, 7	mplcrngd 42800	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑈 ∈ CRing)
9	8	crngringd 20181	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑈 ∈ Ring)
10	9	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑈 ∈ Ring)
11		evlselv.t	. . . . . . . . . . . . . . . 16 ⊢ 𝑇 = (𝐽 mPoly 𝑈)
12		eqid 2736	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝑇) = (Base‘𝑇)
13		eqid 2736	. . . . . . . . . . . . . . . 16 ⊢ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} = {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}
14		evlselv.p	. . . . . . . . . . . . . . . . 17 ⊢ 𝑃 = (𝐼 mPoly 𝑅)
15		evlselv.b	. . . . . . . . . . . . . . . . 17 ⊢ 𝐵 = (Base‘𝑃)
16		evlselv.j	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐽 ⊆ 𝐼)
17		evlselv.f	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐹 ∈ 𝐵)
18	14, 15, 3, 11, 12, 7, 16, 17	selvcl 42826	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) ∈ (Base‘𝑇))
19	11, 1, 12, 13, 18	mplelf 21953	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹):{𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}⟶(Base‘𝑈))
20	19	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹):{𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}⟶(Base‘𝑈))
21	20	ffvelcdmda 7029	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒) ∈ (Base‘𝑈))
22		eqid 2736	. . . . . . . . . . . . . 14 ⊢ (mulGrp‘𝑈) = (mulGrp‘𝑈)
23		eqid 2736	. . . . . . . . . . . . . 14 ⊢ (.g‘(mulGrp‘𝑈)) = (.g‘(mulGrp‘𝑈))
24	4, 16	ssexd 5269	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐽 ∈ V)
25	24	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝐽 ∈ V)
26	8	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑈 ∈ CRing)
27		fvexd 6849	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (Base‘𝑈) ∈ V)
28		evlselv.k	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐾 = (Base‘𝑅)
29	28	fvexi 6848	. . . . . . . . . . . . . . . . . 18 ⊢ 𝐾 ∈ V
30	29	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐾 ∈ V)
31		evlselv.l	. . . . . . . . . . . . . . . . . 18 ⊢ 𝐿 = (algSc‘𝑈)
32	7	crngringd 20181	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑅 ∈ Ring)
33	3, 1, 28, 31, 6, 32	mplasclf 22020	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐿:𝐾⟶(Base‘𝑈))
34	27, 30, 33	elmapdd 8778	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐿 ∈ ((Base‘𝑈) ↑m 𝐾))
35		evlselv.a	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐴 ∈ (𝐾 ↑m 𝐼))
36	35, 16	elmapssresd 8805	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐴 ↾ 𝐽) ∈ (𝐾 ↑m 𝐽))
37	34, 36	mapcod 42498	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐿 ∘ (𝐴 ↾ 𝐽)) ∈ ((Base‘𝑈) ↑m 𝐽))
38	37	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝐿 ∘ (𝐴 ↾ 𝐽)) ∈ ((Base‘𝑈) ↑m 𝐽))
39		simpr 484	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})
40	13, 1, 22, 23, 25, 26, 38, 39	evlsvvvallem 22046	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))) ∈ (Base‘𝑈))
41	1, 2, 10, 21, 40	ringcld 20195	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))) ∈ (Base‘𝑈))
42		eqidd 2737	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))) = (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))
43		eqidd 2737	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) = (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)))
44		fveq1 6833	. . . . . . . . . . . 12 ⊢ (𝑢 = (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))) → (𝑢‘𝑐) = ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))‘𝑐))
45	41, 42, 43, 44	fmptco 7074	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∘ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))))) = (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))‘𝑐)))
46	33	ad2antrr 726	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝐿:𝐾⟶(Base‘𝑈))
47		eqid 2736	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
48	47, 28	mgpbas 20080	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝐾 = (Base‘(mulGrp‘𝑅))
49		eqid 2736	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (.g‘(mulGrp‘𝑅)) = (.g‘(mulGrp‘𝑅))
50	47	ringmgp 20174	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑅 ∈ Ring → (mulGrp‘𝑅) ∈ Mnd)
51	32, 50	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (mulGrp‘𝑅) ∈ Mnd)
52	51	ad3antrrr 730	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → (mulGrp‘𝑅) ∈ Mnd)
53	13	psrbagf 21874	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} → 𝑒:𝐽⟶ℕ0)
54	53	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑒:𝐽⟶ℕ0)
55	54	ffvelcdmda 7029	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → (𝑒‘𝑗) ∈ ℕ0)
56		elmapi 8786	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝐴 ∈ (𝐾 ↑m 𝐼) → 𝐴:𝐼⟶𝐾)
57	35, 56	syl 17	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝐴:𝐼⟶𝐾)
58	57, 16	fssresd 6701	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝐴 ↾ 𝐽):𝐽⟶𝐾)
59	58	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝐴 ↾ 𝐽):𝐽⟶𝐾)
60	59	ffvelcdmda 7029	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝐴 ↾ 𝐽)‘𝑗) ∈ 𝐾)
61	48, 49, 52, 55, 60	mulgnn0cld 19025	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) ∈ 𝐾)
62	46, 61	cofmpt 7077	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝐿 ∘ (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = (𝑗 ∈ 𝐽 ↦ (𝐿‘((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))
63	3	mplassa 21977	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝐼 ∖ 𝐽) ∈ V ∧ 𝑅 ∈ CRing) → 𝑈 ∈ AssAlg)
64	6, 7, 63	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → 𝑈 ∈ AssAlg)
65		eqid 2736	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (Scalar‘𝑈) = (Scalar‘𝑈)
66	31, 65	asclrhm 21846	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑈 ∈ AssAlg → 𝐿 ∈ ((Scalar‘𝑈) RingHom 𝑈))
67	64, 66	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝐿 ∈ ((Scalar‘𝑈) RingHom 𝑈))
68	3, 6, 7	mplsca 21968	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 𝑅 = (Scalar‘𝑈))
69	68	eqcomd 2742	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (Scalar‘𝑈) = 𝑅)
70	69	oveq1d 7373	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → ((Scalar‘𝑈) RingHom 𝑈) = (𝑅 RingHom 𝑈))
71	67, 70	eleqtrd 2838	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝐿 ∈ (𝑅 RingHom 𝑈))
72	47, 22	rhmmhm 20415	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝐿 ∈ (𝑅 RingHom 𝑈) → 𝐿 ∈ ((mulGrp‘𝑅) MndHom (mulGrp‘𝑈)))
73	71, 72	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 𝐿 ∈ ((mulGrp‘𝑅) MndHom (mulGrp‘𝑈)))
74	73	ad3antrrr 730	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → 𝐿 ∈ ((mulGrp‘𝑅) MndHom (mulGrp‘𝑈)))
75	48, 49, 23	mhmmulg 19045	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐿 ∈ ((mulGrp‘𝑅) MndHom (mulGrp‘𝑈)) ∧ (𝑒‘𝑗) ∈ ℕ0 ∧ ((𝐴 ↾ 𝐽)‘𝑗) ∈ 𝐾) → (𝐿‘((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) = ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))(𝐿‘((𝐴 ↾ 𝐽)‘𝑗))))
76	74, 55, 60, 75	syl3anc 1373	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → (𝐿‘((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) = ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))(𝐿‘((𝐴 ↾ 𝐽)‘𝑗))))
77	58	ad3antrrr 730	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → (𝐴 ↾ 𝐽):𝐽⟶𝐾)
78		simpr 484	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → 𝑗 ∈ 𝐽)
79	77, 78	fvco3d 6934	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗) = (𝐿‘((𝐴 ↾ 𝐽)‘𝑗)))
80	79	oveq2d 7374	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)) = ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))(𝐿‘((𝐴 ↾ 𝐽)‘𝑗))))
81	76, 80	eqtr4d 2774	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → (𝐿‘((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) = ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))
82	81	mpteq2dva 5191	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ (𝐿‘((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))
83	62, 82	eqtrd 2771	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝐿 ∘ (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))
84	83	oveq2d 7374	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘𝑈) Σg (𝐿 ∘ (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) = ((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))
85		eqid 2736	. . . . . . . . . . . . . . . . . 18 ⊢ (Base‘(mulGrp‘(Scalar‘𝑈))) = (Base‘(mulGrp‘(Scalar‘𝑈)))
86		eqid 2736	. . . . . . . . . . . . . . . . . 18 ⊢ (0g‘(mulGrp‘(Scalar‘𝑈))) = (0g‘(mulGrp‘(Scalar‘𝑈)))
87	68, 7	eqeltrrd 2837	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (Scalar‘𝑈) ∈ CRing)
88		eqid 2736	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (mulGrp‘(Scalar‘𝑈)) = (mulGrp‘(Scalar‘𝑈))
89	88	crngmgp 20176	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((Scalar‘𝑈) ∈ CRing → (mulGrp‘(Scalar‘𝑈)) ∈ CMnd)
90	87, 89	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (mulGrp‘(Scalar‘𝑈)) ∈ CMnd)
91	90	ad2antrr 726	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (mulGrp‘(Scalar‘𝑈)) ∈ CMnd)
92	22	ringmgp 20174	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑈 ∈ Ring → (mulGrp‘𝑈) ∈ Mnd)
93	9, 92	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (mulGrp‘𝑈) ∈ Mnd)
94	93	ad2antrr 726	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (mulGrp‘𝑈) ∈ Mnd)
95	88, 22	rhmmhm 20415	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐿 ∈ ((Scalar‘𝑈) RingHom 𝑈) → 𝐿 ∈ ((mulGrp‘(Scalar‘𝑈)) MndHom (mulGrp‘𝑈)))
96	67, 95	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐿 ∈ ((mulGrp‘(Scalar‘𝑈)) MndHom (mulGrp‘𝑈)))
97	96	ad2antrr 726	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝐿 ∈ ((mulGrp‘(Scalar‘𝑈)) MndHom (mulGrp‘𝑈)))
98	68	fveq2d 6838	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (Base‘𝑅) = (Base‘(Scalar‘𝑈)))
99	28, 98	eqtrid 2783	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝐾 = (Base‘(Scalar‘𝑈)))
100	99	ad3antrrr 730	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → 𝐾 = (Base‘(Scalar‘𝑈)))
101	61, 100	eleqtrd 2838	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) ∈ (Base‘(Scalar‘𝑈)))
102		eqid 2736	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (Base‘(Scalar‘𝑈)) = (Base‘(Scalar‘𝑈))
103	88, 102	mgpbas 20080	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Base‘(Scalar‘𝑈)) = (Base‘(mulGrp‘(Scalar‘𝑈)))
104	101, 103	eleqtrdi 2846	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) ∈ (Base‘(mulGrp‘(Scalar‘𝑈))))
105	104	fmpttd 7060	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))):𝐽⟶(Base‘(mulGrp‘(Scalar‘𝑈))))
106	54	feqmptd 6902	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑒 = (𝑗 ∈ 𝐽 ↦ (𝑒‘𝑗)))
107	13	psrbagfsupp 21875	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} → 𝑒 finSupp 0)
108	107	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑒 finSupp 0)
109	106, 108	eqbrtrrd 5122	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ (𝑒‘𝑗)) finSupp 0)
110		eqid 2736	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (0g‘(mulGrp‘𝑅)) = (0g‘(mulGrp‘𝑅))
111	48, 110, 49	mulg0 19004	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ 𝐾 → (0(.g‘(mulGrp‘𝑅))𝑘) = (0g‘(mulGrp‘𝑅)))
112	111	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ 𝐾) → (0(.g‘(mulGrp‘𝑅))𝑘) = (0g‘(mulGrp‘𝑅)))
113		fvexd 6849	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (0g‘(mulGrp‘𝑅)) ∈ V)
114	109, 112, 55, 60, 113	fsuppssov1 9287	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) finSupp (0g‘(mulGrp‘𝑅)))
115		eqid 2736	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (1r‘𝑅) = (1r‘𝑅)
116	47, 115	ringidval 20118	. . . . . . . . . . . . . . . . . . . 20 ⊢ (1r‘𝑅) = (0g‘(mulGrp‘𝑅))
117	114, 116	breqtrrdi 5140	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) finSupp (1r‘𝑅))
118	68	fveq2d 6838	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (1r‘𝑅) = (1r‘(Scalar‘𝑈)))
119		eqid 2736	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (1r‘(Scalar‘𝑈)) = (1r‘(Scalar‘𝑈))
120	88, 119	ringidval 20118	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (1r‘(Scalar‘𝑈)) = (0g‘(mulGrp‘(Scalar‘𝑈)))
121	118, 120	eqtrdi 2787	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (1r‘𝑅) = (0g‘(mulGrp‘(Scalar‘𝑈))))
122	121	ad2antrr 726	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (1r‘𝑅) = (0g‘(mulGrp‘(Scalar‘𝑈))))
123	117, 122	breqtrd 5124	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) finSupp (0g‘(mulGrp‘(Scalar‘𝑈))))
124	85, 86, 91, 94, 25, 97, 105, 123	gsummhm 19867	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘𝑈) Σg (𝐿 ∘ (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) = (𝐿‘((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
125	84, 124	eqtr3d 2773	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))) = (𝐿‘((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
126	125	oveq2d 7374	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))) = (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)(𝐿‘((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))))
127	64	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑈 ∈ AssAlg)
128	101	fmpttd 7060	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))):𝐽⟶(Base‘(Scalar‘𝑈)))
129	123, 120	breqtrrdi 5140	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) finSupp (1r‘(Scalar‘𝑈)))
130	103, 120, 91, 25, 128, 129	gsumcl 19844	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) ∈ (Base‘(Scalar‘𝑈)))
131		eqid 2736	. . . . . . . . . . . . . . . . 17 ⊢ ( ·𝑠 ‘𝑈) = ( ·𝑠 ‘𝑈)
132	31, 65, 102, 1, 2, 131	asclmul2 21843	. . . . . . . . . . . . . . . 16 ⊢ ((𝑈 ∈ AssAlg ∧ ((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) ∈ (Base‘(Scalar‘𝑈)) ∧ ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒) ∈ (Base‘𝑈)) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)(𝐿‘((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))) = (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))( ·𝑠 ‘𝑈)((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)))
133	127, 130, 21, 132	syl3anc 1373	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)(𝐿‘((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))) = (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))( ·𝑠 ‘𝑈)((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)))
134	126, 133	eqtrd 2771	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))) = (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))( ·𝑠 ‘𝑈)((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)))
135	134	fveq1d 6836	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))‘𝑐) = ((((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))( ·𝑠 ‘𝑈)((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒))‘𝑐))
136		eqid 2736	. . . . . . . . . . . . . 14 ⊢ (.r‘𝑅) = (.r‘𝑅)
137		eqid 2736	. . . . . . . . . . . . . 14 ⊢ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} = {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}
138	99	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝐾 = (Base‘(Scalar‘𝑈)))
139	130, 138	eleqtrrd 2839	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) ∈ 𝐾)
140		simplr 768	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin})
141	3, 131, 28, 1, 136, 137, 139, 21, 140	mplvscaval 21971	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))( ·𝑠 ‘𝑈)((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒))‘𝑐) = (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)))
142	135, 141	eqtrd 2771	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))‘𝑐) = (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)))
143	142	mpteq2dva 5191	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))‘𝑐)) = (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐))))
144	45, 143	eqtrd 2771	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∘ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))))) = (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐))))
145	144	oveq2d 7374	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑅 Σg ((𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∘ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))) = (𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)))))
146	69	fveq2d 6838	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (mulGrp‘(Scalar‘𝑈)) = (mulGrp‘𝑅))
147	146	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (mulGrp‘(Scalar‘𝑈)) = (mulGrp‘𝑅))
148	147	oveq1d 7373	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))
149	148	oveq1d 7373	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)) = (((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)))
150	7	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑅 ∈ CRing)
151	148, 139	eqeltrrd 2837	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) ∈ 𝐾)
152	19	ffvelcdmda 7029	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒) ∈ (Base‘𝑈))
153	3, 28, 1, 137, 152	mplelf 21953	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒):{𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}⟶𝐾)
154	153	ffvelcdmda 7029	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐) ∈ 𝐾)
155	154	an32s 652	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐) ∈ 𝐾)
156	28, 136, 150, 151, 155	crngcomd 20190	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)) = ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
157	149, 156	eqtrd 2771	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)) = ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
158	157	mpteq2dva 5191	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐))) = (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))))
159	158	oveq2d 7374	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)))) = (𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))))
160	145, 159	eqtrd 2771	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑅 Σg ((𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∘ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))) = (𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))))
161	160	oveq1d 7373	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((𝑅 Σg ((𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∘ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = ((𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))
162		eqid 2736	. . . . . . . . . 10 ⊢ (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) = (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐))
163		fveq1 6833	. . . . . . . . . 10 ⊢ (𝑢 = (𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))))) → (𝑢‘𝑐) = ((𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))‘𝑐))
164		eqid 2736	. . . . . . . . . . . . 13 ⊢ (𝐽 eval 𝑈) = (𝐽 eval 𝑈)
165	164, 11, 12, 13, 1, 22, 23, 2, 24, 8, 18, 37	evlvvval 42818	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽))) = (𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))))))
166	164, 11, 12, 1, 24, 8, 18, 37	evlcl 22057	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽))) ∈ (Base‘𝑈))
167	165, 166	eqeltrrd 2837	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))))) ∈ (Base‘𝑈))
168	167	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))))) ∈ (Base‘𝑈))
169		fvexd 6849	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))‘𝑐) ∈ V)
170	162, 163, 168, 169	fvmptd3 6964	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐))‘(𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))) = ((𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))‘𝑐))
171		eqid 2736	. . . . . . . . . 10 ⊢ (0g‘𝑈) = (0g‘𝑈)
172	9	ringcmnd 20219	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑈 ∈ CMnd)
173	172	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑈 ∈ CMnd)
174	7	crnggrpd 20182	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ∈ Grp)
175	174	grpmndd 18876	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ Mnd)
176	175	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑅 ∈ Mnd)
177		ovex 7391	. . . . . . . . . . . 12 ⊢ (ℕ0 ↑m 𝐽) ∈ V
178	177	rabex 5284	. . . . . . . . . . 11 ⊢ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ∈ V
179	178	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ∈ V)
180	6	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝐼 ∖ 𝐽) ∈ V)
181	174	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑅 ∈ Grp)
182		simpr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin})
183	3, 1, 137, 162, 180, 181, 182	mplmapghm 42807	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∈ (𝑈 GrpHom 𝑅))
184		ghmmhm 19155	. . . . . . . . . . 11 ⊢ ((𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∈ (𝑈 GrpHom 𝑅) → (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∈ (𝑈 MndHom 𝑅))
185	183, 184	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∈ (𝑈 MndHom 𝑅))
186	41	fmpttd 7060	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))):{𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}⟶(Base‘𝑈))
187	24	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝐽 ∈ V)
188	8	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑈 ∈ CRing)
189	18	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) ∈ (Base‘𝑇))
190	37	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝐿 ∘ (𝐴 ↾ 𝐽)) ∈ ((Base‘𝑈) ↑m 𝐽))
191	13, 11, 12, 1, 22, 23, 2, 187, 188, 189, 190	evlvvvallem 42819	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))) finSupp (0g‘𝑈))
192	1, 171, 173, 176, 179, 185, 186, 191	gsummhm 19867	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑅 Σg ((𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∘ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))) = ((𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐))‘(𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))))
193	165	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽))) = (𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))))))
194	193	fveq1d 6836	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽)))‘𝑐) = ((𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))‘𝑐))
195	170, 192, 194	3eqtr4rd 2782	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽)))‘𝑐) = (𝑅 Σg ((𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∘ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))))
196	195	oveq1d 7373	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (((((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽)))‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = ((𝑅 Σg ((𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∘ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))
197		eqid 2736	. . . . . . . 8 ⊢ (0g‘𝑅) = (0g‘𝑅)
198	32	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑅 ∈ Ring)
199	47	crngmgp 20176	. . . . . . . . . . 11 ⊢ (𝑅 ∈ CRing → (mulGrp‘𝑅) ∈ CMnd)
200	7, 199	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (mulGrp‘𝑅) ∈ CMnd)
201	200	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (mulGrp‘𝑅) ∈ CMnd)
202	51	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (mulGrp‘𝑅) ∈ Mnd)
203	137	psrbagf 21874	. . . . . . . . . . . . 13 ⊢ (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} → 𝑐:(𝐼 ∖ 𝐽)⟶ℕ0)
204	203	adantl 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑐:(𝐼 ∖ 𝐽)⟶ℕ0)
205	204	ffvelcdmda 7029	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (𝑐‘𝑘) ∈ ℕ0)
206	57, 5	fssresd 6701	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴 ↾ (𝐼 ∖ 𝐽)):(𝐼 ∖ 𝐽)⟶𝐾)
207	206	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝐴 ↾ (𝐼 ∖ 𝐽)):(𝐼 ∖ 𝐽)⟶𝐾)
208	207	ffvelcdmda 7029	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘) ∈ 𝐾)
209	48, 49, 202, 205, 208	mulgnn0cld 19025	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) ∈ 𝐾)
210	209	fmpttd 7060	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))):(𝐼 ∖ 𝐽)⟶𝐾)
211	204	feqmptd 6902	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑐 = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (𝑐‘𝑘)))
212	137	psrbagfsupp 21875	. . . . . . . . . . . 12 ⊢ (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} → 𝑐 finSupp 0)
213	212	adantl 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑐 finSupp 0)
214	211, 213	eqbrtrrd 5122	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (𝑐‘𝑘)) finSupp 0)
215	48, 110, 49	mulg0 19004	. . . . . . . . . . 11 ⊢ (𝑣 ∈ 𝐾 → (0(.g‘(mulGrp‘𝑅))𝑣) = (0g‘(mulGrp‘𝑅)))
216	215	adantl 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑣 ∈ 𝐾) → (0(.g‘(mulGrp‘𝑅))𝑣) = (0g‘(mulGrp‘𝑅)))
217		fvexd 6849	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (𝑐‘𝑘) ∈ V)
218		fvexd 6849	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (0g‘(mulGrp‘𝑅)) ∈ V)
219	214, 216, 217, 208, 218	fsuppssov1 9287	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) finSupp (0g‘(mulGrp‘𝑅)))
220	48, 110, 201, 180, 210, 219	gsumcl 19844	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))) ∈ 𝐾)
221	32	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑅 ∈ Ring)
222	28, 136, 221, 155, 151	ringcld 20195	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) ∈ 𝐾)
223	178	mptex 7169	. . . . . . . . . . 11 ⊢ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)) ∈ V
224	223	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)) ∈ V)
225		fvexd 6849	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (0g‘𝑅) ∈ V)
226		funmpt 6530	. . . . . . . . . . 11 ⊢ Fun (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐))
227	226	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → Fun (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)))
228	11, 12, 171, 18	mplelsfi 21950	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) finSupp (0g‘𝑈))
229	228	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) finSupp (0g‘𝑈))
230		ssidd 3957	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) supp (0g‘𝑈)) ⊆ ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) supp (0g‘𝑈)))
231		fvexd 6849	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (0g‘𝑈) ∈ V)
232	20, 230, 179, 231	suppssr 8137	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ ({𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ∖ ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) supp (0g‘𝑈)))) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒) = (0g‘𝑈))
233	232	fveq1d 6836	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ ({𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ∖ ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) supp (0g‘𝑈)))) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐) = ((0g‘𝑈)‘𝑐))
234	3, 137, 197, 171, 6, 174	mpl0 21961	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (0g‘𝑈) = ({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {(0g‘𝑅)}))
235	234	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (0g‘𝑈) = ({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {(0g‘𝑅)}))
236	235	fveq1d 6836	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((0g‘𝑈)‘𝑐) = (({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {(0g‘𝑅)})‘𝑐))
237		fvex 6847	. . . . . . . . . . . . . . . 16 ⊢ (0g‘𝑅) ∈ V
238	237	fvconst2 7150	. . . . . . . . . . . . . . 15 ⊢ (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} → (({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {(0g‘𝑅)})‘𝑐) = (0g‘𝑅))
239	238	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {(0g‘𝑅)})‘𝑐) = (0g‘𝑅))
240	236, 239	eqtrd 2771	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((0g‘𝑈)‘𝑐) = (0g‘𝑅))
241	240	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ ({𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ∖ ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) supp (0g‘𝑈)))) → ((0g‘𝑈)‘𝑐) = (0g‘𝑅))
242	233, 241	eqtrd 2771	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ ({𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ∖ ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) supp (0g‘𝑈)))) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐) = (0g‘𝑅))
243	242, 179	suppss2 8142	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)) supp (0g‘𝑅)) ⊆ ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) supp (0g‘𝑈)))
244	224, 225, 227, 229, 243	fsuppsssuppgd 9285	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)) finSupp (0g‘𝑅))
245	32	ad2antrr 726	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑣 ∈ 𝐾) → 𝑅 ∈ Ring)
246		simpr 484	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑣 ∈ 𝐾) → 𝑣 ∈ 𝐾)
247	28, 136, 197, 245, 246	ringlzd 20230	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑣 ∈ 𝐾) → ((0g‘𝑅)(.r‘𝑅)𝑣) = (0g‘𝑅))
248	244, 247, 155, 151, 225	fsuppssov1 9287	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))) finSupp (0g‘𝑅))
249	28, 197, 136, 198, 179, 220, 222, 248	gsummulc1 20251	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))) = ((𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))
250	161, 196, 249	3eqtr4d 2781	. . . . . 6 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (((((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽)))‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = (𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))))
251		fveq2 6834	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑒 → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎) = ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒))
252	251	adantl 481	. . . . . . . . . . . . 13 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎) = ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒))
253		simpl 482	. . . . . . . . . . . . 13 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → 𝑏 = 𝑐)
254	252, 253	fveq12d 6841	. . . . . . . . . . . 12 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏) = (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐))
255		fveq1 6833	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 = 𝑒 → (𝑎‘𝑗) = (𝑒‘𝑗))
256	255	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → (𝑎‘𝑗) = (𝑒‘𝑗))
257	256	oveq1d 7373	. . . . . . . . . . . . . 14 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))
258	257	mpteq2dv 5192	. . . . . . . . . . . . 13 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) = (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
259	258	oveq2d 7374	. . . . . . . . . . . 12 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))
260	254, 259	oveq12d 7376	. . . . . . . . . . 11 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) = ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
261		fveq1 6833	. . . . . . . . . . . . . . 15 ⊢ (𝑏 = 𝑐 → (𝑏‘𝑘) = (𝑐‘𝑘))
262	261	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → (𝑏‘𝑘) = (𝑐‘𝑘))
263	262	oveq1d 7373	. . . . . . . . . . . . 13 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))
264	263	mpteq2dv 5192	. . . . . . . . . . . 12 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
265	264	oveq2d 7374	. . . . . . . . . . 11 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))) = ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))
266	260, 265	oveq12d 7376	. . . . . . . . . 10 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))
267		eqid 2736	. . . . . . . . . 10 ⊢ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) = (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))
268		ovex 7391	. . . . . . . . . 10 ⊢ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) ∈ V
269	266, 267, 268	ovmpoa 7513	. . . . . . . . 9 ⊢ ((𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑐(𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))𝑒) = (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))
270	269	adantll 714	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑐(𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))𝑒) = (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))
271	270	mpteq2dva 5191	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑐(𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))𝑒)) = (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))))
272	271	oveq2d 7374	. . . . . 6 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑐(𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))𝑒))) = (𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))))
273	250, 272	eqtr4d 2774	. . . . 5 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (((((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽)))‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = (𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑐(𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))𝑒))))
274	273	mpteq2dva 5191	. . . 4 ⊢ (𝜑 → (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ↦ (((((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽)))‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) = (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑐(𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))𝑒)))))
275	274	oveq2d 7374	. . 3 ⊢ (𝜑 → (𝑅 Σg (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ↦ (((((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽)))‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))) = (𝑅 Σg (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑐(𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))𝑒))))))
276	32	ringcmnd 20219	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ CMnd)
277		ovex 7391	. . . . . . 7 ⊢ (ℕ0 ↑m 𝐼) ∈ V
278	277	rabex 5284	. . . . . 6 ⊢ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∈ V
279	278	a1i 11	. . . . 5 ⊢ (𝜑 → {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ∈ V)
280	32	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝑅 ∈ Ring)
281	19	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹):{𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}⟶(Base‘𝑈))
282		eqid 2736	. . . . . . . . . . . 12 ⊢ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} = {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}
283	4	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝐼 ∈ 𝑉)
284	16	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝐽 ⊆ 𝐼)
285		simpr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin})
286	282, 13, 283, 284, 285	psrbagres 42799	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑑 ↾ 𝐽) ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})
287	281, 286	ffvelcdmd 7030	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽)) ∈ (Base‘𝑈))
288	3, 28, 1, 137, 287	mplelf 21953	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽)):{𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}⟶𝐾)
289		difssd 4089	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝐼 ∖ 𝐽) ⊆ 𝐼)
290	282, 137, 283, 289, 285	psrbagres 42799	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑑 ↾ (𝐼 ∖ 𝐽)) ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin})
291	288, 290	ffvelcdmd 7030	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽))) ∈ 𝐾)
292	200	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (mulGrp‘𝑅) ∈ CMnd)
293	24	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝐽 ∈ V)
294	51	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → (mulGrp‘𝑅) ∈ Mnd)
295	282	psrbagf 21874	. . . . . . . . . . . . . 14 ⊢ (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} → 𝑑:𝐼⟶ℕ0)
296	295	adantl 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝑑:𝐼⟶ℕ0)
297	296, 284	fssresd 6701	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑑 ↾ 𝐽):𝐽⟶ℕ0)
298	297	ffvelcdmda 7029	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑑 ↾ 𝐽)‘𝑗) ∈ ℕ0)
299	58	ffvelcdmda 7029	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝐽) → ((𝐴 ↾ 𝐽)‘𝑗) ∈ 𝐾)
300	299	adantlr 715	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝐴 ↾ 𝐽)‘𝑗) ∈ 𝐾)
301	48, 49, 294, 298, 300	mulgnn0cld 19025	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) ∈ 𝐾)
302	301	fmpttd 7060	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))):𝐽⟶𝐾)
303	24	mptexd 7170	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) ∈ V)
304	303	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) ∈ V)
305		fvexd 6849	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (0g‘(mulGrp‘𝑅)) ∈ V)
306		funmpt 6530	. . . . . . . . . . 11 ⊢ Fun (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))
307	306	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → Fun (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
308	282	psrbagfsupp 21875	. . . . . . . . . . . 12 ⊢ (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} → 𝑑 finSupp 0)
309	308	adantl 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝑑 finSupp 0)
310		0zd 12500	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 0 ∈ ℤ)
311	309, 310	fsuppres 9296	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑑 ↾ 𝐽) finSupp 0)
312		ssidd 3957	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑑 ↾ 𝐽) supp 0) ⊆ ((𝑑 ↾ 𝐽) supp 0))
313	297, 312, 293, 310	suppssr 8137	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ (𝐽 ∖ ((𝑑 ↾ 𝐽) supp 0))) → ((𝑑 ↾ 𝐽)‘𝑗) = 0)
314	313	oveq1d 7373	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ (𝐽 ∖ ((𝑑 ↾ 𝐽) supp 0))) → (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = (0(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))
315		eldifi 4083	. . . . . . . . . . . . 13 ⊢ (𝑗 ∈ (𝐽 ∖ ((𝑑 ↾ 𝐽) supp 0)) → 𝑗 ∈ 𝐽)
316	48, 110, 49	mulg0 19004	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ↾ 𝐽)‘𝑗) ∈ 𝐾 → (0(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = (0g‘(mulGrp‘𝑅)))
317	300, 316	syl 17	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → (0(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = (0g‘(mulGrp‘𝑅)))
318	315, 317	sylan2 593	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ (𝐽 ∖ ((𝑑 ↾ 𝐽) supp 0))) → (0(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = (0g‘(mulGrp‘𝑅)))
319	314, 318	eqtrd 2771	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ (𝐽 ∖ ((𝑑 ↾ 𝐽) supp 0))) → (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = (0g‘(mulGrp‘𝑅)))
320	319, 293	suppss2 8142	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) supp (0g‘(mulGrp‘𝑅))) ⊆ ((𝑑 ↾ 𝐽) supp 0))
321	304, 305, 307, 311, 320	fsuppsssuppgd 9285	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) finSupp (0g‘(mulGrp‘𝑅)))
322	48, 110, 292, 293, 302, 321	gsumcl 19844	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) ∈ 𝐾)
323	28, 136, 280, 291, 322	ringcld 20195	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) ∈ 𝐾)
324	6	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝐼 ∖ 𝐽) ∈ V)
325	51	ad2antrr 726	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (mulGrp‘𝑅) ∈ Mnd)
326	296, 289	fssresd 6701	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑑 ↾ (𝐼 ∖ 𝐽)):(𝐼 ∖ 𝐽)⟶ℕ0)
327	326	ffvelcdmda 7029	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘) ∈ ℕ0)
328	206	ffvelcdmda 7029	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘) ∈ 𝐾)
329	328	adantlr 715	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘) ∈ 𝐾)
330	48, 49, 325, 327, 329	mulgnn0cld 19025	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) ∈ 𝐾)
331	330	fmpttd 7060	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))):(𝐼 ∖ 𝐽)⟶𝐾)
332	324	mptexd 7170	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) ∈ V)
333		funmpt 6530	. . . . . . . . . 10 ⊢ Fun (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))
334	333	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → Fun (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
335	309, 310	fsuppres 9296	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑑 ↾ (𝐼 ∖ 𝐽)) finSupp 0)
336		ssidd 3957	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0) ⊆ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0))
337	326, 336, 324, 310	suppssr 8137	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ ((𝐼 ∖ 𝐽) ∖ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0))) → ((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘) = 0)
338	337	oveq1d 7373	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ ((𝐼 ∖ 𝐽) ∖ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0))) → (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = (0(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))
339		eldifi 4083	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ((𝐼 ∖ 𝐽) ∖ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0)) → 𝑘 ∈ (𝐼 ∖ 𝐽))
340	339, 329	sylan2 593	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ ((𝐼 ∖ 𝐽) ∖ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0))) → ((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘) ∈ 𝐾)
341	48, 110, 49	mulg0 19004	. . . . . . . . . . . 12 ⊢ (((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘) ∈ 𝐾 → (0(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = (0g‘(mulGrp‘𝑅)))
342	340, 341	syl 17	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ ((𝐼 ∖ 𝐽) ∖ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0))) → (0(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = (0g‘(mulGrp‘𝑅)))
343	338, 342	eqtrd 2771	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ ((𝐼 ∖ 𝐽) ∖ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0))) → (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = (0g‘(mulGrp‘𝑅)))
344	343, 324	suppss2 8142	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) supp (0g‘(mulGrp‘𝑅))) ⊆ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0))
345	332, 305, 334, 335, 344	fsuppsssuppgd 9285	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) finSupp (0g‘(mulGrp‘𝑅)))
346	48, 110, 292, 324, 331, 345	gsumcl 19844	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))) ∈ 𝐾)
347	28, 136, 280, 323, 346	ringcld 20195	. . . . . 6 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) ∈ 𝐾)
348	347	fmpttd 7060	. . . . 5 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))):{ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}⟶𝐾)
349	7	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝑅 ∈ CRing)
350	17	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝐹 ∈ 𝐵)
351	282, 14, 15, 349, 284, 350, 285	selvvvval 42828	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽))) = (𝐹‘𝑑))
352	351	mpteq2dva 5191	. . . . . . . 8 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))) = (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝐹‘𝑑)))
353		eqid 2736	. . . . . . . . . . 11 ⊢ (Base‘𝑅) = (Base‘𝑅)
354	14, 353, 15, 282, 17	mplelf 21953	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹:{ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}⟶(Base‘𝑅))
355	354	feqmptd 6902	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 = (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝐹‘𝑑)))
356	14, 15, 197, 17	mplelsfi 21950	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 finSupp (0g‘𝑅))
357	355, 356	eqbrtrrd 5122	. . . . . . . 8 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝐹‘𝑑)) finSupp (0g‘𝑅))
358	352, 357	eqbrtrd 5120	. . . . . . 7 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))) finSupp (0g‘𝑅))
359	32	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐾) → 𝑅 ∈ Ring)
360		simpr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐾) → 𝑣 ∈ 𝐾)
361	28, 136, 197, 359, 360	ringlzd 20230	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐾) → ((0g‘𝑅)(.r‘𝑅)𝑣) = (0g‘𝑅))
362		fvexd 6849	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽))) ∈ V)
363		fvexd 6849	. . . . . . 7 ⊢ (𝜑 → (0g‘𝑅) ∈ V)
364	358, 361, 362, 322, 363	fsuppssov1 9287	. . . . . 6 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))) finSupp (0g‘𝑅))
365		ovexd 7393	. . . . . 6 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) ∈ V)
366	364, 361, 365, 346, 363	fsuppssov1 9287	. . . . 5 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) finSupp (0g‘𝑅))
367		eqid 2736	. . . . . 6 ⊢ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎)) = (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎))
368	282, 13, 137, 367, 4, 16	evlselvlem 42829	. . . . 5 ⊢ (𝜑 → (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎)):({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})–1-1-onto→{ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin})
369	28, 197, 276, 279, 348, 366, 368	gsumf1o 19845	. . . 4 ⊢ (𝜑 → (𝑅 Σg (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))) = (𝑅 Σg ((𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) ∘ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎)))))
370	137	psrbagf 21874	. . . . . . . . . 10 ⊢ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} → 𝑏:(𝐼 ∖ 𝐽)⟶ℕ0)
371	370	ad2antrl 728	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑏:(𝐼 ∖ 𝐽)⟶ℕ0)
372	13	psrbagf 21874	. . . . . . . . . 10 ⊢ (𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} → 𝑎:𝐽⟶ℕ0)
373	372	ad2antll 729	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑎:𝐽⟶ℕ0)
374		disjdifr 4425	. . . . . . . . . 10 ⊢ ((𝐼 ∖ 𝐽) ∩ 𝐽) = ∅
375	374	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝐼 ∖ 𝐽) ∩ 𝐽) = ∅)
376	371, 373, 375	fun2d 6698	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝑏 ∪ 𝑎):((𝐼 ∖ 𝐽) ∪ 𝐽)⟶ℕ0)
377		undifr 4435	. . . . . . . . . . 11 ⊢ (𝐽 ⊆ 𝐼 ↔ ((𝐼 ∖ 𝐽) ∪ 𝐽) = 𝐼)
378	16, 377	sylib 218	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) ∪ 𝐽) = 𝐼)
379	378	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝐼 ∖ 𝐽) ∪ 𝐽) = 𝐼)
380	379	feq2d 6646	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝑏 ∪ 𝑎):((𝐼 ∖ 𝐽) ∪ 𝐽)⟶ℕ0 ↔ (𝑏 ∪ 𝑎):𝐼⟶ℕ0))
381	376, 380	mpbid 232	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝑏 ∪ 𝑎):𝐼⟶ℕ0)
382		vex 3444	. . . . . . . . . . 11 ⊢ 𝑏 ∈ V
383		vex 3444	. . . . . . . . . . 11 ⊢ 𝑎 ∈ V
384	382, 383	unex 7689	. . . . . . . . . 10 ⊢ (𝑏 ∪ 𝑎) ∈ V
385	384	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝑏 ∪ 𝑎) ∈ V)
386		0zd 12500	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 0 ∈ ℤ)
387	381	ffund 6666	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → Fun (𝑏 ∪ 𝑎))
388	137	psrbagfsupp 21875	. . . . . . . . . . 11 ⊢ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} → 𝑏 finSupp 0)
389	388	ad2antrl 728	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑏 finSupp 0)
390	13	psrbagfsupp 21875	. . . . . . . . . . 11 ⊢ (𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} → 𝑎 finSupp 0)
391	390	ad2antll 729	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑎 finSupp 0)
392	389, 391	fsuppun 9290	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝑏 ∪ 𝑎) supp 0) ∈ Fin)
393	385, 386, 387, 392	isfsuppd 9269	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝑏 ∪ 𝑎) finSupp 0)
394		fcdmnn0fsuppg 12461	. . . . . . . . 9 ⊢ (((𝑏 ∪ 𝑎) ∈ V ∧ (𝑏 ∪ 𝑎):𝐼⟶ℕ0) → ((𝑏 ∪ 𝑎) finSupp 0 ↔ (◡(𝑏 ∪ 𝑎) “ ℕ) ∈ Fin))
395	385, 381, 394	syl2anc 584	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝑏 ∪ 𝑎) finSupp 0 ↔ (◡(𝑏 ∪ 𝑎) “ ℕ) ∈ Fin))
396	393, 395	mpbid 232	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (◡(𝑏 ∪ 𝑎) “ ℕ) ∈ Fin)
397	4	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝐼 ∈ 𝑉)
398	282	psrbag 21873	. . . . . . . 8 ⊢ (𝐼 ∈ 𝑉 → ((𝑏 ∪ 𝑎) ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↔ ((𝑏 ∪ 𝑎):𝐼⟶ℕ0 ∧ (◡(𝑏 ∪ 𝑎) “ ℕ) ∈ Fin)))
399	397, 398	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝑏 ∪ 𝑎) ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↔ ((𝑏 ∪ 𝑎):𝐼⟶ℕ0 ∧ (◡(𝑏 ∪ 𝑎) “ ℕ) ∈ Fin)))
400	381, 396, 399	mpbir2and 713	. . . . . 6 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝑏 ∪ 𝑎) ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin})
401		eqidd 2737	. . . . . 6 ⊢ (𝜑 → (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎)) = (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎)))
402		eqidd 2737	. . . . . 6 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) = (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))))
403		reseq1 5932	. . . . . . . . . . . 12 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (𝑑 ↾ 𝐽) = ((𝑏 ∪ 𝑎) ↾ 𝐽))
404	403	fveq2d 6838	. . . . . . . . . . 11 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽)) = ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽)))
405		reseq1 5932	. . . . . . . . . . 11 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (𝑑 ↾ (𝐼 ∖ 𝐽)) = ((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽)))
406	404, 405	fveq12d 6841	. . . . . . . . . 10 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽))) = (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽))‘((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))))
407	403	fveq1d 6836	. . . . . . . . . . . . 13 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → ((𝑑 ↾ 𝐽)‘𝑗) = (((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗))
408	407	oveq1d 7373	. . . . . . . . . . . 12 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))
409	408	mpteq2dv 5192	. . . . . . . . . . 11 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) = (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
410	409	oveq2d 7374	. . . . . . . . . 10 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))
411	406, 410	oveq12d 7376	. . . . . . . . 9 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) = ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽))‘((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
412	405	fveq1d 6836	. . . . . . . . . . . 12 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → ((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘) = (((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘))
413	412	oveq1d 7373	. . . . . . . . . . 11 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))
414	413	mpteq2dv 5192	. . . . . . . . . 10 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
415	414	oveq2d 7374	. . . . . . . . 9 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))) = ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))
416	411, 415	oveq12d 7376	. . . . . . . 8 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽))‘((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))
417	384, 416	csbie 3884	. . . . . . 7 ⊢ ⦋(𝑏 ∪ 𝑎) / 𝑑⦌(((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽))‘((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))
418	370	ffnd 6663	. . . . . . . . . . . . 13 ⊢ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} → 𝑏 Fn (𝐼 ∖ 𝐽))
419	418	ad2antrl 728	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑏 Fn (𝐼 ∖ 𝐽))
420	373	ffnd 6663	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑎 Fn 𝐽)
421		fnunres2 6605	. . . . . . . . . . . 12 ⊢ ((𝑏 Fn (𝐼 ∖ 𝐽) ∧ 𝑎 Fn 𝐽 ∧ ((𝐼 ∖ 𝐽) ∩ 𝐽) = ∅) → ((𝑏 ∪ 𝑎) ↾ 𝐽) = 𝑎)
422	419, 420, 375, 421	syl3anc 1373	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝑏 ∪ 𝑎) ↾ 𝐽) = 𝑎)
423	422	fveq2d 6838	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽)) = ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎))
424		fnunres1 6604	. . . . . . . . . . 11 ⊢ ((𝑏 Fn (𝐼 ∖ 𝐽) ∧ 𝑎 Fn 𝐽 ∧ ((𝐼 ∖ 𝐽) ∩ 𝐽) = ∅) → ((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽)) = 𝑏)
425	419, 420, 375, 424	syl3anc 1373	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽)) = 𝑏)
426	423, 425	fveq12d 6841	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽))‘((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))) = (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏))
427	422	fveq1d 6836	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗) = (𝑎‘𝑗))
428	427	oveq1d 7373	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))
429	428	mpteq2dv 5192	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) = (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
430	429	oveq2d 7374	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))
431	426, 430	oveq12d 7376	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽))‘((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) = ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
432	425	fveq1d 6836	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘) = (𝑏‘𝑘))
433	432	oveq1d 7373	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))
434	433	mpteq2dv 5192	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
435	434	oveq2d 7374	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))) = ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))
436	431, 435	oveq12d 7376	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽))‘((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))
437	417, 436	eqtrid 2783	. . . . . 6 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ⦋(𝑏 ∪ 𝑎) / 𝑑⦌(((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))
438	400, 401, 402, 437	fmpocos 42490	. . . . 5 ⊢ (𝜑 → ((𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) ∘ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎))) = (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))))
439	438	oveq2d 7374	. . . 4 ⊢ (𝜑 → (𝑅 Σg ((𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) ∘ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎)))) = (𝑅 Σg (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))))
440		ovex 7391	. . . . . . 7 ⊢ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∈ V
441	440	rabex 5284	. . . . . 6 ⊢ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∈ V
442	441	a1i 11	. . . . 5 ⊢ (𝜑 → {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∈ V)
443	178	a1i 11	. . . . 5 ⊢ (𝜑 → {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ∈ V)
444	32	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑅 ∈ Ring)
445	19	ffvelcdmda 7029	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎) ∈ (Base‘𝑈))
446	3, 28, 1, 137, 445	mplelf 21953	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎):{𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}⟶𝐾)
447	446	ffvelcdmda 7029	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏) ∈ 𝐾)
448	447	an32s 652	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏) ∈ 𝐾)
449	448	anasss 466	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏) ∈ 𝐾)
450	24	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝐽 ∈ V)
451	7	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑅 ∈ CRing)
452	36	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝐴 ↾ 𝐽) ∈ (𝐾 ↑m 𝐽))
453		simprr 772	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})
454	13, 28, 47, 49, 450, 451, 452, 453	evlsvvvallem 22046	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) ∈ 𝐾)
455	28, 136, 444, 449, 454	ringcld 20195	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) ∈ 𝐾)
456	6	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝐼 ∖ 𝐽) ∈ V)
457	35, 5	elmapssresd 8805	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴 ↾ (𝐼 ∖ 𝐽)) ∈ (𝐾 ↑m (𝐼 ∖ 𝐽)))
458	457	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝐴 ↾ (𝐼 ∖ 𝐽)) ∈ (𝐾 ↑m (𝐼 ∖ 𝐽)))
459		simprl 770	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin})
460	137, 28, 47, 49, 456, 451, 458, 459	evlsvvvallem 22046	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))) ∈ 𝐾)
461	28, 136, 444, 455, 460	ringcld 20195	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) ∈ 𝐾)
462	461	ralrimivva 3179	. . . . . 6 ⊢ (𝜑 → ∀𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}∀𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) ∈ 𝐾)
463	267	fmpo 8012	. . . . . 6 ⊢ (∀𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}∀𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) ∈ 𝐾 ↔ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))):({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})⟶𝐾)
464	462, 463	sylib 218	. . . . 5 ⊢ (𝜑 → (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))):({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})⟶𝐾)
465		f1of1 6773	. . . . . . . 8 ⊢ ((𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎)):({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})–1-1-onto→{ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} → (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎)):({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})–1-1→{ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin})
466	368, 465	syl 17	. . . . . . 7 ⊢ (𝜑 → (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎)):({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})–1-1→{ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin})
467	278	mptex 7169	. . . . . . . 8 ⊢ (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) ∈ V
468	467	a1i 11	. . . . . . 7 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) ∈ V)
469	366, 466, 363, 468	fsuppco 9305	. . . . . 6 ⊢ (𝜑 → ((𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) ∘ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎))) finSupp (0g‘𝑅))
470	438, 469	eqbrtrrd 5122	. . . . 5 ⊢ (𝜑 → (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) finSupp (0g‘𝑅))
471	28, 197, 276, 442, 443, 464, 470	gsumxp 19905	. . . 4 ⊢ (𝜑 → (𝑅 Σg (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))) = (𝑅 Σg (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑐(𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))𝑒))))))
472	369, 439, 471	3eqtrd 2775	. . 3 ⊢ (𝜑 → (𝑅 Σg (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))) = (𝑅 Σg (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ↦ (𝑅 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑐(𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))𝑒))))))
473	28, 136, 280, 291, 322, 346	ringassd 20192	. . . . . 6 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)(((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))))
474	47, 136	mgpplusg 20079	. . . . . . . . 9 ⊢ (.r‘𝑅) = (+g‘(mulGrp‘𝑅))
475	51	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑖 ∈ 𝐼) → (mulGrp‘𝑅) ∈ Mnd)
476	296	ffvelcdmda 7029	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑖 ∈ 𝐼) → (𝑑‘𝑖) ∈ ℕ0)
477	57	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝐴:𝐼⟶𝐾)
478	477	ffvelcdmda 7029	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑖 ∈ 𝐼) → (𝐴‘𝑖) ∈ 𝐾)
479	48, 49, 475, 476, 478	mulgnn0cld 19025	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑖 ∈ 𝐼) → ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖)) ∈ 𝐾)
480	479	fmpttd 7060	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))):𝐼⟶𝐾)
481	296	feqmptd 6902	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝑑 = (𝑖 ∈ 𝐼 ↦ (𝑑‘𝑖)))
482	481, 309	eqbrtrrd 5122	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑖 ∈ 𝐼 ↦ (𝑑‘𝑖)) finSupp 0)
483	111	adantl 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ 𝐾) → (0(.g‘(mulGrp‘𝑅))𝑘) = (0g‘(mulGrp‘𝑅)))
484	482, 483, 476, 478, 305	fsuppssov1 9287	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) finSupp (0g‘(mulGrp‘𝑅)))
485		disjdif 4424	. . . . . . . . . 10 ⊢ (𝐽 ∩ (𝐼 ∖ 𝐽)) = ∅
486	485	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝐽 ∩ (𝐼 ∖ 𝐽)) = ∅)
487		undif 4434	. . . . . . . . . . . 12 ⊢ (𝐽 ⊆ 𝐼 ↔ (𝐽 ∪ (𝐼 ∖ 𝐽)) = 𝐼)
488	16, 487	sylib 218	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐽 ∪ (𝐼 ∖ 𝐽)) = 𝐼)
489	488	eqcomd 2742	. . . . . . . . . 10 ⊢ (𝜑 → 𝐼 = (𝐽 ∪ (𝐼 ∖ 𝐽)))
490	489	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝐼 = (𝐽 ∪ (𝐼 ∖ 𝐽)))
491	48, 110, 474, 292, 283, 480, 484, 486, 490	gsumsplit 19857	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖)))) = (((mulGrp‘𝑅) Σg ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ 𝐽))(.r‘𝑅)((mulGrp‘𝑅) Σg ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ (𝐼 ∖ 𝐽)))))
492	284	resmptd 5999	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ 𝐽) = (𝑖 ∈ 𝐽 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))))
493		fveq2 6834	. . . . . . . . . . . . . 14 ⊢ (𝑖 = 𝑗 → (𝑑‘𝑖) = (𝑑‘𝑗))
494		fveq2 6834	. . . . . . . . . . . . . 14 ⊢ (𝑖 = 𝑗 → (𝐴‘𝑖) = (𝐴‘𝑗))
495	493, 494	oveq12d 7376	. . . . . . . . . . . . 13 ⊢ (𝑖 = 𝑗 → ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖)) = ((𝑑‘𝑗)(.g‘(mulGrp‘𝑅))(𝐴‘𝑗)))
496	495	cbvmptv 5202	. . . . . . . . . . . 12 ⊢ (𝑖 ∈ 𝐽 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) = (𝑗 ∈ 𝐽 ↦ ((𝑑‘𝑗)(.g‘(mulGrp‘𝑅))(𝐴‘𝑗)))
497		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → 𝑗 ∈ 𝐽)
498	497	fvresd 6854	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑑 ↾ 𝐽)‘𝑗) = (𝑑‘𝑗))
499	497	fvresd 6854	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝐴 ↾ 𝐽)‘𝑗) = (𝐴‘𝑗))
500	498, 499	oveq12d 7376	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = ((𝑑‘𝑗)(.g‘(mulGrp‘𝑅))(𝐴‘𝑗)))
501	500	eqcomd 2742	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑑‘𝑗)(.g‘(mulGrp‘𝑅))(𝐴‘𝑗)) = (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))
502	501	mpteq2dva 5191	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑑‘𝑗)(.g‘(mulGrp‘𝑅))(𝐴‘𝑗))) = (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
503	496, 502	eqtrid 2783	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑖 ∈ 𝐽 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) = (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
504	492, 503	eqtrd 2771	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ 𝐽) = (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
505	504	oveq2d 7374	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((mulGrp‘𝑅) Σg ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ 𝐽)) = ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))
506	289	resmptd 5999	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ (𝐼 ∖ 𝐽)) = (𝑖 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))))
507		fveq2 6834	. . . . . . . . . . . . . 14 ⊢ (𝑖 = 𝑘 → (𝑑‘𝑖) = (𝑑‘𝑘))
508		fveq2 6834	. . . . . . . . . . . . . 14 ⊢ (𝑖 = 𝑘 → (𝐴‘𝑖) = (𝐴‘𝑘))
509	507, 508	oveq12d 7376	. . . . . . . . . . . . 13 ⊢ (𝑖 = 𝑘 → ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖)) = ((𝑑‘𝑘)(.g‘(mulGrp‘𝑅))(𝐴‘𝑘)))
510	509	cbvmptv 5202	. . . . . . . . . . . 12 ⊢ (𝑖 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑑‘𝑘)(.g‘(mulGrp‘𝑅))(𝐴‘𝑘)))
511		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → 𝑘 ∈ (𝐼 ∖ 𝐽))
512	511	fvresd 6854	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘) = (𝑑‘𝑘))
513	511	fvresd 6854	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘) = (𝐴‘𝑘))
514	512, 513	oveq12d 7376	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = ((𝑑‘𝑘)(.g‘(mulGrp‘𝑅))(𝐴‘𝑘)))
515	514	eqcomd 2742	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑑‘𝑘)(.g‘(mulGrp‘𝑅))(𝐴‘𝑘)) = (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))
516	515	mpteq2dva 5191	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑑‘𝑘)(.g‘(mulGrp‘𝑅))(𝐴‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
517	510, 516	eqtrid 2783	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑖 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
518	506, 517	eqtrd 2771	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ (𝐼 ∖ 𝐽)) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
519	518	oveq2d 7374	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((mulGrp‘𝑅) Σg ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ (𝐼 ∖ 𝐽))) = ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))
520	505, 519	oveq12d 7376	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((mulGrp‘𝑅) Σg ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ 𝐽))(.r‘𝑅)((mulGrp‘𝑅) Σg ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ (𝐼 ∖ 𝐽)))) = (((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))
521	491, 520	eqtr2d 2772	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = ((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖)))))
522	351, 521	oveq12d 7376	. . . . . 6 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)(((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) = ((𝐹‘𝑑)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))))))
523	473, 522	eqtrd 2771	. . . . 5 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = ((𝐹‘𝑑)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))))))
524	523	mpteq2dva 5191	. . . 4 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) = (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ ((𝐹‘𝑑)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖)))))))
525	524	oveq2d 7374	. . 3 ⊢ (𝜑 → (𝑅 Σg (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))) = (𝑅 Σg (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ ((𝐹‘𝑑)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))))))))
526	275, 472, 525	3eqtr2d 2777	. 2 ⊢ (𝜑 → (𝑅 Σg (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ↦ (((((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽)))‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))) = (𝑅 Σg (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ ((𝐹‘𝑑)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))))))))
527		eqid 2736	. . 3 ⊢ ((𝐼 ∖ 𝐽) eval 𝑅) = ((𝐼 ∖ 𝐽) eval 𝑅)
528	527, 3, 1, 137, 28, 47, 49, 136, 6, 7, 166, 457	evlvvval 42818	. 2 ⊢ (𝜑 → ((((𝐼 ∖ 𝐽) eval 𝑅)‘(((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽))))‘(𝐴 ↾ (𝐼 ∖ 𝐽))) = (𝑅 Σg (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ↦ (((((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽)))‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))))
529		eqid 2736	. . 3 ⊢ (𝐼 eval 𝑅) = (𝐼 eval 𝑅)
530	529, 14, 15, 282, 28, 47, 49, 136, 4, 7, 17, 35	evlvvval 42818	. 2 ⊢ (𝜑 → (((𝐼 eval 𝑅)‘𝐹)‘𝐴) = (𝑅 Σg (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ ((𝐹‘𝑑)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))))))))
531	526, 528, 530	3eqtr4d 2781	1 ⊢ (𝜑 → ((((𝐼 ∖ 𝐽) eval 𝑅)‘(((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽))))‘(𝐴 ↾ (𝐼 ∖ 𝐽))) = (((𝐼 eval 𝑅)‘𝐹)‘𝐴))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1541   ∈ wcel 2113  ∀wral 3051  {crab 3399  Vcvv 3440  ⦋csb 3849   ∖ cdif 3898   ∪ cun 3899   ∩ cin 3900   ⊆ wss 3901  ∅c0 4285  {csn 4580   class class class wbr 5098   ↦ cmpt 5179   × cxp 5622  ^◡ccnv 5623   ↾ cres 5626   “ cima 5627   ∘ ccom 5628  Fun wfun 6486   Fn wfn 6487  ⟶wf 6488  –1-1→wf1 6489  –1-1-onto→wf1o 6491  ‘cfv 6492  (class class class)co 7358   ∈ cmpo 7360   supp csupp 8102   ↑_m cmap 8763  Fincfn 8883   finSupp cfsupp 9264  0cc0 11026  ℕcn 12145  ℕ₀cn0 12401  ℤcz 12488  Basecbs 17136  ._rcmulr 17178  Scalarcsca 17180   ·_𝑠 cvsca 17181  0_gc0g 17359   Σ_g cgsu 17360  Mndcmnd 18659   MndHom cmhm 18706  Grpcgrp 18863  ._gcmg 18997   GrpHom cghm 19141  CMndccmn 19709  mulGrpcmgp 20075  1_rcur 20116  Ringcrg 20168  CRingccrg 20169   RingHom crh 20405  AssAlgcasa 21805  algSccascl 21807   mPoly cmpl 21862   eval cevl 22028   selectVars cslv 22071

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2184  ax-ext 2708  ax-rep 5224  ax-sep 5241  ax-nul 5251  ax-pow 5310  ax-pr 5377  ax-un 7680  ax-cnex 11082  ax-resscn 11083  ax-1cn 11084  ax-icn 11085  ax-addcl 11086  ax-addrcl 11087  ax-mulcl 11088  ax-mulrcl 11089  ax-mulcom 11090  ax-addass 11091  ax-mulass 11092  ax-distr 11093  ax-i2m1 11094  ax-1ne0 11095  ax-1rid 11096  ax-rnegex 11097  ax-rrecex 11098  ax-cnre 11099  ax-pre-lttri 11100  ax-pre-lttrn 11101  ax-pre-ltadd 11102  ax-pre-mulgt0 11103

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3350  df-reu 3351  df-rab 3400  df-v 3442  df-sbc 3741  df-csb 3850  df-dif 3904  df-un 3906  df-in 3908  df-ss 3918  df-pss 3921  df-nul 4286  df-if 4480  df-pw 4556  df-sn 4581  df-pr 4583  df-tp 4585  df-op 4587  df-uni 4864  df-int 4903  df-iun 4948  df-iin 4949  df-br 5099  df-opab 5161  df-mpt 5180  df-tr 5206  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-se 5578  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-isom 6501  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-of 7622  df-ofr 7623  df-om 7809  df-1st 7933  df-2nd 7934  df-supp 8103  df-frecs 8223  df-wrecs 8254  df-recs 8303  df-rdg 8341  df-1o 8397  df-2o 8398  df-er 8635  df-map 8765  df-pm 8766  df-ixp 8836  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fsupp 9265  df-sup 9345  df-oi 9415  df-card 9851  df-pnf 11168  df-mnf 11169  df-xr 11170  df-ltxr 11171  df-le 11172  df-sub 11366  df-neg 11367  df-nn 12146  df-2 12208  df-3 12209  df-4 12210  df-5 12211  df-6 12212  df-7 12213  df-8 12214  df-9 12215  df-n0 12402  df-z 12489  df-dec 12608  df-uz 12752  df-fz 13424  df-fzo 13571  df-seq 13925  df-hash 14254  df-struct 17074  df-sets 17091  df-slot 17109  df-ndx 17121  df-base 17137  df-ress 17158  df-plusg 17190  df-mulr 17191  df-sca 17193  df-vsca 17194  df-ip 17195  df-tset 17196  df-ple 17197  df-ds 17199  df-hom 17201  df-cco 17202  df-0g 17361  df-gsum 17362  df-prds 17367  df-pws 17369  df-mre 17505  df-mrc 17506  df-acs 17508  df-mgm 18565  df-sgrp 18644  df-mnd 18660  df-mhm 18708  df-submnd 18709  df-grp 18866  df-minusg 18867  df-sbg 18868  df-mulg 18998  df-subg 19053  df-ghm 19142  df-cntz 19246  df-cmn 19711  df-abl 19712  df-mgp 20076  df-rng 20088  df-ur 20117  df-srg 20122  df-ring 20170  df-cring 20171  df-rhm 20408  df-subrng 20479  df-subrg 20503  df-lmod 20813  df-lss 20883  df-lsp 20923  df-assa 21808  df-asp 21809  df-ascl 21810  df-psr 21865  df-mvr 21866  df-mpl 21867  df-evls 22029  df-evl 22030  df-selv 22075

This theorem is referenced by: (None)