Theorem evlselv 42582

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 2730	. . . . . . . . . . . . 13 ⊢ (Base‘𝑈) = (Base‘𝑈)
2		eqid 2730	. . . . . . . . . . . . 13 ⊢ (.r‘𝑈) = (.r‘𝑈)
3		evlselv.u	. . . . . . . . . . . . . . . 16 ⊢ 𝑈 = ((𝐼 ∖ 𝐽) mPoly 𝑅)
4		evlselv.i	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
5		difssd 4103	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐼 ∖ 𝐽) ⊆ 𝐼)
6	4, 5	ssexd 5282	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐼 ∖ 𝐽) ∈ V)
7		evlselv.r	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑅 ∈ CRing)
8	3, 6, 7	mplcrngd 42542	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑈 ∈ CRing)
9	8	crngringd 20162	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑈 ∈ Ring)
10	9	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑈 ∈ Ring)
11		evlselv.t	. . . . . . . . . . . . . . . 16 ⊢ 𝑇 = (𝐽 mPoly 𝑈)
12		eqid 2730	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝑇) = (Base‘𝑇)
13		eqid 2730	. . . . . . . . . . . . . . . 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 42578	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) ∈ (Base‘𝑇))
19	11, 1, 12, 13, 18	mplelf 21914	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹):{𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}⟶(Base‘𝑈))
20	19	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹):{𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}⟶(Base‘𝑈))
21	20	ffvelcdmda 7059	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒) ∈ (Base‘𝑈))
22		eqid 2730	. . . . . . . . . . . . . 14 ⊢ (mulGrp‘𝑈) = (mulGrp‘𝑈)
23		eqid 2730	. . . . . . . . . . . . . 14 ⊢ (.g‘(mulGrp‘𝑈)) = (.g‘(mulGrp‘𝑈))
24	4, 16	ssexd 5282	. . . . . . . . . . . . . . 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 6876	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (Base‘𝑈) ∈ V)
28		evlselv.k	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐾 = (Base‘𝑅)
29	28	fvexi 6875	. . . . . . . . . . . . . . . . . 18 ⊢ 𝐾 ∈ V
30	29	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐾 ∈ V)
31		evlselv.l	. . . . . . . . . . . . . . . . . 18 ⊢ 𝐿 = (algSc‘𝑈)
32	7	crngringd 20162	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝑅 ∈ Ring)
33	3, 1, 28, 31, 6, 32	mplasclf 21979	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐿:𝐾⟶(Base‘𝑈))
34	27, 30, 33	elmapdd 8817	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐿 ∈ ((Base‘𝑈) ↑m 𝐾))
35		evlselv.a	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐴 ∈ (𝐾 ↑m 𝐼))
36	35, 16	elmapssresd 42236	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐴 ↾ 𝐽) ∈ (𝐾 ↑m 𝐽))
37	34, 36	mapcod 42238	. . . . . . . . . . . . . . 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 42556	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))) ∈ (Base‘𝑈))
41	1, 2, 10, 21, 40	ringcld 20176	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))) ∈ (Base‘𝑈))
42		eqidd 2731	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))) = (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))
43		eqidd 2731	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) = (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)))
44		fveq1 6860	. . . . . . . . . . . 12 ⊢ (𝑢 = (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))) → (𝑢‘𝑐) = ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))‘𝑐))
45	41, 42, 43, 44	fmptco 7104	. . . . . . . . . . 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 2730	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
48	47, 28	mgpbas 20061	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝐾 = (Base‘(mulGrp‘𝑅))
49		eqid 2730	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (.g‘(mulGrp‘𝑅)) = (.g‘(mulGrp‘𝑅))
50	47	ringmgp 20155	. . . . . . . . . . . . . . . . . . . . . . 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 21834	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} → 𝑒:𝐽⟶ℕ0)
54	53	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑒:𝐽⟶ℕ0)
55	54	ffvelcdmda 7059	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → (𝑒‘𝑗) ∈ ℕ0)
56		elmapi 8825	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝐴 ∈ (𝐾 ↑m 𝐼) → 𝐴:𝐼⟶𝐾)
57	35, 56	syl 17	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝐴:𝐼⟶𝐾)
58	57, 16	fssresd 6730	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (𝐴 ↾ 𝐽):𝐽⟶𝐾)
59	58	ad2antrr 726	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝐴 ↾ 𝐽):𝐽⟶𝐾)
60	59	ffvelcdmda 7059	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝐴 ↾ 𝐽)‘𝑗) ∈ 𝐾)
61	48, 49, 52, 55, 60	mulgnn0cld 19034	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) ∈ 𝐾)
62	46, 61	cofmpt 7107	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝐿 ∘ (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = (𝑗 ∈ 𝐽 ↦ (𝐿‘((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))
63	3	mplassa 21938	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (((𝐼 ∖ 𝐽) ∈ V ∧ 𝑅 ∈ CRing) → 𝑈 ∈ AssAlg)
64	6, 7, 63	syl2anc 584	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → 𝑈 ∈ AssAlg)
65		eqid 2730	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (Scalar‘𝑈) = (Scalar‘𝑈)
66	31, 65	asclrhm 21806	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑈 ∈ AssAlg → 𝐿 ∈ ((Scalar‘𝑈) RingHom 𝑈))
67	64, 66	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → 𝐿 ∈ ((Scalar‘𝑈) RingHom 𝑈))
68	3, 6, 7	mplsca 21929	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 𝑅 = (Scalar‘𝑈))
69	68	eqcomd 2736	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (Scalar‘𝑈) = 𝑅)
70	69	oveq1d 7405	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → ((Scalar‘𝑈) RingHom 𝑈) = (𝑅 RingHom 𝑈))
71	67, 70	eleqtrd 2831	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → 𝐿 ∈ (𝑅 RingHom 𝑈))
72	47, 22	rhmmhm 20395	. . . . . . . . . . . . . . . . . . . . . . . 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 19054	. . . . . . . . . . . . . . . . . . . . . 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 6964	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗) = (𝐿‘((𝐴 ↾ 𝐽)‘𝑗)))
80	79	oveq2d 7406	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)) = ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))(𝐿‘((𝐴 ↾ 𝐽)‘𝑗))))
81	76, 80	eqtr4d 2768	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → (𝐿‘((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) = ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))
82	81	mpteq2dva 5203	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ (𝐿‘((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))
83	62, 82	eqtrd 2765	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝐿 ∘ (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))
84	83	oveq2d 7406	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘𝑈) Σg (𝐿 ∘ (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) = ((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))
85		eqid 2730	. . . . . . . . . . . . . . . . . 18 ⊢ (Base‘(mulGrp‘(Scalar‘𝑈))) = (Base‘(mulGrp‘(Scalar‘𝑈)))
86		eqid 2730	. . . . . . . . . . . . . . . . . 18 ⊢ (0g‘(mulGrp‘(Scalar‘𝑈))) = (0g‘(mulGrp‘(Scalar‘𝑈)))
87	68, 7	eqeltrrd 2830	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (Scalar‘𝑈) ∈ CRing)
88		eqid 2730	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (mulGrp‘(Scalar‘𝑈)) = (mulGrp‘(Scalar‘𝑈))
89	88	crngmgp 20157	. . . . . . . . . . . . . . . . . . . 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 20155	. . . . . . . . . . . . . . . . . . . 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 20395	. . . . . . . . . . . . . . . . . . . 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 6865	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (Base‘𝑅) = (Base‘(Scalar‘𝑈)))
99	28, 98	eqtrid 2777	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝐾 = (Base‘(Scalar‘𝑈)))
100	99	ad3antrrr 730	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → 𝐾 = (Base‘(Scalar‘𝑈)))
101	61, 100	eleqtrd 2831	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) ∈ (Base‘(Scalar‘𝑈)))
102		eqid 2730	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (Base‘(Scalar‘𝑈)) = (Base‘(Scalar‘𝑈))
103	88, 102	mgpbas 20061	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Base‘(Scalar‘𝑈)) = (Base‘(mulGrp‘(Scalar‘𝑈)))
104	101, 103	eleqtrdi 2839	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) ∈ (Base‘(mulGrp‘(Scalar‘𝑈))))
105	104	fmpttd 7090	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))):𝐽⟶(Base‘(mulGrp‘(Scalar‘𝑈))))
106	54	feqmptd 6932	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑒 = (𝑗 ∈ 𝐽 ↦ (𝑒‘𝑗)))
107	13	psrbagfsupp 21835	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} → 𝑒 finSupp 0)
108	107	adantl 481	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝑒 finSupp 0)
109	106, 108	eqbrtrrd 5134	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ (𝑒‘𝑗)) finSupp 0)
110		eqid 2730	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (0g‘(mulGrp‘𝑅)) = (0g‘(mulGrp‘𝑅))
111	48, 110, 49	mulg0 19013	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 ∈ 𝐾 → (0(.g‘(mulGrp‘𝑅))𝑘) = (0g‘(mulGrp‘𝑅)))
112	111	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ 𝐾) → (0(.g‘(mulGrp‘𝑅))𝑘) = (0g‘(mulGrp‘𝑅)))
113		fvexd 6876	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (0g‘(mulGrp‘𝑅)) ∈ V)
114	109, 112, 55, 60, 113	fsuppssov1 9342	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) finSupp (0g‘(mulGrp‘𝑅)))
115		eqid 2730	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (1r‘𝑅) = (1r‘𝑅)
116	47, 115	ringidval 20099	. . . . . . . . . . . . . . . . . . . 20 ⊢ (1r‘𝑅) = (0g‘(mulGrp‘𝑅))
117	114, 116	breqtrrdi 5152	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) finSupp (1r‘𝑅))
118	68	fveq2d 6865	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (1r‘𝑅) = (1r‘(Scalar‘𝑈)))
119		eqid 2730	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (1r‘(Scalar‘𝑈)) = (1r‘(Scalar‘𝑈))
120	88, 119	ringidval 20099	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (1r‘(Scalar‘𝑈)) = (0g‘(mulGrp‘(Scalar‘𝑈)))
121	118, 120	eqtrdi 2781	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (1r‘𝑅) = (0g‘(mulGrp‘(Scalar‘𝑈))))
122	121	ad2antrr 726	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (1r‘𝑅) = (0g‘(mulGrp‘(Scalar‘𝑈))))
123	117, 122	breqtrd 5136	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) finSupp (0g‘(mulGrp‘(Scalar‘𝑈))))
124	85, 86, 91, 94, 25, 97, 105, 123	gsummhm 19875	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘𝑈) Σg (𝐿 ∘ (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) = (𝐿‘((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
125	84, 124	eqtr3d 2767	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))) = (𝐿‘((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
126	125	oveq2d 7406	. . . . . . . . . . . . . . 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 7090	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))):𝐽⟶(Base‘(Scalar‘𝑈)))
129	123, 120	breqtrrdi 5152	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) finSupp (1r‘(Scalar‘𝑈)))
130	103, 120, 91, 25, 128, 129	gsumcl 19852	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) ∈ (Base‘(Scalar‘𝑈)))
131		eqid 2730	. . . . . . . . . . . . . . . . 17 ⊢ ( ·𝑠 ‘𝑈) = ( ·𝑠 ‘𝑈)
132	31, 65, 102, 1, 2, 131	asclmul2 21803	. . . . . . . . . . . . . . . 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 2765	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))) = (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))( ·𝑠 ‘𝑈)((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)))
135	134	fveq1d 6863	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))‘𝑐) = ((((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))( ·𝑠 ‘𝑈)((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒))‘𝑐))
136		eqid 2730	. . . . . . . . . . . . . 14 ⊢ (.r‘𝑅) = (.r‘𝑅)
137		eqid 2730	. . . . . . . . . . . . . 14 ⊢ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} = {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}
138	99	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → 𝐾 = (Base‘(Scalar‘𝑈)))
139	130, 138	eleqtrrd 2832	. . . . . . . . . . . . . 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 21932	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))( ·𝑠 ‘𝑈)((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒))‘𝑐) = (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)))
142	135, 141	eqtrd 2765	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))‘𝑐) = (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)))
143	142	mpteq2dva 5203	. . . . . . . . . . 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 2765	. . . . . . . . . 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 7406	. . . . . . . . 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 6865	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (mulGrp‘(Scalar‘𝑈)) = (mulGrp‘𝑅))
147	146	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (mulGrp‘(Scalar‘𝑈)) = (mulGrp‘𝑅))
148	147	oveq1d 7405	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))
149	148	oveq1d 7405	. . . . . . . . . . . 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 2830	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) ∈ 𝐾)
152	19	ffvelcdmda 7059	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒) ∈ (Base‘𝑈))
153	3, 28, 1, 137, 152	mplelf 21914	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒):{𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}⟶𝐾)
154	153	ffvelcdmda 7059	. . . . . . . . . . . . . 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 20171	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)) = ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
157	149, 156	eqtrd 2765	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → (((mulGrp‘(Scalar‘𝑈)) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)(((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)) = ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
158	157	mpteq2dva 5203	. . . . . . . . . 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 7406	. . . . . . . . 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 2765	. . . . . . . 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 7405	. . . . . . 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 2730	. . . . . . . . . 10 ⊢ (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) = (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐))
163		fveq1 6860	. . . . . . . . . 10 ⊢ (𝑢 = (𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))))) → (𝑢‘𝑐) = ((𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))‘𝑐))
164		eqid 2730	. . . . . . . . . . . . 13 ⊢ (𝐽 eval 𝑈) = (𝐽 eval 𝑈)
165	164, 11, 12, 13, 1, 22, 23, 2, 24, 8, 18, 37	evlvvval 42568	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽))) = (𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗))))))))
166	164, 11, 12, 1, 24, 8, 18, 37	evlcl 42567	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽))) ∈ (Base‘𝑈))
167	165, 166	eqeltrrd 2830	. . . . . . . . . . 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 6876	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))‘𝑐) ∈ V)
170	162, 163, 168, 169	fvmptd3 6994	. . . . . . . . 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 2730	. . . . . . . . . 10 ⊢ (0g‘𝑈) = (0g‘𝑈)
172	9	ringcmnd 20200	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑈 ∈ CMnd)
173	172	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑈 ∈ CMnd)
174	7	crnggrpd 20163	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ∈ Grp)
175	174	grpmndd 18885	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ Mnd)
176	175	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑅 ∈ Mnd)
177		ovex 7423	. . . . . . . . . . . 12 ⊢ (ℕ0 ↑m 𝐽) ∈ V
178	177	rabex 5297	. . . . . . . . . . 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 42551	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∈ (𝑈 GrpHom 𝑅))
184		ghmmhm 19165	. . . . . . . . . . 11 ⊢ ((𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∈ (𝑈 GrpHom 𝑅) → (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∈ (𝑈 MndHom 𝑅))
185	183, 184	syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∈ (𝑈 MndHom 𝑅))
186	41	fmpttd 7090	. . . . . . . . . 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 42569	. . . . . . . . . 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 19875	. . . . . . . . 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 6863	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽)))‘𝑐) = ((𝑈 Σg (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))‘𝑐))
195	170, 192, 194	3eqtr4rd 2776	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽)))‘𝑐) = (𝑅 Σg ((𝑢 ∈ (Base‘𝑈) ↦ (𝑢‘𝑐)) ∘ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)(.r‘𝑈)((mulGrp‘𝑈) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑈))((𝐿 ∘ (𝐴 ↾ 𝐽))‘𝑗)))))))))
196	195	oveq1d 7405	. . . . . . 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 2730	. . . . . . . 8 ⊢ (0g‘𝑅) = (0g‘𝑅)
198	32	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑅 ∈ Ring)
199	47	crngmgp 20157	. . . . . . . . . . 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 21834	. . . . . . . . . . . . 13 ⊢ (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} → 𝑐:(𝐼 ∖ 𝐽)⟶ℕ0)
204	203	adantl 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑐:(𝐼 ∖ 𝐽)⟶ℕ0)
205	204	ffvelcdmda 7059	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (𝑐‘𝑘) ∈ ℕ0)
206	57, 5	fssresd 6730	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴 ↾ (𝐼 ∖ 𝐽)):(𝐼 ∖ 𝐽)⟶𝐾)
207	206	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝐴 ↾ (𝐼 ∖ 𝐽)):(𝐼 ∖ 𝐽)⟶𝐾)
208	207	ffvelcdmda 7059	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘) ∈ 𝐾)
209	48, 49, 202, 205, 208	mulgnn0cld 19034	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) ∈ 𝐾)
210	209	fmpttd 7090	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))):(𝐼 ∖ 𝐽)⟶𝐾)
211	204	feqmptd 6932	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑐 = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (𝑐‘𝑘)))
212	137	psrbagfsupp 21835	. . . . . . . . . . . 12 ⊢ (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} → 𝑐 finSupp 0)
213	212	adantl 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → 𝑐 finSupp 0)
214	211, 213	eqbrtrrd 5134	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (𝑐‘𝑘)) finSupp 0)
215	48, 110, 49	mulg0 19013	. . . . . . . . . . 11 ⊢ (𝑣 ∈ 𝐾 → (0(.g‘(mulGrp‘𝑅))𝑣) = (0g‘(mulGrp‘𝑅)))
216	215	adantl 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑣 ∈ 𝐾) → (0(.g‘(mulGrp‘𝑅))𝑣) = (0g‘(mulGrp‘𝑅)))
217		fvexd 6876	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (𝑐‘𝑘) ∈ V)
218		fvexd 6876	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (0g‘(mulGrp‘𝑅)) ∈ V)
219	214, 216, 217, 208, 218	fsuppssov1 9342	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) finSupp (0g‘(mulGrp‘𝑅)))
220	48, 110, 201, 180, 210, 219	gsumcl 19852	. . . . . . . 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 20176	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) ∈ 𝐾)
223	178	mptex 7200	. . . . . . . . . . 11 ⊢ (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)) ∈ V
224	223	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)) ∈ V)
225		fvexd 6876	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (0g‘𝑅) ∈ V)
226		funmpt 6557	. . . . . . . . . . 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 21911	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) finSupp (0g‘𝑈))
229	228	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) finSupp (0g‘𝑈))
230		ssidd 3973	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) supp (0g‘𝑈)) ⊆ ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) supp (0g‘𝑈)))
231		fvexd 6876	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (0g‘𝑈) ∈ V)
232	20, 230, 179, 231	suppssr 8177	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ ({𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ∖ ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) supp (0g‘𝑈)))) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒) = (0g‘𝑈))
233	232	fveq1d 6863	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ ({𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ∖ ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) supp (0g‘𝑈)))) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐) = ((0g‘𝑈)‘𝑐))
234	3, 137, 197, 171, 6, 174	mpl0 21922	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (0g‘𝑈) = ({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {(0g‘𝑅)}))
235	234	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → (0g‘𝑈) = ({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {(0g‘𝑅)}))
236	235	fveq1d 6863	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((0g‘𝑈)‘𝑐) = (({𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} × {(0g‘𝑅)})‘𝑐))
237		fvex 6874	. . . . . . . . . . . . . . . 16 ⊢ (0g‘𝑅) ∈ V
238	237	fvconst2 7181	. . . . . . . . . . . . . . 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 2765	. . . . . . . . . . . . 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 2765	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑒 ∈ ({𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ∖ ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) supp (0g‘𝑈)))) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐) = (0g‘𝑅))
243	242, 179	suppss2 8182	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) → ((𝑒 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)) supp (0g‘𝑅)) ⊆ ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) supp (0g‘𝑈)))
244	224, 225, 227, 229, 243	fsuppsssuppgd 9340	. . . . . . . . 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 20211	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}) ∧ 𝑣 ∈ 𝐾) → ((0g‘𝑅)(.r‘𝑅)𝑣) = (0g‘𝑅))
248	244, 247, 155, 151, 225	fsuppssov1 9342	. . . . . . . 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 20232	. . . . . . 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 2775	. . . . . 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 6861	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑒 → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎) = ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒))
252	251	adantl 481	. . . . . . . . . . . . 13 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎) = ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒))
253		simpl 482	. . . . . . . . . . . . 13 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → 𝑏 = 𝑐)
254	252, 253	fveq12d 6868	. . . . . . . . . . . 12 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏) = (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐))
255		fveq1 6860	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 = 𝑒 → (𝑎‘𝑗) = (𝑒‘𝑗))
256	255	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → (𝑎‘𝑗) = (𝑒‘𝑗))
257	256	oveq1d 7405	. . . . . . . . . . . . . 14 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))
258	257	mpteq2dv 5204	. . . . . . . . . . . . 13 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) = (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
259	258	oveq2d 7406	. . . . . . . . . . . 12 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))
260	254, 259	oveq12d 7408	. . . . . . . . . . 11 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) = ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
261		fveq1 6860	. . . . . . . . . . . . . . 15 ⊢ (𝑏 = 𝑐 → (𝑏‘𝑘) = (𝑐‘𝑘))
262	261	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → (𝑏‘𝑘) = (𝑐‘𝑘))
263	262	oveq1d 7405	. . . . . . . . . . . . 13 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))
264	263	mpteq2dv 5204	. . . . . . . . . . . 12 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
265	264	oveq2d 7406	. . . . . . . . . . 11 ⊢ ((𝑏 = 𝑐 ∧ 𝑎 = 𝑒) → ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))) = ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))
266	260, 265	oveq12d 7408	. . . . . . . . . 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 2730	. . . . . . . . . 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 7423	. . . . . . . . . 10 ⊢ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑒)‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑒‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) ∈ V
269	266, 267, 268	ovmpoa 7547	. . . . . . . . 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 5203	. . . . . . 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 7406	. . . . . 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 2768	. . . . 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 5203	. . . 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 7406	. . 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 20200	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ CMnd)
277		ovex 7423	. . . . . . 7 ⊢ (ℕ0 ↑m 𝐼) ∈ V
278	277	rabex 5297	. . . . . 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 2730	. . . . . . . . . . . 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 42541	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑑 ↾ 𝐽) ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})
287	281, 286	ffvelcdmd 7060	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽)) ∈ (Base‘𝑈))
288	3, 28, 1, 137, 287	mplelf 21914	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽)):{𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}⟶𝐾)
289		difssd 4103	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝐼 ∖ 𝐽) ⊆ 𝐼)
290	282, 137, 283, 289, 285	psrbagres 42541	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑑 ↾ (𝐼 ∖ 𝐽)) ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin})
291	288, 290	ffvelcdmd 7060	. . . . . . . 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 21834	. . . . . . . . . . . . . 14 ⊢ (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} → 𝑑:𝐼⟶ℕ0)
296	295	adantl 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝑑:𝐼⟶ℕ0)
297	296, 284	fssresd 6730	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑑 ↾ 𝐽):𝐽⟶ℕ0)
298	297	ffvelcdmda 7059	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑑 ↾ 𝐽)‘𝑗) ∈ ℕ0)
299	58	ffvelcdmda 7059	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝐽) → ((𝐴 ↾ 𝐽)‘𝑗) ∈ 𝐾)
300	299	adantlr 715	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝐴 ↾ 𝐽)‘𝑗) ∈ 𝐾)
301	48, 49, 294, 298, 300	mulgnn0cld 19034	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) ∈ 𝐾)
302	301	fmpttd 7090	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))):𝐽⟶𝐾)
303	24	mptexd 7201	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) ∈ V)
304	303	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) ∈ V)
305		fvexd 6876	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (0g‘(mulGrp‘𝑅)) ∈ V)
306		funmpt 6557	. . . . . . . . . . 11 ⊢ Fun (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))
307	306	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → Fun (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
308	282	psrbagfsupp 21835	. . . . . . . . . . . 12 ⊢ (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} → 𝑑 finSupp 0)
309	308	adantl 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝑑 finSupp 0)
310		0zd 12548	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 0 ∈ ℤ)
311	309, 310	fsuppres 9351	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑑 ↾ 𝐽) finSupp 0)
312		ssidd 3973	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑑 ↾ 𝐽) supp 0) ⊆ ((𝑑 ↾ 𝐽) supp 0))
313	297, 312, 293, 310	suppssr 8177	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ (𝐽 ∖ ((𝑑 ↾ 𝐽) supp 0))) → ((𝑑 ↾ 𝐽)‘𝑗) = 0)
314	313	oveq1d 7405	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ (𝐽 ∖ ((𝑑 ↾ 𝐽) supp 0))) → (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = (0(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))
315		eldifi 4097	. . . . . . . . . . . . 13 ⊢ (𝑗 ∈ (𝐽 ∖ ((𝑑 ↾ 𝐽) supp 0)) → 𝑗 ∈ 𝐽)
316	48, 110, 49	mulg0 19013	. . . . . . . . . . . . . 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 2765	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ (𝐽 ∖ ((𝑑 ↾ 𝐽) supp 0))) → (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = (0g‘(mulGrp‘𝑅)))
320	319, 293	suppss2 8182	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) supp (0g‘(mulGrp‘𝑅))) ⊆ ((𝑑 ↾ 𝐽) supp 0))
321	304, 305, 307, 311, 320	fsuppsssuppgd 9340	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) finSupp (0g‘(mulGrp‘𝑅)))
322	48, 110, 292, 293, 302, 321	gsumcl 19852	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) ∈ 𝐾)
323	28, 136, 280, 291, 322	ringcld 20176	. . . . . . 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 6730	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑑 ↾ (𝐼 ∖ 𝐽)):(𝐼 ∖ 𝐽)⟶ℕ0)
327	326	ffvelcdmda 7059	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘) ∈ ℕ0)
328	206	ffvelcdmda 7059	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘) ∈ 𝐾)
329	328	adantlr 715	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘) ∈ 𝐾)
330	48, 49, 325, 327, 329	mulgnn0cld 19034	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) ∈ 𝐾)
331	330	fmpttd 7090	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))):(𝐼 ∖ 𝐽)⟶𝐾)
332	324	mptexd 7201	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) ∈ V)
333		funmpt 6557	. . . . . . . . . 10 ⊢ Fun (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))
334	333	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → Fun (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
335	309, 310	fsuppres 9351	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑑 ↾ (𝐼 ∖ 𝐽)) finSupp 0)
336		ssidd 3973	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0) ⊆ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0))
337	326, 336, 324, 310	suppssr 8177	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ ((𝐼 ∖ 𝐽) ∖ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0))) → ((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘) = 0)
338	337	oveq1d 7405	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ ((𝐼 ∖ 𝐽) ∖ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0))) → (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = (0(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))
339		eldifi 4097	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ((𝐼 ∖ 𝐽) ∖ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0)) → 𝑘 ∈ (𝐼 ∖ 𝐽))
340	339, 329	sylan2 593	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ ((𝐼 ∖ 𝐽) ∖ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0))) → ((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘) ∈ 𝐾)
341	48, 110, 49	mulg0 19013	. . . . . . . . . . . 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 2765	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ ((𝐼 ∖ 𝐽) ∖ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0))) → (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = (0g‘(mulGrp‘𝑅)))
344	343, 324	suppss2 8182	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) supp (0g‘(mulGrp‘𝑅))) ⊆ ((𝑑 ↾ (𝐼 ∖ 𝐽)) supp 0))
345	332, 305, 334, 335, 344	fsuppsssuppgd 9340	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) finSupp (0g‘(mulGrp‘𝑅)))
346	48, 110, 292, 324, 331, 345	gsumcl 19852	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))) ∈ 𝐾)
347	28, 136, 280, 323, 346	ringcld 20176	. . . . . 6 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) ∈ 𝐾)
348	347	fmpttd 7090	. . . . 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 42580	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽))) = (𝐹‘𝑑))
352	351	mpteq2dva 5203	. . . . . . . 8 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))) = (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝐹‘𝑑)))
353		eqid 2730	. . . . . . . . . . 11 ⊢ (Base‘𝑅) = (Base‘𝑅)
354	14, 353, 15, 282, 17	mplelf 21914	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹:{ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}⟶(Base‘𝑅))
355	354	feqmptd 6932	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 = (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝐹‘𝑑)))
356	14, 15, 197, 17	mplelsfi 21911	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 finSupp (0g‘𝑅))
357	355, 356	eqbrtrrd 5134	. . . . . . . 8 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (𝐹‘𝑑)) finSupp (0g‘𝑅))
358	352, 357	eqbrtrd 5132	. . . . . . 7 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))) finSupp (0g‘𝑅))
359	32	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐾) → 𝑅 ∈ Ring)
360		simpr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐾) → 𝑣 ∈ 𝐾)
361	28, 136, 197, 359, 360	ringlzd 20211	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝐾) → ((0g‘𝑅)(.r‘𝑅)𝑣) = (0g‘𝑅))
362		fvexd 6876	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽))) ∈ V)
363		fvexd 6876	. . . . . . 7 ⊢ (𝜑 → (0g‘𝑅) ∈ V)
364	358, 361, 362, 322, 363	fsuppssov1 9342	. . . . . 6 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))) finSupp (0g‘𝑅))
365		ovexd 7425	. . . . . 6 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) ∈ V)
366	364, 361, 365, 346, 363	fsuppssov1 9342	. . . . 5 ⊢ (𝜑 → (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) finSupp (0g‘𝑅))
367		eqid 2730	. . . . . 6 ⊢ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎)) = (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎))
368	282, 13, 137, 367, 4, 16	evlselvlem 42581	. . . . 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 19853	. . . 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 21834	. . . . . . . . . 10 ⊢ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} → 𝑏:(𝐼 ∖ 𝐽)⟶ℕ0)
371	370	ad2antrl 728	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑏:(𝐼 ∖ 𝐽)⟶ℕ0)
372	13	psrbagf 21834	. . . . . . . . . 10 ⊢ (𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} → 𝑎:𝐽⟶ℕ0)
373	372	ad2antll 729	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑎:𝐽⟶ℕ0)
374		disjdifr 4439	. . . . . . . . . 10 ⊢ ((𝐼 ∖ 𝐽) ∩ 𝐽) = ∅
375	374	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝐼 ∖ 𝐽) ∩ 𝐽) = ∅)
376	371, 373, 375	fun2d 6727	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝑏 ∪ 𝑎):((𝐼 ∖ 𝐽) ∪ 𝐽)⟶ℕ0)
377		undifr 4449	. . . . . . . . . . 11 ⊢ (𝐽 ⊆ 𝐼 ↔ ((𝐼 ∖ 𝐽) ∪ 𝐽) = 𝐼)
378	16, 377	sylib 218	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) ∪ 𝐽) = 𝐼)
379	378	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝐼 ∖ 𝐽) ∪ 𝐽) = 𝐼)
380	379	feq2d 6675	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝑏 ∪ 𝑎):((𝐼 ∖ 𝐽) ∪ 𝐽)⟶ℕ0 ↔ (𝑏 ∪ 𝑎):𝐼⟶ℕ0))
381	376, 380	mpbid 232	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝑏 ∪ 𝑎):𝐼⟶ℕ0)
382		vex 3454	. . . . . . . . . . 11 ⊢ 𝑏 ∈ V
383		vex 3454	. . . . . . . . . . 11 ⊢ 𝑎 ∈ V
384	382, 383	unex 7723	. . . . . . . . . 10 ⊢ (𝑏 ∪ 𝑎) ∈ V
385	384	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝑏 ∪ 𝑎) ∈ V)
386		0zd 12548	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 0 ∈ ℤ)
387	381	ffund 6695	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → Fun (𝑏 ∪ 𝑎))
388	137	psrbagfsupp 21835	. . . . . . . . . . 11 ⊢ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} → 𝑏 finSupp 0)
389	388	ad2antrl 728	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑏 finSupp 0)
390	13	psrbagfsupp 21835	. . . . . . . . . . 11 ⊢ (𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} → 𝑎 finSupp 0)
391	390	ad2antll 729	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑎 finSupp 0)
392	389, 391	fsuppun 9345	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝑏 ∪ 𝑎) supp 0) ∈ Fin)
393	385, 386, 387, 392	isfsuppd 9324	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝑏 ∪ 𝑎) finSupp 0)
394		fcdmnn0fsuppg 12509	. . . . . . . . 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 21833	. . . . . . . 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 2731	. . . . . 6 ⊢ (𝜑 → (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎)) = (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}, 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} ↦ (𝑏 ∪ 𝑎)))
402		eqidd 2731	. . . . . 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 5947	. . . . . . . . . . . 12 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (𝑑 ↾ 𝐽) = ((𝑏 ∪ 𝑎) ↾ 𝐽))
404	403	fveq2d 6865	. . . . . . . . . . 11 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽)) = ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽)))
405		reseq1 5947	. . . . . . . . . . 11 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (𝑑 ↾ (𝐼 ∖ 𝐽)) = ((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽)))
406	404, 405	fveq12d 6868	. . . . . . . . . 10 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽))) = (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽))‘((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))))
407	403	fveq1d 6863	. . . . . . . . . . . . 13 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → ((𝑑 ↾ 𝐽)‘𝑗) = (((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗))
408	407	oveq1d 7405	. . . . . . . . . . . 12 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))
409	408	mpteq2dv 5204	. . . . . . . . . . 11 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) = (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
410	409	oveq2d 7406	. . . . . . . . . 10 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))
411	406, 410	oveq12d 7408	. . . . . . . . 9 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) = ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽))‘((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
412	405	fveq1d 6863	. . . . . . . . . . . 12 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → ((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘) = (((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘))
413	412	oveq1d 7405	. . . . . . . . . . 11 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))
414	413	mpteq2dv 5204	. . . . . . . . . 10 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
415	414	oveq2d 7406	. . . . . . . . 9 ⊢ (𝑑 = (𝑏 ∪ 𝑎) → ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))) = ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))
416	411, 415	oveq12d 7408	. . . . . . . 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 3900	. . . . . . 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 6692	. . . . . . . . . . . . 13 ⊢ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} → 𝑏 Fn (𝐼 ∖ 𝐽))
419	418	ad2antrl 728	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑏 Fn (𝐼 ∖ 𝐽))
420	373	ffnd 6692	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → 𝑎 Fn 𝐽)
421		fnunres2 6634	. . . . . . . . . . . 12 ⊢ ((𝑏 Fn (𝐼 ∖ 𝐽) ∧ 𝑎 Fn 𝐽 ∧ ((𝐼 ∖ 𝐽) ∩ 𝐽) = ∅) → ((𝑏 ∪ 𝑎) ↾ 𝐽) = 𝑎)
422	419, 420, 375, 421	syl3anc 1373	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝑏 ∪ 𝑎) ↾ 𝐽) = 𝑎)
423	422	fveq2d 6865	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽)) = ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎))
424		fnunres1 6633	. . . . . . . . . . 11 ⊢ ((𝑏 Fn (𝐼 ∖ 𝐽) ∧ 𝑎 Fn 𝐽 ∧ ((𝐼 ∖ 𝐽) ∩ 𝐽) = ∅) → ((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽)) = 𝑏)
425	419, 420, 375, 424	syl3anc 1373	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽)) = 𝑏)
426	423, 425	fveq12d 6868	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽))‘((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))) = (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏))
427	422	fveq1d 6863	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗) = (𝑎‘𝑗))
428	427	oveq1d 7405	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))
429	428	mpteq2dv 5204	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))) = (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
430	429	oveq2d 7406	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) = ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))
431	426, 430	oveq12d 7408	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘((𝑏 ∪ 𝑎) ↾ 𝐽))‘((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((((𝑏 ∪ 𝑎) ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))) = ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))))
432	425	fveq1d 6863	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘) = (𝑏‘𝑘))
433	432	oveq1d 7405	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))
434	433	mpteq2dv 5204	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
435	434	oveq2d 7406	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((((𝑏 ∪ 𝑎) ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))) = ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))
436	431, 435	oveq12d 7408	. . . . . . 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 2777	. . . . . 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 42229	. . . . 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 7406	. . . 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 7423	. . . . . . 7 ⊢ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∈ V
441	440	rabex 5297	. . . . . 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 7059	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎) ∈ (Base‘𝑈))
446	3, 28, 1, 137, 445	mplelf 21914	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin}) → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎):{𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}⟶𝐾)
447	446	ffvelcdmda 7059	. . . . . . . . . . 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 42556	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))) ∈ 𝐾)
455	28, 136, 444, 449, 454	ringcld 20176	. . . . . . . 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 42236	. . . . . . . . . 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 42556	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))) ∈ 𝐾)
461	28, 136, 444, 455, 460	ringcld 20176	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ∧ 𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin})) → (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) ∈ 𝐾)
462	461	ralrimivva 3181	. . . . . 6 ⊢ (𝜑 → ∀𝑏 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin}∀𝑎 ∈ {𝑔 ∈ (ℕ0 ↑m 𝐽) ∣ (◡𝑔 “ ℕ) ∈ Fin} (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘𝑎)‘𝑏)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ ((𝑎‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑏‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) ∈ 𝐾)
463	267	fmpo 8050	. . . . . 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 6802	. . . . . . . 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 7200	. . . . . . . 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 9360	. . . . . 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 5134	. . . . 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 19913	. . . 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 2769	. . 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 20173	. . . . . 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 20060	. . . . . . . . 9 ⊢ (.r‘𝑅) = (+g‘(mulGrp‘𝑅))
475	51	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑖 ∈ 𝐼) → (mulGrp‘𝑅) ∈ Mnd)
476	296	ffvelcdmda 7059	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑖 ∈ 𝐼) → (𝑑‘𝑖) ∈ ℕ0)
477	57	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝐴:𝐼⟶𝐾)
478	477	ffvelcdmda 7059	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑖 ∈ 𝐼) → (𝐴‘𝑖) ∈ 𝐾)
479	48, 49, 475, 476, 478	mulgnn0cld 19034	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑖 ∈ 𝐼) → ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖)) ∈ 𝐾)
480	479	fmpttd 7090	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))):𝐼⟶𝐾)
481	296	feqmptd 6932	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝑑 = (𝑖 ∈ 𝐼 ↦ (𝑑‘𝑖)))
482	481, 309	eqbrtrrd 5134	. . . . . . . . . 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 9342	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) finSupp (0g‘(mulGrp‘𝑅)))
485		disjdif 4438	. . . . . . . . . 10 ⊢ (𝐽 ∩ (𝐼 ∖ 𝐽)) = ∅
486	485	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝐽 ∩ (𝐼 ∖ 𝐽)) = ∅)
487		undif 4448	. . . . . . . . . . . 12 ⊢ (𝐽 ⊆ 𝐼 ↔ (𝐽 ∪ (𝐼 ∖ 𝐽)) = 𝐼)
488	16, 487	sylib 218	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐽 ∪ (𝐼 ∖ 𝐽)) = 𝐼)
489	488	eqcomd 2736	. . . . . . . . . 10 ⊢ (𝜑 → 𝐼 = (𝐽 ∪ (𝐼 ∖ 𝐽)))
490	489	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → 𝐼 = (𝐽 ∪ (𝐼 ∖ 𝐽)))
491	48, 110, 474, 292, 283, 480, 484, 486, 490	gsumsplit 19865	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖)))) = (((mulGrp‘𝑅) Σg ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ 𝐽))(.r‘𝑅)((mulGrp‘𝑅) Σg ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ (𝐼 ∖ 𝐽)))))
492	284	resmptd 6014	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ 𝐽) = (𝑖 ∈ 𝐽 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))))
493		fveq2 6861	. . . . . . . . . . . . . 14 ⊢ (𝑖 = 𝑗 → (𝑑‘𝑖) = (𝑑‘𝑗))
494		fveq2 6861	. . . . . . . . . . . . . 14 ⊢ (𝑖 = 𝑗 → (𝐴‘𝑖) = (𝐴‘𝑗))
495	493, 494	oveq12d 7408	. . . . . . . . . . . . 13 ⊢ (𝑖 = 𝑗 → ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖)) = ((𝑑‘𝑗)(.g‘(mulGrp‘𝑅))(𝐴‘𝑗)))
496	495	cbvmptv 5214	. . . . . . . . . . . 12 ⊢ (𝑖 ∈ 𝐽 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) = (𝑗 ∈ 𝐽 ↦ ((𝑑‘𝑗)(.g‘(mulGrp‘𝑅))(𝐴‘𝑗)))
497		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → 𝑗 ∈ 𝐽)
498	497	fvresd 6881	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑑 ↾ 𝐽)‘𝑗) = (𝑑‘𝑗))
499	497	fvresd 6881	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝐴 ↾ 𝐽)‘𝑗) = (𝐴‘𝑗))
500	498, 499	oveq12d 7408	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)) = ((𝑑‘𝑗)(.g‘(mulGrp‘𝑅))(𝐴‘𝑗)))
501	500	eqcomd 2736	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑗 ∈ 𝐽) → ((𝑑‘𝑗)(.g‘(mulGrp‘𝑅))(𝐴‘𝑗)) = (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))
502	501	mpteq2dva 5203	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑗 ∈ 𝐽 ↦ ((𝑑‘𝑗)(.g‘(mulGrp‘𝑅))(𝐴‘𝑗))) = (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
503	496, 502	eqtrid 2777	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑖 ∈ 𝐽 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) = (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
504	492, 503	eqtrd 2765	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ 𝐽) = (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))
505	504	oveq2d 7406	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((mulGrp‘𝑅) Σg ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ 𝐽)) = ((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))
506	289	resmptd 6014	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ (𝐼 ∖ 𝐽)) = (𝑖 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))))
507		fveq2 6861	. . . . . . . . . . . . . 14 ⊢ (𝑖 = 𝑘 → (𝑑‘𝑖) = (𝑑‘𝑘))
508		fveq2 6861	. . . . . . . . . . . . . 14 ⊢ (𝑖 = 𝑘 → (𝐴‘𝑖) = (𝐴‘𝑘))
509	507, 508	oveq12d 7408	. . . . . . . . . . . . 13 ⊢ (𝑖 = 𝑘 → ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖)) = ((𝑑‘𝑘)(.g‘(mulGrp‘𝑅))(𝐴‘𝑘)))
510	509	cbvmptv 5214	. . . . . . . . . . . 12 ⊢ (𝑖 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑑‘𝑘)(.g‘(mulGrp‘𝑅))(𝐴‘𝑘)))
511		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → 𝑘 ∈ (𝐼 ∖ 𝐽))
512	511	fvresd 6881	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘) = (𝑑‘𝑘))
513	511	fvresd 6881	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘) = (𝐴‘𝑘))
514	512, 513	oveq12d 7408	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)) = ((𝑑‘𝑘)(.g‘(mulGrp‘𝑅))(𝐴‘𝑘)))
515	514	eqcomd 2736	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑑‘𝑘)(.g‘(mulGrp‘𝑅))(𝐴‘𝑘)) = (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))
516	515	mpteq2dva 5203	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑑‘𝑘)(.g‘(mulGrp‘𝑅))(𝐴‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
517	510, 516	eqtrid 2777	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (𝑖 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
518	506, 517	eqtrd 2765	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ (𝐼 ∖ 𝐽)) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))
519	518	oveq2d 7406	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((mulGrp‘𝑅) Σg ((𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))) ↾ (𝐼 ∖ 𝐽))) = ((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))
520	505, 519	oveq12d 7408	. . . . . . . 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 2766	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = ((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖)))))
522	351, 521	oveq12d 7408	. . . . . 6 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → ((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)(((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘)))))) = ((𝐹‘𝑑)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))))))
523	473, 522	eqtrd 2765	. . . . 5 ⊢ ((𝜑 ∧ 𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}) → (((((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑑 ↾ 𝐽))‘(𝑑 ↾ (𝐼 ∖ 𝐽)))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑗 ∈ 𝐽 ↦ (((𝑑 ↾ 𝐽)‘𝑗)(.g‘(mulGrp‘𝑅))((𝐴 ↾ 𝐽)‘𝑗)))))(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑑 ↾ (𝐼 ∖ 𝐽))‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))) = ((𝐹‘𝑑)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))))))
524	523	mpteq2dva 5203	. . . 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 7406	. . 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 2771	. 2 ⊢ (𝜑 → (𝑅 Σg (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ↦ (((((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽)))‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))) = (𝑅 Σg (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ ((𝐹‘𝑑)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))))))))
527		eqid 2730	. . 3 ⊢ ((𝐼 ∖ 𝐽) eval 𝑅) = ((𝐼 ∖ 𝐽) eval 𝑅)
528	527, 3, 1, 137, 28, 47, 49, 136, 6, 7, 166, 457	evlvvval 42568	. 2 ⊢ (𝜑 → ((((𝐼 ∖ 𝐽) eval 𝑅)‘(((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽))))‘(𝐴 ↾ (𝐼 ∖ 𝐽))) = (𝑅 Σg (𝑐 ∈ {𝑓 ∈ (ℕ0 ↑m (𝐼 ∖ 𝐽)) ∣ (◡𝑓 “ ℕ) ∈ Fin} ↦ (((((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽)))‘𝑐)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑐‘𝑘)(.g‘(mulGrp‘𝑅))((𝐴 ↾ (𝐼 ∖ 𝐽))‘𝑘))))))))
529		eqid 2730	. . 3 ⊢ (𝐼 eval 𝑅) = (𝐼 eval 𝑅)
530	529, 14, 15, 282, 28, 47, 49, 136, 4, 7, 17, 35	evlvvval 42568	. 2 ⊢ (𝜑 → (((𝐼 eval 𝑅)‘𝐹)‘𝐴) = (𝑅 Σg (𝑑 ∈ {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin} ↦ ((𝐹‘𝑑)(.r‘𝑅)((mulGrp‘𝑅) Σg (𝑖 ∈ 𝐼 ↦ ((𝑑‘𝑖)(.g‘(mulGrp‘𝑅))(𝐴‘𝑖))))))))
531	526, 528, 530	3eqtr4d 2775	1 ⊢ (𝜑 → ((((𝐼 ∖ 𝐽) eval 𝑅)‘(((𝐽 eval 𝑈)‘(((𝐼 selectVars 𝑅)‘𝐽)‘𝐹))‘(𝐿 ∘ (𝐴 ↾ 𝐽))))‘(𝐴 ↾ (𝐼 ∖ 𝐽))) = (((𝐼 eval 𝑅)‘𝐹)‘𝐴))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1540   ∈ wcel 2109  ∀wral 3045  {crab 3408  Vcvv 3450  ⦋csb 3865   ∖ cdif 3914   ∪ cun 3915   ∩ cin 3916   ⊆ wss 3917  ∅c0 4299  {csn 4592   class class class wbr 5110   ↦ cmpt 5191   × cxp 5639  ^◡ccnv 5640   ↾ cres 5643   “ cima 5644   ∘ ccom 5645  Fun wfun 6508   Fn wfn 6509  ⟶wf 6510  –1-1→wf1 6511  –1-1-onto→wf1o 6513  ‘cfv 6514  (class class class)co 7390   ∈ cmpo 7392   supp csupp 8142   ↑_m cmap 8802  Fincfn 8921   finSupp cfsupp 9319  0cc0 11075  ℕcn 12193  ℕ₀cn0 12449  ℤcz 12536  Basecbs 17186  ._rcmulr 17228  Scalarcsca 17230   ·_𝑠 cvsca 17231  0_gc0g 17409   Σ_g cgsu 17410  Mndcmnd 18668   MndHom cmhm 18715  Grpcgrp 18872  ._gcmg 19006   GrpHom cghm 19151  CMndccmn 19717  mulGrpcmgp 20056  1_rcur 20097  Ringcrg 20149  CRingccrg 20150   RingHom crh 20385  AssAlgcasa 21766  algSccascl 21768   mPoly cmpl 21822   eval cevl 21987   selectVars cslv 22022

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5237  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714  ax-cnex 11131  ax-resscn 11132  ax-1cn 11133  ax-icn 11134  ax-addcl 11135  ax-addrcl 11136  ax-mulcl 11137  ax-mulrcl 11138  ax-mulcom 11139  ax-addass 11140  ax-mulass 11141  ax-distr 11142  ax-i2m1 11143  ax-1ne0 11144  ax-1rid 11145  ax-rnegex 11146  ax-rrecex 11147  ax-cnre 11148  ax-pre-lttri 11149  ax-pre-lttrn 11150  ax-pre-ltadd 11151  ax-pre-mulgt0 11152

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-pss 3937  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-tp 4597  df-op 4599  df-uni 4875  df-int 4914  df-iun 4960  df-iin 4961  df-br 5111  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5536  df-eprel 5541  df-po 5549  df-so 5550  df-fr 5594  df-se 5595  df-we 5596  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-pred 6277  df-ord 6338  df-on 6339  df-lim 6340  df-suc 6341  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-isom 6523  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-of 7656  df-ofr 7657  df-om 7846  df-1st 7971  df-2nd 7972  df-supp 8143  df-frecs 8263  df-wrecs 8294  df-recs 8343  df-rdg 8381  df-1o 8437  df-2o 8438  df-er 8674  df-map 8804  df-pm 8805  df-ixp 8874  df-en 8922  df-dom 8923  df-sdom 8924  df-fin 8925  df-fsupp 9320  df-sup 9400  df-oi 9470  df-card 9899  df-pnf 11217  df-mnf 11218  df-xr 11219  df-ltxr 11220  df-le 11221  df-sub 11414  df-neg 11415  df-nn 12194  df-2 12256  df-3 12257  df-4 12258  df-5 12259  df-6 12260  df-7 12261  df-8 12262  df-9 12263  df-n0 12450  df-z 12537  df-dec 12657  df-uz 12801  df-fz 13476  df-fzo 13623  df-seq 13974  df-hash 14303  df-struct 17124  df-sets 17141  df-slot 17159  df-ndx 17171  df-base 17187  df-ress 17208  df-plusg 17240  df-mulr 17241  df-sca 17243  df-vsca 17244  df-ip 17245  df-tset 17246  df-ple 17247  df-ds 17249  df-hom 17251  df-cco 17252  df-0g 17411  df-gsum 17412  df-prds 17417  df-pws 17419  df-mre 17554  df-mrc 17555  df-acs 17557  df-mgm 18574  df-sgrp 18653  df-mnd 18669  df-mhm 18717  df-submnd 18718  df-grp 18875  df-minusg 18876  df-sbg 18877  df-mulg 19007  df-subg 19062  df-ghm 19152  df-cntz 19256  df-cmn 19719  df-abl 19720  df-mgp 20057  df-rng 20069  df-ur 20098  df-srg 20103  df-ring 20151  df-cring 20152  df-rhm 20388  df-subrng 20462  df-subrg 20486  df-lmod 20775  df-lss 20845  df-lsp 20885  df-assa 21769  df-asp 21770  df-ascl 21771  df-psr 21825  df-mvr 21826  df-mpl 21827  df-evls 21988  df-evl 21989  df-selv 22026

This theorem is referenced by: (None)