selvvvval - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > selvvvval		Structured version Visualization version GIF version

Theorem selvvvval 22322

Description: Recover the original polynomial from a selectVars application. (Contributed by SN, 15-Mar-2025.)

**Hypotheses**
Ref	Expression
selvvvval.d	⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ (^◡ℎ “ ℕ) ∈ Fin}
selvvvval.p	⊢ 𝑃 = (𝐼 mPoly 𝑅)
selvvvval.b	⊢ 𝐵 = (Base‘𝑃)
selvvvval.r	⊢ (𝜑 → 𝑅 ∈ CRing)
selvvvval.j	⊢ (𝜑 → 𝐽 ⊆ 𝐼)
selvvvval.f	⊢ (𝜑 → 𝐹 ∈ 𝐵)
selvvvval.y	⊢ (𝜑 → 𝑌 ∈ 𝐷)

**Assertion**
Ref	Expression
selvvvval	⊢ (𝜑 → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (𝐹‘𝑌))

Distinct variable groups: ℎ,𝐼 ℎ,𝐽 𝑅,ℎ ℎ,𝑌 Allowed substitution hints: 𝜑(ℎ) 𝐵(ℎ) 𝐷(ℎ) 𝑃(ℎ) 𝐹(ℎ)

Proof of Theorem selvvvval Dummy variables 𝑒 𝑔 𝑖 𝑗 𝑘 𝑡 𝑢 𝑣 𝑤 𝑓 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		selvvvval.p	. . . . . 6 ⊢ 𝑃 = (𝐼 mPoly 𝑅)
2		selvvvval.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝑃)
3		eqid 2765	. . . . . 6 ⊢ ((𝐼 ∖ 𝐽) mPoly 𝑅) = ((𝐼 ∖ 𝐽) mPoly 𝑅)
4		eqid 2765	. . . . . 6 ⊢ (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) = (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))
5		eqid 2765	. . . . . 6 ⊢ (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
6		eqid 2765	. . . . . 6 ⊢ ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
7		selvvvval.r	. . . . . 6 ⊢ (𝜑 → 𝑅 ∈ CRing)
8		selvvvval.j	. . . . . 6 ⊢ (𝜑 → 𝐽 ⊆ 𝐼)
9		selvvvval.f	. . . . . 6 ⊢ (𝜑 → 𝐹 ∈ 𝐵)
10	1, 2, 3, 4, 5, 6, 7, 8, 9	selvval2 22321	. . . . 5 ⊢ (𝜑 → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) = (((𝐼 eval (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹))‘(𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))))
11		eqid 2765	. . . . . 6 ⊢ (𝐼 eval (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (𝐼 eval (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
12		eqid 2765	. . . . . 6 ⊢ (𝐼 mPoly (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (𝐼 mPoly (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
13		eqid 2765	. . . . . 6 ⊢ (Base‘(𝐼 mPoly (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (Base‘(𝐼 mPoly (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
14		selvvvval.d	. . . . . 6 ⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ (^◡ℎ “ ℕ) ∈ Fin}
15		eqid 2765	. . . . . 6 ⊢ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
16		eqid 2765	. . . . . 6 ⊢ (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
17		eqid 2765	. . . . . 6 ⊢ (._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
18		eqid 2765	. . . . . 6 ⊢ (._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
19	1, 2	mplrcl 22172	. . . . . . 7 ⊢ (𝐹 ∈ 𝐵 → 𝐼 ∈ V)
20	9, 19	syl 18	. . . . . 6 ⊢ (𝜑 → 𝐼 ∈ V)
21	20, 8	ssexd 5297	. . . . . . 7 ⊢ (𝜑 → 𝐽 ∈ V)
22	20	difexd 5304	. . . . . . . 8 ⊢ (𝜑 → (𝐼 ∖ 𝐽) ∈ V)
23	3, 22, 7	mplcrngd 22202	. . . . . . 7 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ CRing)
24	4, 21, 23	mplcrngd 22202	. . . . . 6 ⊢ (𝜑 → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ CRing)
25	4	mplassa 22200	. . . . . . . . . . 11 ⊢ ((𝐽 ∈ V ∧ ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ CRing) → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ AssAlg)
26	21, 23, 25	syl2anc 596	. . . . . . . . . 10 ⊢ (𝜑 → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ AssAlg)
27		eqid 2765	. . . . . . . . . . 11 ⊢ (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
28	5, 27	asclrhm 22069	. . . . . . . . . 10 ⊢ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ AssAlg → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
29	26, 28	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
30	3	mplassa 22200	. . . . . . . . . . . 12 ⊢ (((𝐼 ∖ 𝐽) ∈ V ∧ 𝑅 ∈ CRing) → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ AssAlg)
31	22, 7, 30	syl2anc 596	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ AssAlg)
32		eqid 2765	. . . . . . . . . . . 12 ⊢ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))
33		eqid 2765	. . . . . . . . . . . 12 ⊢ (Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅))
34	32, 33	asclrhm 22069	. . . . . . . . . . 11 ⊢ (((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ AssAlg → (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ ((Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)) RingHom ((𝐼 ∖ 𝐽) mPoly 𝑅)))
35	31, 34	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ ((Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)) RingHom ((𝐼 ∖ 𝐽) mPoly 𝑅)))
36	3, 22, 7	mplsca 22191	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 = (Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
37	36	eqcomd 2771	. . . . . . . . . . 11 ⊢ (𝜑 → (Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = 𝑅)
38	4, 21, 23	mplsca 22191	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) = (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
39	37, 38	oveq12d 7434	. . . . . . . . . 10 ⊢ (𝜑 → ((Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)) RingHom ((𝐼 ∖ 𝐽) mPoly 𝑅)) = (𝑅 RingHom (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
40	35, 39	eleqtrd 2867	. . . . . . . . 9 ⊢ (𝜑 → (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ (𝑅 RingHom (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
41		rhmco 20616	. . . . . . . . 9 ⊢ (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∧ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ (𝑅 RingHom (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
42	29, 40, 41	syl2anc 596	. . . . . . . 8 ⊢ (𝜑 → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
43		rhmghm 20591	. . . . . . . 8 ⊢ (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 GrpHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
44		ghmmhm 19319	. . . . . . . 8 ⊢ (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 GrpHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 MndHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
45	42, 43, 44	3syl 19	. . . . . . 7 ⊢ (𝜑 → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 MndHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
46	1, 12, 2, 13, 45, 9	mhmcompl 22301	. . . . . 6 ⊢ (𝜑 → (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹) ∈ (Base‘(𝐼 mPoly (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
47		fvexd 6900	. . . . . . 7 ⊢ (𝜑 → (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ V)
48		eqid 2765	. . . . . . . . . . . 12 ⊢ (𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅)) = (𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))
49	23	crngringd 20351	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ Ring)
50	4, 48, 15, 21, 49	mvrf2 22171	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅)):𝐽⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
51	50	ffvelcdmda 7083	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐽) → ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
52	51	adantlr 728	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐼) ∧ 𝑧 ∈ 𝐽) → ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
53		eldif 3916	. . . . . . . . . . 11 ⊢ (𝑧 ∈ (𝐼 ∖ 𝐽) ↔ (𝑧 ∈ 𝐼 ∧ ¬ 𝑧 ∈ 𝐽))
54		eqid 2765	. . . . . . . . . . . . . 14 ⊢ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))
55	4, 15, 54, 5, 21, 49	mplasclf 22245	. . . . . . . . . . . . 13 ⊢ (𝜑 → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))):(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
56	55	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝐼 ∖ 𝐽)) → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))):(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
57		eqid 2765	. . . . . . . . . . . . . 14 ⊢ ((𝐼 ∖ 𝐽) mVar 𝑅) = ((𝐼 ∖ 𝐽) mVar 𝑅)
58	7	crngringd 20351	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ Ring)
59	3, 57, 54, 22, 58	mvrf2 22171	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mVar 𝑅):(𝐼 ∖ 𝐽)⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
60	59	ffvelcdmda 7083	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝐼 ∖ 𝐽)) → (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
61	56, 60	ffvelcdmd 7084	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝐼 ∖ 𝐽)) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
62	53, 61	sylan2br 607	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐼 ∧ ¬ 𝑧 ∈ 𝐽)) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
63	62	anassrs 473	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐼) ∧ ¬ 𝑧 ∈ 𝐽) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
64	52, 63	ifclda 4525	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐼) → if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
65	64	fmpttd 7114	. . . . . . 7 ⊢ (𝜑 → (𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)))):𝐼⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
66	47, 20, 65	elmapdd 8840	. . . . . 6 ⊢ (𝜑 → (𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)))) ∈ ((Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↑_m 𝐼))
67	11, 12, 13, 14, 15, 16, 17, 18, 20, 24, 46, 66	evlvvval 22313	. . . . 5 ⊢ (𝜑 → (((𝐼 eval (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹))‘(𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))) = ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹)‘𝑔)(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))))))))
68		eqid 2765	. . . . . . . . . . . . 13 ⊢ (Base‘𝑅) = (Base‘𝑅)
69	1, 68, 2, 14, 9	mplelf 22176	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐹:𝐷⟶(Base‘𝑅))
70	69	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝐹:𝐷⟶(Base‘𝑅))
71		simpr 490	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑔 ∈ 𝐷)
72	70, 71	fvco3d 6986	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹)‘𝑔) = (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝐹‘𝑔)))
73	3, 54, 68, 32, 22, 58	mplasclf 22245	. . . . . . . . . . . 12 ⊢ (𝜑 → (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)):(Base‘𝑅)⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
74	73	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)):(Base‘𝑅)⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
75	69	ffvelcdmda 7083	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐹‘𝑔) ∈ (Base‘𝑅))
76	74, 75	fvco3d 6986	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝐹‘𝑔)) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))))
77	72, 76	eqtrd 2800	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹)‘𝑔) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))))
78	16, 15	mgpbas 20244	. . . . . . . . . . 11 ⊢ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (Base‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
79		eqid 2765	. . . . . . . . . . 11 ⊢ (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
80	16, 18	mgpplusg 20243	. . . . . . . . . . 11 ⊢ (._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (+_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
81	16	crngmgp 20346	. . . . . . . . . . . . 13 ⊢ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ CRing → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ CMnd)
82	24, 81	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ CMnd)
83	82	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ CMnd)
84	20	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝐼 ∈ V)
85	82	cmnmndd 19897	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ Mnd)
86	85	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ Mnd)
87	14	psrbagf 22097	. . . . . . . . . . . . . . 15 ⊢ (𝑔 ∈ 𝐷 → 𝑔:𝐼⟶ℕ₀)
88	87	adantl 487	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑔:𝐼⟶ℕ₀)
89	88	ffvelcdmda 7083	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → (𝑔‘𝑘) ∈ ℕ₀)
90		eqid 2765	. . . . . . . . . . . . . . 15 ⊢ (𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)))) = (𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))
91		eleq1w 2848	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = 𝑘 → (𝑧 ∈ 𝐽 ↔ 𝑘 ∈ 𝐽))
92		fveq2 6885	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = 𝑘 → ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧) = ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))
93		fveq2 6885	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑘 → (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧) = (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))
94	93	fveq2d 6889	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = 𝑘 → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
95	91, 92, 94	ifbieq12d 4518	. . . . . . . . . . . . . . 15 ⊢ (𝑧 = 𝑘 → if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))) = if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
96		simpr 490	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → 𝑘 ∈ 𝐼)
97	50	ad2antrr 739	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → (𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅)):𝐽⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
98	97	ffvelcdmda 7083	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) ∧ 𝑘 ∈ 𝐽) → ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
99		eldif 3916	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ (𝐼 ∖ 𝐽) ↔ (𝑘 ∈ 𝐼 ∧ ¬ 𝑘 ∈ 𝐽))
100	55	adantr 486	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))):(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
101	59	ffvelcdmda 7083	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
102	100, 101	ffvelcdmd 7084	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
103	99, 102	sylan2br 607	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝐼 ∧ ¬ 𝑘 ∈ 𝐽)) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
104	103	anassrs 473	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐼) ∧ ¬ 𝑘 ∈ 𝐽) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
105	104	adantllr 732	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) ∧ ¬ 𝑘 ∈ 𝐽) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
106	98, 105	ifclda 4525	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
107	90, 95, 96, 106	fvmptd3 7017	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → ((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘) = if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
108	107, 106	eqeltrd 2865	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → ((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
109	78, 17, 86, 89, 108	mulgnn0cld 19184	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
110	109	fmpttd 7114	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))):𝐼⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
111	88	feqmptd 6953	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑔 = (𝑘 ∈ 𝐼 ↦ (𝑔‘𝑘)))
112	14	psrbagfsupp 22098	. . . . . . . . . . . . . 14 ⊢ (𝑔 ∈ 𝐷 → 𝑔 finSupp 0)
113	112	adantl 487	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑔 finSupp 0)
114	111, 113	eqbrtrrd 5137	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐼 ↦ (𝑔‘𝑘)) finSupp 0)
115	78, 79, 17	mulg0 19163	. . . . . . . . . . . . 13 ⊢ (𝑡 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) → (0(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))𝑡) = (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
116	115	adantl 487	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑡 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → (0(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))𝑡) = (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
117		fvexd 6900	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∈ V)
118	114, 116, 89, 108, 117	fsuppssov1 9347	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) finSupp (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
119		disjdifr 4434	. . . . . . . . . . . 12 ⊢ ((𝐼 ∖ 𝐽) ∩ 𝐽) = ∅
120	119	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐼 ∖ 𝐽) ∩ 𝐽) = ∅)
121		undifr 4446	. . . . . . . . . . . . . 14 ⊢ (𝐽 ⊆ 𝐼 ↔ ((𝐼 ∖ 𝐽) ∪ 𝐽) = 𝐼)
122	8, 121	sylib 221	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) ∪ 𝐽) = 𝐼)
123	122	eqcomd 2771	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐼 = ((𝐼 ∖ 𝐽) ∪ 𝐽))
124	123	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝐼 = ((𝐼 ∖ 𝐽) ∪ 𝐽))
125	78, 79, 80, 83, 84, 110, 118, 120, 124	gsumsplit 20021	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘)))) = (((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ (𝐼 ∖ 𝐽)))(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ 𝐽))))
126		eldifi 4085	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ (𝐼 ∖ 𝐽) → 𝑘 ∈ 𝐼)
127	126	adantl 487	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → 𝑘 ∈ 𝐼)
128	126, 106	sylan2 605	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
129	90, 95, 127, 128	fvmptd3 7017	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘) = if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
130		eldifn 4086	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ (𝐼 ∖ 𝐽) → ¬ 𝑘 ∈ 𝐽)
131	130	adantl 487	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ¬ 𝑘 ∈ 𝐽)
132	131	iffalsed 4500	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
133	129, 132	eqtrd 2800	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
134	133	oveq2d 7432	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘)) = ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
135		eqid 2765	. . . . . . . . . . . . . . . . . . . 20 ⊢ (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
136	135, 16	rhmmhm 20587	. . . . . . . . . . . . . . . . . . 19 ⊢ ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) MndHom (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
137	29, 136	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) MndHom (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
138	137	ad2antrr 739	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) MndHom (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
139	126, 89	sylan2 605	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (𝑔‘𝑘) ∈ ℕ₀)
140	101	adantlr 728	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
141	38	fveq2d 6889	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
142	141	ad2antrr 739	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
143	140, 142	eleqtrd 2867	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘) ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
144		eqid 2765	. . . . . . . . . . . . . . . . . . 19 ⊢ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
145	135, 144	mgpbas 20244	. . . . . . . . . . . . . . . . . 18 ⊢ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (Base‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
146		eqid 2765	. . . . . . . . . . . . . . . . . 18 ⊢ (._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) = (._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
147	145, 146, 17	mhmmulg 19204	. . . . . . . . . . . . . . . . 17 ⊢ (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) MndHom (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∧ (𝑔‘𝑘) ∈ ℕ₀ ∧ (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘) ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) = ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
148	138, 139, 143, 147	syl3anc 1398	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) = ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
149	134, 148	eqtr4d 2803	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘)) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
150	149	mpteq2dva 5206	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
151		difssd 4091	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐼 ∖ 𝐽) ⊆ 𝐼)
152	151	resmptd 6044	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ (𝐼 ∖ 𝐽)) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))))
153	55	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))):(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
154	38	fveq2d 6889	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
155	154	fveq2d 6889	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))))
156	155	ad2antrr 739	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))))
157	156	oveqd 7433	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) = ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
158		eqid 2765	. . . . . . . . . . . . . . . . . 18 ⊢ (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))
159	158, 54	mgpbas 20244	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (Base‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
160		eqid 2765	. . . . . . . . . . . . . . . . 17 ⊢ (._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
161	158	crngmgp 20346	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ CRing → (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ CMnd)
162	23, 161	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ CMnd)
163	162	cmnmndd 19897	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ Mnd)
164	163	ad2antrr 739	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ Mnd)
165	159, 160, 164, 139, 140	mulgnn0cld 19184	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
166	157, 165	eqeltrrd 2866	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
167	153, 166	cofmpt 7132	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
168	150, 152, 167	3eqtr4d 2810	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ (𝐼 ∖ 𝐽)) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
169	168	oveq2d 7432	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ (𝐼 ∖ 𝐽))) = ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))))
170		eqid 2765	. . . . . . . . . . . . 13 ⊢ (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) = (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
171	38, 23	eqeltrrd 2866	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ CRing)
172	135	crngmgp 20346	. . . . . . . . . . . . . . 15 ⊢ ((Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ CRing → (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∈ CMnd)
173	171, 172	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∈ CMnd)
174	173	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∈ CMnd)
175	85	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ Mnd)
176	22	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐼 ∖ 𝐽) ∈ V)
177	137	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) MndHom (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
178	166, 142	eleqtrd 2867	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
179	178	fmpttd 7114	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))):(𝐼 ∖ 𝐽)⟶(Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
180		0zd 12614	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 0 ∈ ℤ)
181	114, 151, 180	fmptssfisupp 9357	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (𝑔‘𝑘)) finSupp 0)
182	141	eqimssd 3994	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ⊆ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
183	182	sselda 3938	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑢 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))) → 𝑢 ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
184	183	adantlr 728	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑢 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))) → 𝑢 ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
185	145, 170, 146	mulg0 19163	. . . . . . . . . . . . . . 15 ⊢ (𝑢 ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → (0(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))𝑢) = (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))))
186	184, 185	syl 18	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑢 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))) → (0(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))𝑢) = (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))))
187		fvexd 6900	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) ∈ V)
188	181, 186, 139, 140, 187	fsuppssov1 9347	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) finSupp (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))))
189	145, 170, 174, 175, 176, 177, 179, 188	gsummhm 20031	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))))
190	169, 189	eqtrd 2800	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ (𝐼 ∖ 𝐽))) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))))
191	8	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝐽 ⊆ 𝐼)
192	191	resmptd 6044	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ 𝐽) = (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))))
193	191	sselda 3938	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → 𝑘 ∈ 𝐼)
194	193, 106	syldan 603	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
195	90, 95, 193, 194	fvmptd3 7017	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → ((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘) = if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
196		iftrue 4495	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ 𝐽 → if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) = ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))
197	196	adantl 487	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) = ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))
198	195, 197	eqtrd 2800	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → ((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘) = ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))
199	198	oveq2d 7432	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘)) = ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))
200	199	mpteq2dva 5206	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) = (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))
201	192, 200	eqtrd 2800	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ 𝐽) = (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))
202	201	oveq2d 7432	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ 𝐽)) = ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))
203	190, 202	oveq12d 7434	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ (𝐼 ∖ 𝐽)))(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ 𝐽))) = (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))
204	26	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ AssAlg)
205	145, 170, 174, 176, 179, 188	gsumcl 20008	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
206	21	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝐽 ∈ V)
207	85	ad2antrr 739	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ Mnd)
208	193, 89	syldan 603	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → (𝑔‘𝑘) ∈ ℕ₀)
209	50	ffvelcdmda 7083	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐽) → ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
210	209	adantlr 728	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
211	78, 17, 207, 208, 210	mulgnn0cld 19184	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
212	211	fmpttd 7114	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))):𝐽⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
213	114, 191, 180	fmptssfisupp 9357	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐽 ↦ (𝑔‘𝑘)) finSupp 0)
214	213, 116, 208, 210, 117	fsuppssov1 9347	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))) finSupp (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
215	78, 79, 83, 206, 212, 214	gsumcl 20008	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
216		eqid 2765	. . . . . . . . . . . . 13 ⊢ ( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = ( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
217	5, 27, 144, 15, 18, 216	asclmul1 22065	. . . . . . . . . . . 12 ⊢ (((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ AssAlg ∧ ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∧ ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))) = (((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))
218	204, 205, 215, 217	syl3anc 1398	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))) = (((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))
219	155	oveqd 7433	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) = ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
220	219	mpteq2dv 5207	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
221	154, 220	oveq12d 7434	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) = ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
222	221	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) = ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
223	222	oveq1d 7431	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))) = (((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))
224	218, 223	eqtr4d 2803	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))) = (((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))
225	125, 203, 224	3eqtrd 2804	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘)))) = (((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))
226	77, 225	oveq12d 7434	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹)‘𝑔)(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))))) = (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)))(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))
227	74, 75	ffvelcdmd 7084	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
228	141	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
229	227, 228	eleqtrd 2867	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)) ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
230	4, 21, 49	mpllmodd 22203	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ LMod)
231	230	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ LMod)
232		eqid 2765	. . . . . . . . . . . 12 ⊢ (0_g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (0_g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
233	162	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ CMnd)
234	165	fmpttd 7114	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))):(𝐼 ∖ 𝐽)⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
235	159, 232, 160	mulg0 19163	. . . . . . . . . . . . . 14 ⊢ (𝑒 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) → (0(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))𝑒) = (0_g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
236	235	adantl 487	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑒 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))) → (0(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))𝑒) = (0_g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
237		fvexd 6900	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ V)
238	181, 236, 139, 140, 237	fsuppssov1 9347	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) finSupp (0_g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
239	159, 232, 233, 176, 234, 238	gsumcl 20008	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
240	239, 228	eleqtrd 2867	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
241	15, 27, 216, 144, 231, 240, 215	lmodvscld 21029	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
242	5, 27, 144, 15, 18, 216	asclmul1 22065	. . . . . . . . 9 ⊢ (((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ AssAlg ∧ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)) ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∧ (((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)))(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))) = (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))
243	204, 229, 241, 242	syl3anc 1398	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)))(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))) = (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))
244	226, 243	eqtrd 2800	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹)‘𝑔)(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))))) = (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))
245	244	mpteq2dva 5206	. . . . . 6 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ (((((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹)‘𝑔)(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘)))))) = (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))
246	245	oveq2d 7432	. . . . 5 ⊢ (𝜑 → ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹)‘𝑔)(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))))))) = ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))))
247	10, 67, 246	3eqtrd 2804	. . . 4 ⊢ (𝜑 → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) = ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))))
248	247	fveq1d 6887	. . 3 ⊢ (𝜑 → ((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑌 ↾ 𝐽)) = (((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽)))
249	248	fveq1d 6887	. 2 ⊢ (𝜑 → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = ((((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
250		eqid 2765	. . . 4 ⊢ (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))
251	49	ringcmnd 20391	. . . 4 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ CMnd)
252	7	crnggrpd 20352	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ Grp)
253	252	grpmndd 19036	. . . 4 ⊢ (𝜑 → 𝑅 ∈ Mnd)
254		ovex 7449	. . . . . 6 ⊢ (ℕ₀ ↑_m 𝐼) ∈ V
255	14, 254	rabex2 5313	. . . . 5 ⊢ 𝐷 ∈ V
256	255	a1i 11	. . . 4 ⊢ (𝜑 → 𝐷 ∈ V)
257		eqid 2765	. . . . . 6 ⊢ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} = {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin}
258		eqid 2765	. . . . . 6 ⊢ (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) = (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
259		difssd 4091	. . . . . . 7 ⊢ (𝜑 → (𝐼 ∖ 𝐽) ⊆ 𝐼)
260		selvvvval.y	. . . . . . 7 ⊢ (𝜑 → 𝑌 ∈ 𝐷)
261	14, 257, 20, 259, 260	psrbagres 22109	. . . . . 6 ⊢ (𝜑 → (𝑌 ↾ (𝐼 ∖ 𝐽)) ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin})
262	3, 54, 257, 258, 22, 252, 261	mplmapghm 22302	. . . . 5 ⊢ (𝜑 → (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∈ (((𝐼 ∖ 𝐽) mPoly 𝑅) GrpHom 𝑅))
263		ghmmhm 19319	. . . . 5 ⊢ ((𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∈ (((𝐼 ∖ 𝐽) mPoly 𝑅) GrpHom 𝑅) → (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∈ (((𝐼 ∖ 𝐽) mPoly 𝑅) MndHom 𝑅))
264	262, 263	syl 18	. . . 4 ⊢ (𝜑 → (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∈ (((𝐼 ∖ 𝐽) mPoly 𝑅) MndHom 𝑅))
265		eqid 2765	. . . . . . . 8 ⊢ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} = {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin}
266		simpr 490	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → 𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
267	4, 54, 15, 265, 266	mplelf 22176	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → 𝑤:{𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin}⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
268	14, 265, 20, 8, 260	psrbagres 22109	. . . . . . . 8 ⊢ (𝜑 → (𝑌 ↾ 𝐽) ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin})
269	268	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → (𝑌 ↾ 𝐽) ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin})
270	267, 269	ffvelcdmd 7084	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → (𝑤‘(𝑌 ↾ 𝐽)) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
271	270	fmpttd 7114	. . . . 5 ⊢ (𝜑 → (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))):(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
272	15, 27, 216, 144, 231, 229, 241	lmodvscld 21029	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
273	272	fmpttd 7114	. . . . 5 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))):𝐷⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
274	271, 273	fcod 6735	. . . 4 ⊢ (𝜑 → ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))):𝐷⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
275		fvexd 6900	. . . . 5 ⊢ (𝜑 → (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ V)
276	24	crngringd 20351	. . . . . 6 ⊢ (𝜑 → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ Ring)
277		eqid 2765	. . . . . . 7 ⊢ (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
278	15, 277	ring0cl 20374	. . . . . 6 ⊢ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ Ring → (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
279	276, 278	syl 18	. . . . 5 ⊢ (𝜑 → (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
280		ssidd 3961	. . . . 5 ⊢ (𝜑 → (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ⊆ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
281	255	mptex 7225	. . . . . . . 8 ⊢ (𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))) ∈ V
282	281	a1i 11	. . . . . . 7 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))) ∈ V)
283		fvexd 6900	. . . . . . 7 ⊢ (𝜑 → (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∈ V)
284		funmpt 6578	. . . . . . . 8 ⊢ Fun (𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)))
285	284	a1i 11	. . . . . . 7 ⊢ (𝜑 → Fun (𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))))
286		eqid 2765	. . . . . . . 8 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
287	1, 2, 286, 9	mplelsfi 22173	. . . . . . 7 ⊢ (𝜑 → 𝐹 finSupp (0_g‘𝑅))
288		ssidd 3961	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹 supp (0_g‘𝑅)) ⊆ (𝐹 supp (0_g‘𝑅)))
289		fvexd 6900	. . . . . . . . . . 11 ⊢ (𝜑 → (0_g‘𝑅) ∈ V)
290	69, 288, 9, 289	suppssrg 8194	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝐷 ∖ (𝐹 supp (0_g‘𝑅)))) → (𝐹‘𝑔) = (0_g‘𝑅))
291	290	fveq2d 6889	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝐷 ∖ (𝐹 supp (0_g‘𝑅)))) → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)) = ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(0_g‘𝑅)))
292	3, 32, 286, 250, 22, 58	mplascl0 22204	. . . . . . . . . . 11 ⊢ (𝜑 → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(0_g‘𝑅)) = (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
293	38	fveq2d 6889	. . . . . . . . . . 11 ⊢ (𝜑 → (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
294	292, 293	eqtrd 2800	. . . . . . . . . 10 ⊢ (𝜑 → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(0_g‘𝑅)) = (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
295	294	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝐷 ∖ (𝐹 supp (0_g‘𝑅)))) → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(0_g‘𝑅)) = (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
296	291, 295	eqtrd 2800	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝐷 ∖ (𝐹 supp (0_g‘𝑅)))) → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)) = (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
297	296, 256	suppss2 8198	. . . . . . 7 ⊢ (𝜑 → ((𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))) supp (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) ⊆ (𝐹 supp (0_g‘𝑅)))
298	282, 283, 285, 287, 297	fsuppsssuppgd 9345	. . . . . 6 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))) finSupp (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
299		eqid 2765	. . . . . . . 8 ⊢ (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
300	15, 27, 216, 299, 277	lmod0vs 21045	. . . . . . 7 ⊢ (((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ LMod ∧ 𝑓 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → ((0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))𝑓) = (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
301	230, 300	sylan 592	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → ((0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))𝑓) = (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
302		fvexd 6900	. . . . . 6 ⊢ (𝜑 → (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ V)
303	298, 301, 227, 241, 302	fsuppssov1 9347	. . . . 5 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))) finSupp (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
304		eqid 2765	. . . . . . . 8 ⊢ (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) = (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽)))
305	23	crnggrpd 20352	. . . . . . . 8 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ Grp)
306	4, 15, 265, 304, 21, 305, 268	mplmapghm 22302	. . . . . . 7 ⊢ (𝜑 → (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∈ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) GrpHom ((𝐼 ∖ 𝐽) mPoly 𝑅)))
307		ghmmhm 19319	. . . . . . 7 ⊢ ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∈ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) GrpHom ((𝐼 ∖ 𝐽) mPoly 𝑅)) → (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∈ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) MndHom ((𝐼 ∖ 𝐽) mPoly 𝑅)))
308	306, 307	syl 18	. . . . . 6 ⊢ (𝜑 → (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∈ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) MndHom ((𝐼 ∖ 𝐽) mPoly 𝑅)))
309	277, 250	mhm0 18875	. . . . . 6 ⊢ ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∈ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) MndHom ((𝐼 ∖ 𝐽) mPoly 𝑅)) → ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽)))‘(0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
310	308, 309	syl 18	. . . . 5 ⊢ (𝜑 → ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽)))‘(0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
311	275, 279, 273, 271, 280, 256, 47, 303, 310	fsuppcor 9367	. . . 4 ⊢ (𝜑 → ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))) finSupp (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
312	54, 250, 251, 253, 256, 264, 274, 311	gsummhm 20031	. . 3 ⊢ (𝜑 → (𝑅 Σ_g ((𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∘ ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))))) = ((𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽))))‘(((𝐼 ∖ 𝐽) mPoly 𝑅) Σ_g ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))))))
313		fveq1 6884	. . . 4 ⊢ (𝑣 = (((𝐼 ∖ 𝐽) mPoly 𝑅) Σ_g ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))) → (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = ((((𝐼 ∖ 𝐽) mPoly 𝑅) Σ_g ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
314	54, 250, 251, 256, 274, 311	gsumcl 20008	. . . 4 ⊢ (𝜑 → (((𝐼 ∖ 𝐽) mPoly 𝑅) Σ_g ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
315		fvexd 6900	. . . 4 ⊢ (𝜑 → ((((𝐼 ∖ 𝐽) mPoly 𝑅) Σ_g ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) ∈ V)
316	258, 313, 314, 315	fvmptd3 7017	. . 3 ⊢ (𝜑 → ((𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽))))‘(((𝐼 ∖ 𝐽) mPoly 𝑅) Σ_g ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))))) = ((((𝐼 ∖ 𝐽) mPoly 𝑅) Σ_g ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
317	276	ringcmnd 20391	. . . . . 6 ⊢ (𝜑 → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ CMnd)
318	305	grpmndd 19036	. . . . . 6 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ Mnd)
319	15, 277, 317, 318, 256, 308, 273, 303	gsummhm 20031	. . . . 5 ⊢ (𝜑 → (((𝐼 ∖ 𝐽) mPoly 𝑅) Σ_g ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))) = ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽)))‘((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))))
320		fveq1 6884	. . . . . 6 ⊢ (𝑤 = ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))) → (𝑤‘(𝑌 ↾ 𝐽)) = (((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽)))
321	15, 277, 317, 256, 273, 303	gsumcl 20008	. . . . . 6 ⊢ (𝜑 → ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
322		fvexd 6900	. . . . . 6 ⊢ (𝜑 → (((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽)) ∈ V)
323	304, 320, 321, 322	fvmptd3 7017	. . . . 5 ⊢ (𝜑 → ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽)))‘((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))) = (((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽)))
324	319, 323	eqtrd 2800	. . . 4 ⊢ (𝜑 → (((𝐼 ∖ 𝐽) mPoly 𝑅) Σ_g ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))) = (((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽)))
325	324	fveq1d 6887	. . 3 ⊢ (𝜑 → ((((𝐼 ∖ 𝐽) mPoly 𝑅) Σ_g ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = ((((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
326	312, 316, 325	3eqtrrd 2805	. 2 ⊢ (𝜑 → ((((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (𝑅 Σ_g ((𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∘ ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))))))
327	4, 54, 15, 265, 272	mplelf 22176	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))):{𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin}⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
328	268	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑌 ↾ 𝐽) ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin})
329	327, 328	ffvelcdmd 7084	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽)) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
330		eqidd 2766	. . . . . . 7 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))) = (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))
331		eqidd 2766	. . . . . . 7 ⊢ (𝜑 → (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) = (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))))
332		fveq1 6884	. . . . . . 7 ⊢ (𝑤 = (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))) → (𝑤‘(𝑌 ↾ 𝐽)) = ((((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽)))
333	272, 330, 331, 332	fmptco 7129	. . . . . 6 ⊢ (𝜑 → ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))) = (𝑔 ∈ 𝐷 ↦ ((((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽))))
334		eqidd 2766	. . . . . 6 ⊢ (𝜑 → (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) = (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))))
335		fveq1 6884	. . . . . 6 ⊢ (𝑣 = ((((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽)) → (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (((((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
336	329, 333, 334, 335	fmptco 7129	. . . . 5 ⊢ (𝜑 → ((𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∘ ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))) = (𝑔 ∈ 𝐷 ↦ (((((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))))
337		eqid 2765	. . . . . . . . . 10 ⊢ (._r‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))
338	4, 216, 54, 15, 337, 265, 227, 241, 328	mplvscaval 22194	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽)) = (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))((((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))‘(𝑌 ↾ 𝐽))))
339	4, 216, 54, 15, 337, 265, 239, 215, 328	mplvscaval 22194	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))‘(𝑌 ↾ 𝐽)) = (((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽))))
340	339	oveq2d 7432	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))((((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))‘(𝑌 ↾ 𝐽))) = (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))))
341	31	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ AssAlg)
342	36	fveq2d 6889	. . . . . . . . . . . 12 ⊢ (𝜑 → (Base‘𝑅) = (Base‘(Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
343	342	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (Base‘𝑅) = (Base‘(Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
344	75, 343	eleqtrd 2867	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐹‘𝑔) ∈ (Base‘(Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
345	49	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ Ring)
346	4, 54, 15, 265, 215	mplelf 22176	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))):{𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin}⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
347	346, 328	ffvelcdmd 7084	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
348	54, 337, 345, 239, 347	ringcld 20362	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽))) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
349		eqid 2765	. . . . . . . . . . 11 ⊢ (Base‘(Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (Base‘(Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
350		eqid 2765	. . . . . . . . . . 11 ⊢ ( ·_𝑠 ‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = ( ·_𝑠 ‘((𝐼 ∖ 𝐽) mPoly 𝑅))
351	32, 33, 349, 54, 337, 350	asclmul1 22065	. . . . . . . . . 10 ⊢ ((((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ AssAlg ∧ (𝐹‘𝑔) ∈ (Base‘(Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∧ (((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽))) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))) → (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))) = ((𝐹‘𝑔)( ·_𝑠 ‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))))
352	341, 344, 348, 351	syl3anc 1398	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))) = ((𝐹‘𝑔)( ·_𝑠 ‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))))
353	338, 340, 352	3eqtrd 2804	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽)) = ((𝐹‘𝑔)( ·_𝑠 ‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))))
354	353	fveq1d 6887	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (((𝐹‘𝑔)( ·_𝑠 ‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
355		eqid 2765	. . . . . . . 8 ⊢ (._r‘𝑅) = (._r‘𝑅)
356	261	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑌 ↾ (𝐼 ∖ 𝐽)) ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin})
357	3, 350, 68, 54, 355, 257, 75, 348, 356	mplvscaval 22194	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((𝐹‘𝑔)( ·_𝑠 ‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = ((𝐹‘𝑔)(._r‘𝑅)((((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))))
358		ovif2 7515	. . . . . . . . . . . . 13 ⊢ ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))) = if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅))), ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
359	358	fveq1i 6886	. . . . . . . . . . . 12 ⊢ (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅))), ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))
360		iffv 6902	. . . . . . . . . . . 12 ⊢ (if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅))), ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))), (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
361	359, 360	eqtri 2788	. . . . . . . . . . 11 ⊢ (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))), (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
362		eqeq1 2769	. . . . . . . . . . . . . 14 ⊢ (𝑖 = (𝑌 ↾ (𝐼 ∖ 𝐽)) → (𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)) ↔ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽))))
363	362	ifbid 4513	. . . . . . . . . . . . 13 ⊢ (𝑖 = (𝑌 ↾ (𝐼 ∖ 𝐽)) → if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)) = if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))
364		eqid 2765	. . . . . . . . . . . . . 14 ⊢ (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅))
365		eqid 2765	. . . . . . . . . . . . . . 15 ⊢ (1_r‘𝑅) = (1_r‘𝑅)
366	58	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑅 ∈ Ring)
367	14, 257, 84, 151, 71	psrbagres 22109	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑔 ↾ (𝐼 ∖ 𝐽)) ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin})
368	3, 54, 286, 365, 257, 176, 366, 367	mplmon 22215	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅))) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
369	54, 337, 364, 345, 368	ringridmd 20380	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅))))
370		fvexd 6900	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (1_r‘𝑅) ∈ V)
371		fvexd 6900	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘𝑅) ∈ V)
372	370, 371	ifcld 4536	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)) ∈ V)
373	363, 369, 356, 372	fvmptd4 7018	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))
374	54, 337, 250, 345, 368	ringrzd 20404	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
375	3, 257, 286, 250, 22, 252	mpl0 22184	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = ({𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} × {(0_g‘𝑅)}))
376	375	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = ({𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} × {(0_g‘𝑅)}))
377	374, 376	eqtrd 2800	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = ({𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} × {(0_g‘𝑅)}))
378	377	fveq1d 6887	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (({𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} × {(0_g‘𝑅)})‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
379		fvex 6898	. . . . . . . . . . . . . . 15 ⊢ (0_g‘𝑅) ∈ V
380	379	fvconst2 7206	. . . . . . . . . . . . . 14 ⊢ ((𝑌 ↾ (𝐼 ∖ 𝐽)) ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} → (({𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} × {(0_g‘𝑅)})‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (0_g‘𝑅))
381	356, 380	syl 18	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (({𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} × {(0_g‘𝑅)})‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (0_g‘𝑅))
382	378, 381	eqtrd 2800	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (0_g‘𝑅))
383	373, 382	ifeq12d 4511	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))), (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) = if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))
384	361, 383	eqtrid 2812	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))
385	384	oveq2d 7432	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)(((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) = ((𝐹‘𝑔)(._r‘𝑅)if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))))
386		ifan 4543	. . . . . . . . . . 11 ⊢ if(((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽))), (1_r‘𝑅), (0_g‘𝑅)) = if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))
387	386	oveq2i 7427	. . . . . . . . . 10 ⊢ ((𝐹‘𝑔)(._r‘𝑅)if(((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽))), (1_r‘𝑅), (0_g‘𝑅))) = ((𝐹‘𝑔)(._r‘𝑅)if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))
388	14	psrbagf 22097	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑌 ∈ 𝐷 → 𝑌:𝐼⟶ℕ₀)
389	260, 388	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑌:𝐼⟶ℕ₀)
390	389	ffnd 6710	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑌 Fn 𝐼)
391	390	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑌 Fn 𝐼)
392		undif 4445	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐽 ⊆ 𝐼 ↔ (𝐽 ∪ (𝐼 ∖ 𝐽)) = 𝐼)
393	8, 392	sylib 221	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐽 ∪ (𝐼 ∖ 𝐽)) = 𝐼)
394	393	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐽 ∪ (𝐼 ∖ 𝐽)) = 𝐼)
395	394	fneq2d 6633	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑌 Fn (𝐽 ∪ (𝐼 ∖ 𝐽)) ↔ 𝑌 Fn 𝐼))
396	391, 395	mpbird 260	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑌 Fn (𝐽 ∪ (𝐼 ∖ 𝐽)))
397	88	ffnd 6710	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑔 Fn 𝐼)
398	394	fneq2d 6633	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑔 Fn (𝐽 ∪ (𝐼 ∖ 𝐽)) ↔ 𝑔 Fn 𝐼))
399	397, 398	mpbird 260	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑔 Fn (𝐽 ∪ (𝐼 ∖ 𝐽)))
400		eqfnun 7036	. . . . . . . . . . . . . 14 ⊢ ((𝑌 Fn (𝐽 ∪ (𝐼 ∖ 𝐽)) ∧ 𝑔 Fn (𝐽 ∪ (𝐼 ∖ 𝐽))) → (𝑌 = 𝑔 ↔ ((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)))))
401	396, 399, 400	syl2anc 596	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑌 = 𝑔 ↔ ((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)))))
402	401	ifbid 4513	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → if(𝑌 = 𝑔, (1_r‘𝑅), (0_g‘𝑅)) = if(((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽))), (1_r‘𝑅), (0_g‘𝑅)))
403	402	oveq2d 7432	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)if(𝑌 = 𝑔, (1_r‘𝑅), (0_g‘𝑅))) = ((𝐹‘𝑔)(._r‘𝑅)if(((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽))), (1_r‘𝑅), (0_g‘𝑅))))
404		ovif2 7515	. . . . . . . . . . 11 ⊢ ((𝐹‘𝑔)(._r‘𝑅)if(𝑌 = 𝑔, (1_r‘𝑅), (0_g‘𝑅))) = if(𝑌 = 𝑔, ((𝐹‘𝑔)(._r‘𝑅)(1_r‘𝑅)), ((𝐹‘𝑔)(._r‘𝑅)(0_g‘𝑅)))
405	403, 404	eqtr3di 2815	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)if(((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽))), (1_r‘𝑅), (0_g‘𝑅))) = if(𝑌 = 𝑔, ((𝐹‘𝑔)(._r‘𝑅)(1_r‘𝑅)), ((𝐹‘𝑔)(._r‘𝑅)(0_g‘𝑅))))
406	387, 405	eqtr3id 2814	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))) = if(𝑌 = 𝑔, ((𝐹‘𝑔)(._r‘𝑅)(1_r‘𝑅)), ((𝐹‘𝑔)(._r‘𝑅)(0_g‘𝑅))))
407	385, 406	eqtrd 2800	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)(((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) = if(𝑌 = 𝑔, ((𝐹‘𝑔)(._r‘𝑅)(1_r‘𝑅)), ((𝐹‘𝑔)(._r‘𝑅)(0_g‘𝑅))))
408	7	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑅 ∈ CRing)
409	3, 257, 286, 365, 176, 158, 160, 57, 408, 367	mplcoe2 22221	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅))) = ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑔 ↾ (𝐼 ∖ 𝐽))‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
410		simpr 490	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → 𝑘 ∈ (𝐼 ∖ 𝐽))
411	410	fvresd 6905	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑔 ↾ (𝐼 ∖ 𝐽))‘𝑘) = (𝑔‘𝑘))
412	411	oveq1d 7431	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝑔 ↾ (𝐼 ∖ 𝐽))‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) = ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
413	412	mpteq2dva 5206	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑔 ↾ (𝐼 ∖ 𝐽))‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
414	413	oveq2d 7432	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑔 ↾ (𝐼 ∖ 𝐽))‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) = ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
415	409, 414	eqtrd 2800	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅))) = ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
416		eqid 2765	. . . . . . . . . . . . 13 ⊢ (𝑗 ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} ↦ if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (𝑗 ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} ↦ if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
417		eqeq1 2769	. . . . . . . . . . . . . 14 ⊢ (𝑗 = (𝑌 ↾ 𝐽) → (𝑗 = (𝑔 ↾ 𝐽) ↔ (𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽)))
418	417	ifbid 4513	. . . . . . . . . . . . 13 ⊢ (𝑗 = (𝑌 ↾ 𝐽) → if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
419		fvexd 6900	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ V)
420		fvexd 6900	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ V)
421	419, 420	ifcld 4536	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ V)
422	416, 418, 328, 421	fvmptd3 7017	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑗 ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} ↦ if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ 𝐽)) = if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
423	23	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ CRing)
424	14, 265, 84, 191, 71	psrbagres 22109	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑔 ↾ 𝐽) ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin})
425	4, 265, 250, 364, 206, 16, 17, 48, 423, 424	mplcoe2 22221	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑗 ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} ↦ if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))) = ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ (((𝑔 ↾ 𝐽)‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))
426		simpr 490	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → 𝑘 ∈ 𝐽)
427	426	fvresd 6905	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → ((𝑔 ↾ 𝐽)‘𝑘) = (𝑔‘𝑘))
428	427	oveq1d 7431	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → (((𝑔 ↾ 𝐽)‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)) = ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))
429	428	mpteq2dva 5206	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐽 ↦ (((𝑔 ↾ 𝐽)‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))) = (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))
430	429	oveq2d 7432	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ (((𝑔 ↾ 𝐽)‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))) = ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))
431	425, 430	eqtrd 2800	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑗 ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} ↦ if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))) = ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))
432	431	fveq1d 6887	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑗 ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} ↦ if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ 𝐽)) = (((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))
433	422, 432	eqtr3d 2802	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))
434	415, 433	oveq12d 7434	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽))))
435	434	fveq1d 6887	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = ((((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
436	435	oveq2d 7432	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)(((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) = ((𝐹‘𝑔)(._r‘𝑅)((((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))))
437	68, 355, 365, 366, 75	ringridmd 20380	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)(1_r‘𝑅)) = (𝐹‘𝑔))
438	68, 355, 286, 366, 75	ringrzd 20404	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)(0_g‘𝑅)) = (0_g‘𝑅))
439	437, 438	ifeq12d 4511	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → if(𝑌 = 𝑔, ((𝐹‘𝑔)(._r‘𝑅)(1_r‘𝑅)), ((𝐹‘𝑔)(._r‘𝑅)(0_g‘𝑅))) = if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))
440	407, 436, 439	3eqtr3d 2808	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)((((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) = if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))
441	354, 357, 440	3eqtrd 2804	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))
442	441	mpteq2dva 5206	. . . . 5 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ (((((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) = (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))))
443	336, 442	eqtrd 2800	. . . 4 ⊢ (𝜑 → ((𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∘ ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))) = (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))))
444	443	oveq2d 7432	. . 3 ⊢ (𝜑 → (𝑅 Σ_g ((𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∘ ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))))) = (𝑅 Σ_g (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))))
445	58	ringcmnd 20391	. . . 4 ⊢ (𝜑 → 𝑅 ∈ CMnd)
446	68, 286	ring0cl 20374	. . . . . . . 8 ⊢ (𝑅 ∈ Ring → (0_g‘𝑅) ∈ (Base‘𝑅))
447	58, 446	syl 18	. . . . . . 7 ⊢ (𝜑 → (0_g‘𝑅) ∈ (Base‘𝑅))
448	447	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘𝑅) ∈ (Base‘𝑅))
449	75, 448	ifcld 4536	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)) ∈ (Base‘𝑅))
450	449	fmpttd 7114	. . . 4 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))):𝐷⟶(Base‘𝑅))
451		eldifsnneq 4761	. . . . . . . 8 ⊢ (𝑔 ∈ (𝐷 ∖ {𝑌}) → ¬ 𝑔 = 𝑌)
452	451	neqcomd 2775	. . . . . . 7 ⊢ (𝑔 ∈ (𝐷 ∖ {𝑌}) → ¬ 𝑌 = 𝑔)
453	452	iffalsed 4500	. . . . . 6 ⊢ (𝑔 ∈ (𝐷 ∖ {𝑌}) → if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)) = (0_g‘𝑅))
454	453	adantl 487	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝐷 ∖ {𝑌})) → if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)) = (0_g‘𝑅))
455	454, 256	suppss2 8198	. . . 4 ⊢ (𝜑 → ((𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) supp (0_g‘𝑅)) ⊆ {𝑌})
456	256	mptexd 7226	. . . . 5 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) ∈ V)
457		funmpt 6578	. . . . . 6 ⊢ Fun (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))
458	457	a1i 11	. . . . 5 ⊢ (𝜑 → Fun (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))))
459		snfi 9043	. . . . . . 7 ⊢ {𝑌} ∈ Fin
460	459	a1i 11	. . . . . 6 ⊢ (𝜑 → {𝑌} ∈ Fin)
461	460, 455	ssfid 9232	. . . . 5 ⊢ (𝜑 → ((𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) supp (0_g‘𝑅)) ∈ Fin)
462	456, 447, 458, 461	isfsuppd 9329	. . . 4 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) finSupp (0_g‘𝑅))
463	68, 286, 445, 256, 450, 455, 462	gsumres 20006	. . 3 ⊢ (𝜑 → (𝑅 Σ_g ((𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) ↾ {𝑌})) = (𝑅 Σ_g (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))))
464	260	snssd 4754	. . . . . 6 ⊢ (𝜑 → {𝑌} ⊆ 𝐷)
465	464	resmptd 6044	. . . . 5 ⊢ (𝜑 → ((𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) ↾ {𝑌}) = (𝑔 ∈ {𝑌} ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))))
466	465	oveq2d 7432	. . . 4 ⊢ (𝜑 → (𝑅 Σ_g ((𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) ↾ {𝑌})) = (𝑅 Σ_g (𝑔 ∈ {𝑌} ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))))
467	69, 260	ffvelcdmd 7084	. . . . 5 ⊢ (𝜑 → (𝐹‘𝑌) ∈ (Base‘𝑅))
468		iftrue 4495	. . . . . . . 8 ⊢ (𝑌 = 𝑔 → if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)) = (𝐹‘𝑔))
469	468	eqcoms 2773	. . . . . . 7 ⊢ (𝑔 = 𝑌 → if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)) = (𝐹‘𝑔))
470		fveq2 6885	. . . . . . 7 ⊢ (𝑔 = 𝑌 → (𝐹‘𝑔) = (𝐹‘𝑌))
471	469, 470	eqtrd 2800	. . . . . 6 ⊢ (𝑔 = 𝑌 → if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)) = (𝐹‘𝑌))
472	68, 471	gsumsn 20047	. . . . 5 ⊢ ((𝑅 ∈ Mnd ∧ 𝑌 ∈ 𝐷 ∧ (𝐹‘𝑌) ∈ (Base‘𝑅)) → (𝑅 Σ_g (𝑔 ∈ {𝑌} ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))) = (𝐹‘𝑌))
473	253, 260, 467, 472	syl3anc 1398	. . . 4 ⊢ (𝜑 → (𝑅 Σ_g (𝑔 ∈ {𝑌} ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))) = (𝐹‘𝑌))
474	466, 473	eqtrd 2800	. . 3 ⊢ (𝜑 → (𝑅 Σ_g ((𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) ↾ {𝑌})) = (𝐹‘𝑌))
475	444, 463, 474	3eqtr2d 2806	. 2 ⊢ (𝜑 → (𝑅 Σ_g ((𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∘ ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∘ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))))))) = (𝐹‘𝑌))
476	249, 326, 475	3eqtrd 2804	1 ⊢ (𝜑 → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (𝐹‘𝑌))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2146 {crab 3418 Vcvv 3457 ∖ cdif 3903 ∪ cun 3904 ∩ cin 3905 ⊆ wss 3906 ∅c0 4286 ifcif 4489 {csn 4591 class class class wbr 5111 ↦ cmpt 5194 × cxp 5661 ^◡ccnv 5662 ↾ cres 5665 “ cima 5666 ∘ ccom 5667 Fun wfun 6534 Fn wfn 6535 ⟶wf 6536 ‘cfv 6540 (class class class)co 7416 supp csupp 8158 ↑_m cmap 8826 Fincfn 8945 finSupp cfsupp 9324 0cc0 11111 ℕcn 12244 ℕ₀cn0 12515 ℤcz 12602 Basecbs 17286 ._rcmulr 17328 Scalarcsca 17330 ·_𝑠 cvsca 17331 0_gc0g 17509 Σ_g cgsu 17510 Mndcmnd 18813 MndHom cmhm 18862 ._gcmg 19156 GrpHom cghm 19306 CMndccmn 19873 mulGrpcmgp 20239 1_rcur 20286 Ringcrg 20338 CRingccrg 20339 RingHom crh 20576 LModclmod 21010 AssAlgcasa 22029 algSccascl 22031 mVar cmvr 22084 mPoly cmpl 22085 eval cevl 22253 selectVars cslv 22296

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2195 ax-12 2216 ax-ext 2737 ax-rep 5240 ax-sep 5259 ax-nul 5271 ax-pow 5338 ax-pr 5406 ax-un 7738 ax-cnex 11167 ax-resscn 11168 ax-1cn 11169 ax-icn 11170 ax-addcl 11171 ax-addrcl 11172 ax-mulcl 11173 ax-mulrcl 11174 ax-mulcom 11175 ax-addass 11176 ax-mulass 11177 ax-distr 11178 ax-i2m1 11179 ax-1ne0 11180 ax-1rid 11181 ax-rnegex 11182 ax-rrecex 11183 ax-cnre 11184 ax-pre-lttri 11185 ax-pre-lttrn 11186 ax-pre-ltadd 11187 ax-pre-mulgt0 11188

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2569 df-eu 2599 df-clab 2744 df-cleq 2757 df-clel 2840 df-nfc 2914 df-ne 2961 df-nel 3067 df-ral 3082 df-rex 3092 df-rmo 3371 df-reu 3372 df-rab 3419 df-v 3459 df-sbc 3747 df-csb 3855 df-dif 3909 df-un 3911 df-in 3913 df-ss 3923 df-pss 3926 df-nul 4287 df-if 4490 df-pw 4566 df-sn 4592 df-pr 4594 df-tp 4596 df-op 4598 df-uni 4875 df-int 4915 df-iun 4960 df-iin 4961 df-br 5112 df-opab 5176 df-mpt 5195 df-tr 5221 df-id 5558 df-eprel 5563 df-po 5571 df-so 5572 df-fr 5616 df-se 5617 df-we 5618 df-xp 5669 df-rel 5670 df-cnv 5671 df-co 5672 df-dm 5673 df-rn 5674 df-res 5675 df-ima 5676 df-pred 6306 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6496 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-isom 6549 df-riota 7373 df-ov 7419 df-oprab 7420 df-mpo 7421 df-of 7680 df-ofr 7681 df-om 7865 df-1st 7988 df-2nd 7989 df-supp 8159 df-frecs 8280 df-wrecs 8311 df-recs 8360 df-rdg 8399 df-1o 8455 df-2o 8456 df-er 8696 df-map 8828 df-pm 8829 df-ixp 8898 df-en 8946 df-dom 8947 df-sdom 8948 df-fin 8949 df-fsupp 9325 df-sup 9405 df-oi 9475 df-card 9937 df-pnf 11256 df-mnf 11257 df-xr 11258 df-ltxr 11259 df-le 11260 df-sub 11454 df-neg 11455 df-nn 12245 df-2 12314 df-3 12315 df-4 12316 df-5 12317 df-6 12318 df-7 12319 df-8 12320 df-9 12321 df-n0 12516 df-z 12603 df-dec 12723 df-uz 12874 df-fz 13547 df-fzo 13695 df-seq 14051 df-hash 14380 df-struct 17224 df-sets 17241 df-slot 17259 df-ndx 17271 df-base 17287 df-ress 17308 df-plusg 17340 df-mulr 17341 df-sca 17343 df-vsca 17344 df-ip 17345 df-tset 17346 df-ple 17347 df-ds 17349 df-hom 17351 df-cco 17352 df-0g 17511 df-gsum 17512 df-prds 17517 df-pws 17519 df-mre 17655 df-mrc 17656 df-acs 17658 df-mgm 18715 df-sgrp 18798 df-mnd 18814 df-mhm 18864 df-submnd 18865 df-grp 19026 df-minusg 19027 df-sbg 19028 df-mulg 19157 df-subg 19212 df-ghm 19307 df-cntz 19410 df-cmn 19875 df-abl 19876 df-mgp 20240 df-rng 20254 df-ur 20287 df-srg 20292 df-ring 20340 df-cring 20341 df-rhm 20579 df-subrng 20674 df-subrg 20698 df-lmod 21012 df-lss 21082 df-lsp 21122 df-assa 22032 df-asp 22033 df-ascl 22034 df-psr 22088 df-mvr 22089 df-mpl 22090 df-evls 22254 df-evl 22255 df-selv 22297

This theorem is used by: selvply1rhm0 33939 evlselv 43354

W3C validator