selvvvval - Mathbox for Steven Nguyen

	Mathbox for Steven Nguyen		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > selvvvval		Structured version Visualization version GIF version

Theorem selvvvval 41154

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.i	⊢ (𝜑 → 𝐼 ∈ 𝑉)
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 2732	. . . . . 6 ⊢ ((𝐼 ∖ 𝐽) mPoly 𝑅) = ((𝐼 ∖ 𝐽) mPoly 𝑅)
4		eqid 2732	. . . . . 6 ⊢ (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) = (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))
5		eqid 2732	. . . . . 6 ⊢ (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
6		eqid 2732	. . . . . 6 ⊢ ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
7		selvvvval.i	. . . . . 6 ⊢ (𝜑 → 𝐼 ∈ 𝑉)
8		selvvvval.r	. . . . . 6 ⊢ (𝜑 → 𝑅 ∈ CRing)
9		selvvvval.j	. . . . . 6 ⊢ (𝜑 → 𝐽 ⊆ 𝐼)
10		selvvvval.f	. . . . . 6 ⊢ (𝜑 → 𝐹 ∈ 𝐵)
11	1, 2, 3, 4, 5, 6, 7, 8, 9, 10	selvval2 41153	. . . . 5 ⊢ (𝜑 → (((𝐼 selectVars 𝑅)‘𝐽)‘𝐹) = (((𝐼 eval (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹))‘(𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))))
12		eqid 2732	. . . . . 6 ⊢ (𝐼 eval (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (𝐼 eval (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
13		eqid 2732	. . . . . 6 ⊢ (𝐼 mPoly (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (𝐼 mPoly (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
14		eqid 2732	. . . . . 6 ⊢ (Base‘(𝐼 mPoly (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (Base‘(𝐼 mPoly (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
15		selvvvval.d	. . . . . 6 ⊢ 𝐷 = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ (^◡ℎ “ ℕ) ∈ Fin}
16		eqid 2732	. . . . . 6 ⊢ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
17		eqid 2732	. . . . . 6 ⊢ (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
18		eqid 2732	. . . . . 6 ⊢ (._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
19		eqid 2732	. . . . . 6 ⊢ (._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
20	7, 9	ssexd 5323	. . . . . . 7 ⊢ (𝜑 → 𝐽 ∈ V)
21	7	difexd 5328	. . . . . . . 8 ⊢ (𝜑 → (𝐼 ∖ 𝐽) ∈ V)
22	3, 21, 8	mplcrngd 41115	. . . . . . 7 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ CRing)
23	4, 20, 22	mplcrngd 41115	. . . . . 6 ⊢ (𝜑 → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ CRing)
24	4	mplassa 21572	. . . . . . . . . . 11 ⊢ ((𝐽 ∈ V ∧ ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ CRing) → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ AssAlg)
25	20, 22, 24	syl2anc 584	. . . . . . . . . 10 ⊢ (𝜑 → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ AssAlg)
26		eqid 2732	. . . . . . . . . . 11 ⊢ (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
27	5, 26	asclrhm 21435	. . . . . . . . . 10 ⊢ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ AssAlg → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
28	25, 27	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
29	3	mplassa 21572	. . . . . . . . . . . 12 ⊢ (((𝐼 ∖ 𝐽) ∈ V ∧ 𝑅 ∈ CRing) → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ AssAlg)
30	21, 8, 29	syl2anc 584	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ AssAlg)
31		eqid 2732	. . . . . . . . . . . 12 ⊢ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))
32		eqid 2732	. . . . . . . . . . . 12 ⊢ (Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅))
33	31, 32	asclrhm 21435	. . . . . . . . . . 11 ⊢ (((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ AssAlg → (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ ((Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)) RingHom ((𝐼 ∖ 𝐽) mPoly 𝑅)))
34	30, 33	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ ((Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)) RingHom ((𝐼 ∖ 𝐽) mPoly 𝑅)))
35	3, 21, 8	mplsca 21563	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 = (Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
36	35	eqcomd 2738	. . . . . . . . . . 11 ⊢ (𝜑 → (Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = 𝑅)
37	4, 20, 22	mplsca 21563	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) = (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
38	36, 37	oveq12d 7423	. . . . . . . . . 10 ⊢ (𝜑 → ((Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)) RingHom ((𝐼 ∖ 𝐽) mPoly 𝑅)) = (𝑅 RingHom (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
39	34, 38	eleqtrd 2835	. . . . . . . . 9 ⊢ (𝜑 → (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ (𝑅 RingHom (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
40		rhmco 20268	. . . . . . . . 9 ⊢ (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∧ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ (𝑅 RingHom (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
41	28, 39, 40	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
42		rhmghm 20254	. . . . . . . 8 ⊢ (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 GrpHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
43		ghmmhm 19096	. . . . . . . 8 ⊢ (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 GrpHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 MndHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
44	41, 42, 43	3syl 18	. . . . . . 7 ⊢ (𝜑 → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (𝑅 MndHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
45	1, 13, 2, 14, 7, 44, 10	mhmcompl 41117	. . . . . 6 ⊢ (𝜑 → (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹) ∈ (Base‘(𝐼 mPoly (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
46		fvexd 6903	. . . . . . 7 ⊢ (𝜑 → (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ V)
47		eqid 2732	. . . . . . . . . . . 12 ⊢ (𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅)) = (𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))
48	22	crngringd 20062	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ Ring)
49	4, 47, 16, 20, 48	mvrf2 21543	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅)):𝐽⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
50	49	ffvelcdmda 7083	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐽) → ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
51	50	adantlr 713	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐼) ∧ 𝑧 ∈ 𝐽) → ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
52		eldif 3957	. . . . . . . . . . 11 ⊢ (𝑧 ∈ (𝐼 ∖ 𝐽) ↔ (𝑧 ∈ 𝐼 ∧ ¬ 𝑧 ∈ 𝐽))
53		eqid 2732	. . . . . . . . . . . . . 14 ⊢ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))
54	4, 16, 53, 5, 20, 48	mplasclf 21617	. . . . . . . . . . . . 13 ⊢ (𝜑 → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))):(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
55	54	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝐼 ∖ 𝐽)) → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))):(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
56		eqid 2732	. . . . . . . . . . . . . 14 ⊢ ((𝐼 ∖ 𝐽) mVar 𝑅) = ((𝐼 ∖ 𝐽) mVar 𝑅)
57	8	crngringd 20062	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ Ring)
58	3, 56, 53, 21, 57	mvrf2 21543	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mVar 𝑅):(𝐼 ∖ 𝐽)⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
59	58	ffvelcdmda 7083	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝐼 ∖ 𝐽)) → (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
60	55, 59	ffvelcdmd 7084	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ (𝐼 ∖ 𝐽)) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
61	52, 60	sylan2br 595	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐼 ∧ ¬ 𝑧 ∈ 𝐽)) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
62	61	anassrs 468	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝐼) ∧ ¬ 𝑧 ∈ 𝐽) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
63	51, 62	ifclda 4562	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐼) → if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
64	63	fmpttd 7111	. . . . . . 7 ⊢ (𝜑 → (𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)))):𝐼⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
65	46, 7, 64	elmapdd 8831	. . . . . 6 ⊢ (𝜑 → (𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)))) ∈ ((Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↑_m 𝐼))
66	12, 13, 14, 15, 16, 17, 18, 19, 7, 23, 45, 65	evlvvval 41142	. . . . 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 𝑅)‘𝑧))))‘𝑘))))))))
67		eqid 2732	. . . . . . . . . . . . 13 ⊢ (Base‘𝑅) = (Base‘𝑅)
68	1, 67, 2, 15, 10	mplelf 21548	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐹:𝐷⟶(Base‘𝑅))
69	68	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝐹:𝐷⟶(Base‘𝑅))
70		simpr 485	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑔 ∈ 𝐷)
71	69, 70	fvco3d 6988	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹)‘𝑔) = (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝐹‘𝑔)))
72	3, 53, 67, 31, 21, 57	mplasclf 21617	. . . . . . . . . . . 12 ⊢ (𝜑 → (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)):(Base‘𝑅)⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
73	72	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)):(Base‘𝑅)⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
74	68	ffvelcdmda 7083	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐹‘𝑔) ∈ (Base‘𝑅))
75	73, 74	fvco3d 6988	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝐹‘𝑔)) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))))
76	71, 75	eqtrd 2772	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ 𝐹)‘𝑔) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))))
77	17, 16	mgpbas 19987	. . . . . . . . . . . 12 ⊢ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (Base‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
78		eqid 2732	. . . . . . . . . . . 12 ⊢ (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
79	17, 19	mgpplusg 19985	. . . . . . . . . . . 12 ⊢ (._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (+_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
80	17	crngmgp 20057	. . . . . . . . . . . . . 14 ⊢ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ CRing → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ CMnd)
81	23, 80	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ CMnd)
82	81	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ CMnd)
83	7	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝐼 ∈ 𝑉)
84	81	cmnmndd 19666	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ Mnd)
85	84	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ Mnd)
86	15	psrbagf 21462	. . . . . . . . . . . . . . . 16 ⊢ (𝑔 ∈ 𝐷 → 𝑔:𝐼⟶ℕ₀)
87	86	adantl 482	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑔:𝐼⟶ℕ₀)
88	87	ffvelcdmda 7083	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → (𝑔‘𝑘) ∈ ℕ₀)
89		eqid 2732	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)))) = (𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))
90		eleq1w 2816	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑘 → (𝑧 ∈ 𝐽 ↔ 𝑘 ∈ 𝐽))
91		fveq2 6888	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑘 → ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧) = ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))
92		fveq2 6888	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 = 𝑘 → (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧) = (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))
93	92	fveq2d 6892	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑘 → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧)) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
94	90, 91, 93	ifbieq12d 4555	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = 𝑘 → if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))) = if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
95		simpr 485	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → 𝑘 ∈ 𝐼)
96	49	ffvelcdmda 7083	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐽) → ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
97	96	adantlr 713	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
98	97	adantlr 713	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) ∧ 𝑘 ∈ 𝐽) → ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
99		eldif 3957	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ (𝐼 ∖ 𝐽) ↔ (𝑘 ∈ 𝐼 ∧ ¬ 𝑘 ∈ 𝐽))
100	54	adantr 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))):(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
101	58	ffvelcdmda 7083	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
102	100, 101	ffvelcdmd 7084	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
103	99, 102	sylan2br 595	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝑘 ∈ 𝐼 ∧ ¬ 𝑘 ∈ 𝐽)) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
104	103	anassrs 468	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐼) ∧ ¬ 𝑘 ∈ 𝐽) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
105	104	adantllr 717	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) ∧ ¬ 𝑘 ∈ 𝐽) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
106	98, 105	ifclda 4562	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
107	89, 94, 95, 106	fvmptd3 7018	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → ((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘) = if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
108	107, 106	eqeltrd 2833	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → ((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
109	77, 18, 85, 88, 108	mulgnn0cld 18969	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐼) → ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
110	109	fmpttd 7111	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))):𝐼⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
111	7	mptexd 7222	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ∈ V)
112	111	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ∈ V)
113		fvexd 6903	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∈ V)
114		funmpt 6583	. . . . . . . . . . . . . 14 ⊢ Fun (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘)))
115	114	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → Fun (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))))
116	87	feqmptd 6957	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑔 = (𝑘 ∈ 𝐼 ↦ (𝑔‘𝑘)))
117	15	psrbagfsupp 21464	. . . . . . . . . . . . . . 15 ⊢ (𝑔 ∈ 𝐷 → 𝑔 finSupp 0)
118	117	adantl 482	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑔 finSupp 0)
119	116, 118	eqbrtrrd 5171	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐼 ↦ (𝑔‘𝑘)) finSupp 0)
120		ssidd 4004	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ 𝐼 ↦ (𝑔‘𝑘)) supp 0) ⊆ ((𝑘 ∈ 𝐼 ↦ (𝑔‘𝑘)) supp 0))
121	77, 78, 18	mulg0 18951	. . . . . . . . . . . . . . 15 ⊢ (𝑡 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) → (0(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))𝑡) = (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
122	121	adantl 482	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑡 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → (0(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))𝑡) = (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
123		0zd 12566	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 0 ∈ ℤ)
124	120, 122, 88, 108, 123	suppssov1 8179	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) supp (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) ⊆ ((𝑘 ∈ 𝐼 ↦ (𝑔‘𝑘)) supp 0))
125	112, 113, 115, 119, 124	fsuppsssuppgd 41061	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) finSupp (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
126		disjdifr 4471	. . . . . . . . . . . . 13 ⊢ ((𝐼 ∖ 𝐽) ∩ 𝐽) = ∅
127	126	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐼 ∖ 𝐽) ∩ 𝐽) = ∅)
128		undifr 4481	. . . . . . . . . . . . . . 15 ⊢ (𝐽 ⊆ 𝐼 ↔ ((𝐼 ∖ 𝐽) ∪ 𝐽) = 𝐼)
129	9, 128	sylib 217	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) ∪ 𝐽) = 𝐼)
130	129	eqcomd 2738	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐼 = ((𝐼 ∖ 𝐽) ∪ 𝐽))
131	130	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝐼 = ((𝐼 ∖ 𝐽) ∪ 𝐽))
132	77, 78, 79, 82, 83, 110, 125, 127, 131	gsumsplit 19790	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((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 𝑅)‘𝑧))))‘𝑘))) ↾ 𝐽))))
133		difssd 4131	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐼 ∖ 𝐽) ⊆ 𝐼)
134	133	resmptd 6038	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ (𝐼 ∖ 𝐽)) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))))
135		eldifi 4125	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ (𝐼 ∖ 𝐽) → 𝑘 ∈ 𝐼)
136	135	adantl 482	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → 𝑘 ∈ 𝐼)
137	135, 106	sylan2 593	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
138	89, 94, 136, 137	fvmptd3 7018	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘) = if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
139		eldifn 4126	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 ∈ (𝐼 ∖ 𝐽) → ¬ 𝑘 ∈ 𝐽)
140	139	adantl 482	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ¬ 𝑘 ∈ 𝐽)
141	140	iffalsed 4538	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
142	138, 141	eqtrd 2772	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
143	142	oveq2d 7421	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘)) = ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
144	143	mpteq2dva 5247	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
145	134, 144	eqtrd 2772	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ (𝐼 ∖ 𝐽)) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
146	145	oveq2d 7421	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ (𝐼 ∖ 𝐽))) = ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))))
147	9	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝐽 ⊆ 𝐼)
148	147	resmptd 6038	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ 𝐽) = (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))))
149	9	sselda 3981	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐽) → 𝑘 ∈ 𝐼)
150	149	adantlr 713	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → 𝑘 ∈ 𝐼)
151	150, 106	syldan 591	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
152	89, 94, 150, 151	fvmptd3 7018	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → ((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘) = if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
153		iftrue 4533	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ 𝐽 → if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) = ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))
154	153	adantl 482	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → if(𝑘 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) = ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))
155	152, 154	eqtrd 2772	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → ((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘) = ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))
156	155	oveq2d 7421	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘)) = ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))
157	156	mpteq2dva 5247	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) = (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))
158	148, 157	eqtrd 2772	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘))) ↾ 𝐽) = (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))
159	158	oveq2d 7421	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((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 𝑅))‘𝑘)))))
160	146, 159	oveq12d 7423	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((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 𝑅)‘𝑧))))‘𝑘))) ↾ 𝐽))) = (((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))
161	54	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))):(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
162	4, 20, 30	mplsca 21563	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) = (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
163	162	fveq2d 6892	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
164	163	fveq2d 6892	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))))
165	164	ad2antrr 724	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))))
166	165	oveqd 7422	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) = ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
167		eqid 2732	. . . . . . . . . . . . . . . . . . . 20 ⊢ (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))
168	167, 53	mgpbas 19987	. . . . . . . . . . . . . . . . . . 19 ⊢ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (Base‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
169		eqid 2732	. . . . . . . . . . . . . . . . . . 19 ⊢ (._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
170	167	crngmgp 20057	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ CRing → (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ CMnd)
171	22, 170	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ CMnd)
172	171	cmnmndd 19666	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ Mnd)
173	172	ad2antrr 724	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ Mnd)
174	135, 88	sylan2 593	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (𝑔‘𝑘) ∈ ℕ₀)
175	21	ad2antrr 724	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (𝐼 ∖ 𝐽) ∈ V)
176	57	ad2antrr 724	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → 𝑅 ∈ Ring)
177		simpr 485	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → 𝑘 ∈ (𝐼 ∖ 𝐽))
178	3, 56, 53, 175, 176, 177	mvrcl 21542	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
179	168, 169, 173, 174, 178	mulgnn0cld 18969	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
180	166, 179	eqeltrrd 2834	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
181	161, 180	cofmpt 7126	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
182		eqid 2732	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
183	182, 17	rhmmhm 20250	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) RingHom (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) MndHom (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
184	28, 183	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) MndHom (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
185	184	ad2antrr 724	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) MndHom (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
186	162	fveq2d 6892	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
187	186	ad2antrr 724	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
188	178, 187	eleqtrd 2835	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘) ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
189		eqid 2732	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
190	182, 189	mgpbas 19987	. . . . . . . . . . . . . . . . . . 19 ⊢ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (Base‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
191		eqid 2732	. . . . . . . . . . . . . . . . . . 19 ⊢ (._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) = (._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
192	190, 191, 18	mhmmulg 18989	. . . . . . . . . . . . . . . . . 18 ⊢ (((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 𝑅)‘𝑘))))
193	185, 174, 188, 192	syl3anc 1371	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) = ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
194	193	mpteq2dva 5247	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
195	181, 194	eqtrd 2772	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
196	195	oveq2d 7421	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∘ (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))) = ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))))
197		eqid 2732	. . . . . . . . . . . . . . 15 ⊢ (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) = (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
198	162, 22	eqeltrrd 2834	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ CRing)
199	182	crngmgp 20057	. . . . . . . . . . . . . . . . 17 ⊢ ((Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ CRing → (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∈ CMnd)
200	198, 199	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∈ CMnd)
201	200	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∈ CMnd)
202	84	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ Mnd)
203	21	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐼 ∖ 𝐽) ∈ V)
204	184	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) MndHom (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
205	37, 48	eqeltrrd 2834	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ Ring)
206	182	ringmgp 20055	. . . . . . . . . . . . . . . . . . 19 ⊢ ((Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ Ring → (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∈ Mnd)
207	205, 206	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∈ Mnd)
208	207	ad2antrr 724	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∈ Mnd)
209	190, 191, 208, 174, 188	mulgnn0cld 18969	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
210	209	fmpttd 7111	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))):(𝐼 ∖ 𝐽)⟶(Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
211	21	mptexd 7222	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) ∈ V)
212	211	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) ∈ V)
213		fvexd 6903	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) ∈ V)
214		funmpt 6583	. . . . . . . . . . . . . . . . 17 ⊢ Fun (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
215	214	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → Fun (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
216	119, 133, 123	fmptssfisupp 9385	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (𝑔‘𝑘)) finSupp 0)
217		ssidd 4004	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (𝑔‘𝑘)) supp 0) ⊆ ((𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (𝑔‘𝑘)) supp 0))
218	186	eqimssd 4037	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ⊆ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
219	218	sselda 3981	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑢 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))) → 𝑢 ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
220	219	adantlr 713	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑢 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))) → 𝑢 ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
221	190, 197, 191	mulg0 18951	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑢 ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → (0(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))𝑢) = (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))))
222	220, 221	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑢 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))) → (0(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))𝑢) = (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))))
223	101	adantlr 713	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
224	217, 222, 174, 223, 123	suppssov1 8179	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) supp (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))) ⊆ ((𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (𝑔‘𝑘)) supp 0))
225	212, 213, 215, 216, 224	fsuppsssuppgd 41061	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) finSupp (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))))
226	190, 197, 201, 202, 203, 204, 210, 225	gsummhm 19800	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((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 𝑅)‘𝑘))))))
227	196, 226	eqtr3d 2774	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))) = ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))))
228	227	oveq1d 7420	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))(._r‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) 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 𝑅))‘𝑘))))))
229	25	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ AssAlg)
230	58	adantr 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐼 ∖ 𝐽) mVar 𝑅):(𝐼 ∖ 𝐽)⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
231	230	ffvelcdmda 7083	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
232	217, 222, 174, 231, 123	suppssov1 8179	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) supp (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))) ⊆ ((𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (𝑔‘𝑘)) supp 0))
233	212, 213, 215, 216, 232	fsuppsssuppgd 41061	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) finSupp (0_g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))))
234	190, 197, 201, 203, 210, 233	gsumcl 19777	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
235	20	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝐽 ∈ V)
236	84	ad2antrr 724	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → (mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ Mnd)
237	150, 88	syldan 591	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → (𝑔‘𝑘) ∈ ℕ₀)
238	77, 18, 236, 237, 97	mulgnn0cld 18969	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
239	238	fmpttd 7111	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))):𝐽⟶(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
240	20	mptexd 7222	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))) ∈ V)
241	240	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))) ∈ V)
242		funmpt 6583	. . . . . . . . . . . . . . . 16 ⊢ Fun (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))
243	242	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → Fun (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))
244	119, 147, 123	fmptssfisupp 9385	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐽 ↦ (𝑔‘𝑘)) finSupp 0)
245		ssidd 4004	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ 𝐽 ↦ (𝑔‘𝑘)) supp 0) ⊆ ((𝑘 ∈ 𝐽 ↦ (𝑔‘𝑘)) supp 0))
246	245, 122, 237, 97, 123	suppssov1 8179	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))) supp (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) ⊆ ((𝑘 ∈ 𝐽 ↦ (𝑔‘𝑘)) supp 0))
247	241, 113, 243, 244, 246	fsuppsssuppgd 41061	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))) finSupp (0_g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
248	77, 78, 82, 235, 239, 247	gsumcl 19777	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
249		eqid 2732	. . . . . . . . . . . . . 14 ⊢ ( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = ( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
250	5, 26, 189, 16, 19, 249	asclmul1 21431	. . . . . . . . . . . . 13 ⊢ (((𝐽 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 𝑅))‘𝑘))))))
251	229, 234, 248, 250	syl3anc 1371	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((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 𝑅))‘𝑘))))))
252	228, 251	eqtrd 2772	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((algSc‘(𝐽 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 𝑅))‘𝑘))))))
253	132, 160, 252	3eqtrd 2776	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐼 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝑧 ∈ 𝐼 ↦ if(𝑧 ∈ 𝐽, ((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑧), ((algSc‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑧))))‘𝑘)))) = (((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))
254	164	oveqd 7422	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) = ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
255	254	mpteq2dv 5249	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
256	163, 255	oveq12d 7423	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) = ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
257	256	eqcomd 2738	. . . . . . . . . . . 12 ⊢ (𝜑 → ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) = ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
258	257	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) = ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
259	258	oveq1d 7420	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 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 𝑅))‘𝑘))))))
260	253, 259	eqtrd 2772	. . . . . . . . 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 𝑅))‘𝑘))))))
261	76, 260	oveq12d 7423	. . . . . . . 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 𝑅))‘𝑘)))))))
262	73, 74	ffvelcdmd 7084	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
263	186	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
264	262, 263	eleqtrd 2835	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)) ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
265	4, 20, 48	mpllmodd 41113	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ LMod)
266	265	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ LMod)
267		eqid 2732	. . . . . . . . . . . 12 ⊢ (0_g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (0_g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
268	171	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ CMnd)
269	179	fmpttd 7111	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))):(𝐼 ∖ 𝐽)⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
270	21	mptexd 7222	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) ∈ V)
271	270	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) ∈ V)
272		fvexd 6903	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ V)
273		funmpt 6583	. . . . . . . . . . . . . 14 ⊢ Fun (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
274	273	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → Fun (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
275	168, 267, 169	mulg0 18951	. . . . . . . . . . . . . . 15 ⊢ (𝑒 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) → (0(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))𝑒) = (0_g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
276	275	adantl 482	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑒 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅))) → (0(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))𝑒) = (0_g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
277	217, 276, 174, 178, 123	suppssov1 8179	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) supp (0_g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))) ⊆ ((𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (𝑔‘𝑘)) supp 0))
278	271, 272, 274, 216, 277	fsuppsssuppgd 41061	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) finSupp (0_g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
279	168, 267, 268, 203, 269, 278	gsumcl 19777	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
280	279, 263	eleqtrd 2835	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) ∈ (Base‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
281	16, 26, 249, 189, 266, 280, 248	lmodvscld 41101	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
282	5, 26, 189, 16, 19, 249	asclmul1 21431	. . . . . . . . 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 𝑅))‘𝑘)))))))
283	229, 264, 281, 282	syl3anc 1371	. . . . . . . 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 𝑅))‘𝑘)))))))
284	261, 283	eqtrd 2772	. . . . . . 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 𝑅))‘𝑘)))))))
285	284	mpteq2dva 5247	. . . . . 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 𝑅))‘𝑘))))))))
286	285	oveq2d 7421	. . . . 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 𝑅))‘𝑘)))))))))
287	11, 66, 286	3eqtrd 2776	. . . 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 𝑅))‘𝑘)))))))))
288	287	fveq1d 6890	. . 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 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽)))
289	288	fveq1d 6890	. 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 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
290		eqid 2732	. . . 4 ⊢ (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))
291	48	ringcmnd 20094	. . . 4 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ CMnd)
292	8	crnggrpd 20063	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ Grp)
293	292	grpmndd 18828	. . . 4 ⊢ (𝜑 → 𝑅 ∈ Mnd)
294		ovex 7438	. . . . . 6 ⊢ (ℕ₀ ↑_m 𝐼) ∈ V
295	15, 294	rabex2 5333	. . . . 5 ⊢ 𝐷 ∈ V
296	295	a1i 11	. . . 4 ⊢ (𝜑 → 𝐷 ∈ V)
297		eqid 2732	. . . . . 6 ⊢ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} = {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin}
298		eqid 2732	. . . . . 6 ⊢ (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) = (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
299		difssd 4131	. . . . . . 7 ⊢ (𝜑 → (𝐼 ∖ 𝐽) ⊆ 𝐼)
300		selvvvval.y	. . . . . . 7 ⊢ (𝜑 → 𝑌 ∈ 𝐷)
301	15, 297, 7, 299, 300	psrbagres 41112	. . . . . 6 ⊢ (𝜑 → (𝑌 ↾ (𝐼 ∖ 𝐽)) ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin})
302	3, 53, 297, 298, 21, 292, 301	mplmapghm 41125	. . . . 5 ⊢ (𝜑 → (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∈ (((𝐼 ∖ 𝐽) mPoly 𝑅) GrpHom 𝑅))
303		ghmmhm 19096	. . . . 5 ⊢ ((𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∈ (((𝐼 ∖ 𝐽) mPoly 𝑅) GrpHom 𝑅) → (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∈ (((𝐼 ∖ 𝐽) mPoly 𝑅) MndHom 𝑅))
304	302, 303	syl 17	. . . 4 ⊢ (𝜑 → (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) ∈ (((𝐼 ∖ 𝐽) mPoly 𝑅) MndHom 𝑅))
305		eqid 2732	. . . . . . . 8 ⊢ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} = {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin}
306		simpr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → 𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
307	4, 53, 16, 305, 306	mplelf 21548	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → 𝑤:{𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin}⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
308	15, 305, 7, 9, 300	psrbagres 41112	. . . . . . . 8 ⊢ (𝜑 → (𝑌 ↾ 𝐽) ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin})
309	308	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → (𝑌 ↾ 𝐽) ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin})
310	307, 309	ffvelcdmd 7084	. . . . . 6 ⊢ ((𝜑 ∧ 𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → (𝑤‘(𝑌 ↾ 𝐽)) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
311	310	fmpttd 7111	. . . . 5 ⊢ (𝜑 → (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))):(Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
312	16, 26, 249, 189, 266, 264, 281	lmodvscld 41101	. . . . . 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 𝑅))))
313	312	fmpttd 7111	. . . . 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 𝑅))))
314	311, 313	fcod 6740	. . . 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 𝑅)))
315		fvexd 6903	. . . . 5 ⊢ (𝜑 → (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ V)
316	23	crngringd 20062	. . . . . 6 ⊢ (𝜑 → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ Ring)
317		eqid 2732	. . . . . . 7 ⊢ (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) = (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))
318	16, 317	ring0cl 20077	. . . . . 6 ⊢ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ Ring → (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
319	316, 318	syl 17	. . . . 5 ⊢ (𝜑 → (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
320		ssidd 4004	. . . . 5 ⊢ (𝜑 → (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ⊆ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
321	295	mptex 7221	. . . . . . 7 ⊢ (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))) ∈ V
322	321	a1i 11	. . . . . 6 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ (((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		fvexd 6903	. . . . . 6 ⊢ (𝜑 → (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ V)
324		funmpt 6583	. . . . . . 7 ⊢ Fun (𝑔 ∈ 𝐷 ↦ (((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	a1i 11	. . . . . 6 ⊢ (𝜑 → Fun (𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))))
326	295	mptex 7221	. . . . . . . 8 ⊢ (𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))) ∈ V
327	326	a1i 11	. . . . . . 7 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))) ∈ V)
328		fvexd 6903	. . . . . . 7 ⊢ (𝜑 → (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ∈ V)
329		funmpt 6583	. . . . . . . 8 ⊢ Fun (𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)))
330	329	a1i 11	. . . . . . 7 ⊢ (𝜑 → Fun (𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))))
331		eqid 2732	. . . . . . . 8 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
332	1, 2, 331, 10, 8	mplelsfi 21545	. . . . . . 7 ⊢ (𝜑 → 𝐹 finSupp (0_g‘𝑅))
333		ssidd 4004	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹 supp (0_g‘𝑅)) ⊆ (𝐹 supp (0_g‘𝑅)))
334		fvexd 6903	. . . . . . . . . . 11 ⊢ (𝜑 → (0_g‘𝑅) ∈ V)
335	68, 333, 10, 334	suppssrg 8178	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝐷 ∖ (𝐹 supp (0_g‘𝑅)))) → (𝐹‘𝑔) = (0_g‘𝑅))
336	335	fveq2d 6892	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝐷 ∖ (𝐹 supp (0_g‘𝑅)))) → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)) = ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(0_g‘𝑅)))
337	3, 31, 331, 290, 21, 57	mplascl0 41123	. . . . . . . . . . 11 ⊢ (𝜑 → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(0_g‘𝑅)) = (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
338	162	fveq2d 6892	. . . . . . . . . . 11 ⊢ (𝜑 → (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
339	337, 338	eqtrd 2772	. . . . . . . . . 10 ⊢ (𝜑 → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(0_g‘𝑅)) = (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
340	339	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝐷 ∖ (𝐹 supp (0_g‘𝑅)))) → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(0_g‘𝑅)) = (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
341	336, 340	eqtrd 2772	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝐷 ∖ (𝐹 supp (0_g‘𝑅)))) → ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔)) = (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
342	341, 296	suppss2 8181	. . . . . . 7 ⊢ (𝜑 → ((𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))) supp (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) ⊆ (𝐹 supp (0_g‘𝑅)))
343	327, 328, 330, 332, 342	fsuppsssuppgd 41061	. . . . . 6 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))) finSupp (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))))
344		ssidd 4004	. . . . . . 7 ⊢ (𝜑 → ((𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))) supp (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))) ⊆ ((𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))) supp (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))))
345		eqid 2732	. . . . . . . . 9 ⊢ (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
346	16, 26, 249, 345, 317	lmod0vs 20497	. . . . . . . 8 ⊢ (((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ LMod ∧ 𝑓 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → ((0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))𝑓) = (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
347	265, 346	sylan 580	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) → ((0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))𝑓) = (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))
348	344, 347, 262, 281, 328	suppssov1 8179	. . . . . 6 ⊢ (𝜑 → ((𝑔 ∈ 𝐷 ↦ (((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))) supp (0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) ⊆ ((𝑔 ∈ 𝐷 ↦ ((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))) supp (0_g‘(Scalar‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))))
349	322, 323, 325, 343, 348	fsuppsssuppgd 41061	. . . . 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 𝑅))))
350		eqid 2732	. . . . . . . 8 ⊢ (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) = (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽)))
351	22	crnggrpd 20063	. . . . . . . 8 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ Grp)
352	4, 16, 305, 350, 20, 351, 308	mplmapghm 41125	. . . . . . 7 ⊢ (𝜑 → (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∈ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) GrpHom ((𝐼 ∖ 𝐽) mPoly 𝑅)))
353		ghmmhm 19096	. . . . . . 7 ⊢ ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∈ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) GrpHom ((𝐼 ∖ 𝐽) mPoly 𝑅)) → (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∈ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) MndHom ((𝐼 ∖ 𝐽) mPoly 𝑅)))
354	352, 353	syl 17	. . . . . 6 ⊢ (𝜑 → (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∈ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) MndHom ((𝐼 ∖ 𝐽) mPoly 𝑅)))
355	317, 290	mhm0 18676	. . . . . 6 ⊢ ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) ∈ ((𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) MndHom ((𝐼 ∖ 𝐽) mPoly 𝑅)) → ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽)))‘(0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
356	354, 355	syl 17	. . . . 5 ⊢ (𝜑 → ((𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽)))‘(0_g‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
357	315, 319, 313, 311, 320, 296, 46, 349, 356	fsuppcor 9395	. . . 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 𝑅)))
358	53, 290, 291, 293, 296, 304, 314, 357	gsummhm 19800	. . 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 𝑅))‘𝑘)))))))))))
359		fveq1 6887	. . . 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 𝑅))‘𝑘)))))))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
360	53, 290, 291, 296, 314, 357	gsumcl 19777	. . . 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 𝑅)))
361		fvexd 6903	. . . 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)
362	298, 359, 360, 361	fvmptd3 7018	. . 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 𝑅))‘𝑘)))))))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
363	316	ringcmnd 20094	. . . . . 6 ⊢ (𝜑 → (𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ CMnd)
364	351	grpmndd 18828	. . . . . 6 ⊢ (𝜑 → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ Mnd)
365	16, 317, 363, 364, 296, 354, 313, 349	gsummhm 19800	. . . . 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 𝑅))‘𝑘))))))))))
366		fveq1 6887	. . . . . 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 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽)))
367	16, 317, 363, 296, 313, 349	gsumcl 19777	. . . . . 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 𝑅))))
368		fvexd 6903	. . . . . 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)
369	350, 366, 367, 368	fvmptd3 7018	. . . . 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 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽)))
370	365, 369	eqtrd 2772	. . . 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 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽)))
371	370	fveq1d 6890	. . 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 𝑅))‘𝑘))))))))‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
372	358, 362, 371	3eqtrrd 2777	. 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 𝑅))‘𝑘)))))))))))
373	4, 53, 16, 305, 312	mplelf 21548	. . . . . . 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 𝑅)))
374	308	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑌 ↾ 𝐽) ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin})
375	373, 374	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 𝑅)))
376		eqidd 2733	. . . . . . 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 𝑅))‘𝑘))))))))
377		eqidd 2733	. . . . . . 7 ⊢ (𝜑 → (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))) = (𝑤 ∈ (Base‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) ↦ (𝑤‘(𝑌 ↾ 𝐽))))
378		fveq1 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 𝑅))‘𝑘)))))) → (𝑤‘(𝑌 ↾ 𝐽)) = ((((algSc‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝐹‘𝑔))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))(((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))( ·_𝑠 ‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅)))((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽)))
379	312, 376, 377, 378	fmptco 7123	. . . . . 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 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽))))
380		eqidd 2733	. . . . . 6 ⊢ (𝜑 → (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) = (𝑣 ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ↦ (𝑣‘(𝑌 ↾ (𝐼 ∖ 𝐽)))))
381		fveq1 6887	. . . . . 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 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
382	375, 379, 380, 381	fmptco 7123	. . . . 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 𝑅))‘𝑘))))))‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))))
383		eqid 2732	. . . . . . . . . 10 ⊢ (._r‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))
384	4, 249, 53, 16, 383, 305, 262, 281, 374	mplvscaval 21566	. . . . . . . . 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 𝑅))‘𝑘)))))‘(𝑌 ↾ 𝐽))))
385	4, 249, 53, 16, 383, 305, 279, 248, 374	mplvscaval 21566	. . . . . . . . . 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 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽))))
386	385	oveq2d 7421	. . . . . . . . 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 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))))
387	30	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ AssAlg)
388	35	fveq2d 6892	. . . . . . . . . . . 12 ⊢ (𝜑 → (Base‘𝑅) = (Base‘(Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
389	388	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (Base‘𝑅) = (Base‘(Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
390	74, 389	eleqtrd 2835	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐹‘𝑔) ∈ (Base‘(Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
391	48	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ Ring)
392	4, 53, 16, 305, 248	mplelf 21548	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))):{𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin}⟶(Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
393	392, 374	ffvelcdmd 7084	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
394	53, 383, 391, 279, 393	ringcld 20073	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽))) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
395		eqid 2732	. . . . . . . . . . 11 ⊢ (Base‘(Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (Base‘(Scalar‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
396		eqid 2732	. . . . . . . . . . 11 ⊢ ( ·_𝑠 ‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = ( ·_𝑠 ‘((𝐼 ∖ 𝐽) mPoly 𝑅))
397	31, 32, 395, 53, 383, 396	asclmul1 21431	. . . . . . . . . 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 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))))
398	387, 390, 394, 397	syl3anc 1371	. . . . . . . . 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 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))))
399	384, 386, 398	3eqtrd 2776	. . . . . . . 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 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))))
400	399	fveq1d 6890	. . . . . . 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 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
401		eqid 2732	. . . . . . . 8 ⊢ (._r‘𝑅) = (._r‘𝑅)
402	301	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑌 ↾ (𝐼 ∖ 𝐽)) ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin})
403	3, 396, 67, 53, 401, 297, 74, 394, 402	mplvscaval 21566	. . . . . . 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 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))))
404		eqid 2732	. . . . . . . . . . . . . 14 ⊢ (1_r‘𝑅) = (1_r‘𝑅)
405	8	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑅 ∈ CRing)
406	15, 297, 83, 133, 70	psrbagres 41112	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑔 ↾ (𝐼 ∖ 𝐽)) ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin})
407	3, 297, 331, 404, 203, 167, 169, 56, 405, 406	mplcoe2 21587	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅))) = ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑔 ↾ (𝐼 ∖ 𝐽))‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
408	177	fvresd 6908	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → ((𝑔 ↾ (𝐼 ∖ 𝐽))‘𝑘) = (𝑔‘𝑘))
409	408	oveq1d 7420	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ (𝐼 ∖ 𝐽)) → (((𝑔 ↾ (𝐼 ∖ 𝐽))‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)) = ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))
410	409	mpteq2dva 5247	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑔 ↾ (𝐼 ∖ 𝐽))‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))) = (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))
411	410	oveq2d 7421	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ (((𝑔 ↾ (𝐼 ∖ 𝐽))‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))) = ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
412	407, 411	eqtrd 2772	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅))) = ((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘)))))
413		eqid 2732	. . . . . . . . . . . . . 14 ⊢ (𝑗 ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} ↦ if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))) = (𝑗 ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} ↦ if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
414		eqeq1 2736	. . . . . . . . . . . . . . 15 ⊢ (𝑗 = (𝑌 ↾ 𝐽) → (𝑗 = (𝑔 ↾ 𝐽) ↔ (𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽)))
415	414	ifbid 4550	. . . . . . . . . . . . . 14 ⊢ (𝑗 = (𝑌 ↾ 𝐽) → if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
416		fvexd 6903	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ V)
417		fvexd 6903	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)) ∈ V)
418	416, 417	ifcld 4573	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))) ∈ V)
419	413, 415, 374, 418	fvmptd3 7018	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑗 ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} ↦ if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ 𝐽)) = if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))
420		eqid 2732	. . . . . . . . . . . . . . . 16 ⊢ (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅))
421	22	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐼 ∖ 𝐽) mPoly 𝑅) ∈ CRing)
422	15, 305, 83, 147, 70	psrbagres 41112	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑔 ↾ 𝐽) ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin})
423	4, 305, 290, 420, 235, 17, 18, 47, 421, 422	mplcoe2 21587	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑗 ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} ↦ if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))) = ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ (((𝑔 ↾ 𝐽)‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))
424		simpr 485	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → 𝑘 ∈ 𝐽)
425	424	fvresd 6908	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → ((𝑔 ↾ 𝐽)‘𝑘) = (𝑔‘𝑘))
426	425	oveq1d 7420	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑔 ∈ 𝐷) ∧ 𝑘 ∈ 𝐽) → (((𝑔 ↾ 𝐽)‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)) = ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))
427	426	mpteq2dva 5247	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑘 ∈ 𝐽 ↦ (((𝑔 ↾ 𝐽)‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))) = (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))
428	427	oveq2d 7421	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ (((𝑔 ↾ 𝐽)‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))) = ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))
429	423, 428	eqtrd 2772	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑗 ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} ↦ if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))) = ((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘)))))
430	429	fveq1d 6890	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑗 ∈ {𝑥 ∈ (ℕ₀ ↑_m 𝐽) ∣ (^◡𝑥 “ ℕ) ∈ Fin} ↦ if(𝑗 = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ 𝐽)) = (((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))
431	419, 430	eqtr3d 2774	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))
432	412, 431	oveq12d 7423	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_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 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽))))
433	432	eqcomd 2738	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽))) = ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))))
434	433	fveq1d 6890	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
435	434	oveq2d 7421	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)((((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) = ((𝐹‘𝑔)(._r‘𝑅)(((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), (1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)), (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))))
436		ovif2 7503	. . . . . . . . . . . 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 𝑅))))
437	436	fveq1i 6889	. . . . . . . . . . 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 𝑅))))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))
438		iffv 6905	. . . . . . . . . . . 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 𝑅)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
439		eqeq1 2736	. . . . . . . . . . . . . . 15 ⊢ (𝑖 = (𝑌 ↾ (𝐼 ∖ 𝐽)) → (𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)) ↔ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽))))
440	439	ifbid 4550	. . . . . . . . . . . . . 14 ⊢ (𝑖 = (𝑌 ↾ (𝐼 ∖ 𝐽)) → if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)) = if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))
441	57	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑅 ∈ Ring)
442	3, 53, 331, 404, 297, 203, 441, 406	mplmon 21581	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅))) ∈ (Base‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
443	53, 383, 420, 391, 442	ringridmd 20083	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅))))
444		fvexd 6903	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (1_r‘𝑅) ∈ V)
445		fvexd 6903	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘𝑅) ∈ V)
446	444, 445	ifcld 4573	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)) ∈ V)
447	440, 443, 402, 446	fvmptd4 41050	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(1_r‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))
448	53, 383, 290, 391, 442	ringrzd 41083	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))) = (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))
449	448	fveq1d 6890	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = ((0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
450	3, 297, 331, 290, 21, 292	mpl0 21556	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = ({𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} × {(0_g‘𝑅)}))
451	450	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)) = ({𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} × {(0_g‘𝑅)}))
452	451	fveq1d 6890	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (({𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} × {(0_g‘𝑅)})‘(𝑌 ↾ (𝐼 ∖ 𝐽))))
453		fvex 6901	. . . . . . . . . . . . . . . 16 ⊢ (0_g‘𝑅) ∈ V
454	453	fvconst2 7201	. . . . . . . . . . . . . . 15 ⊢ ((𝑌 ↾ (𝐼 ∖ 𝐽)) ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} → (({𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} × {(0_g‘𝑅)})‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (0_g‘𝑅))
455	402, 454	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (({𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} × {(0_g‘𝑅)})‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (0_g‘𝑅))
456	449, 452, 455	3eqtrd 2776	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (((𝑖 ∈ {𝑦 ∈ (ℕ₀ ↑_m (𝐼 ∖ 𝐽)) ∣ (^◡𝑦 “ ℕ) ∈ Fin} ↦ if(𝑖 = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(0_g‘((𝐼 ∖ 𝐽) mPoly 𝑅)))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (0_g‘𝑅))
457	447, 456	ifeq12d 4548	. . . . . . . . . . . 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((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))
458	438, 457	eqtrid 2784	. . . . . . . . . . 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‘𝑅)))
459	437, 458	eqtrid 2784	. . . . . . . . . 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‘𝑅)))
460	459	oveq2d 7421	. . . . . . . . 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‘𝑅))))
461		ifan 4580	. . . . . . . . . . 11 ⊢ if(((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽))), (1_r‘𝑅), (0_g‘𝑅)) = if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))
462	461	oveq2i 7416	. . . . . . . . . 10 ⊢ ((𝐹‘𝑔)(._r‘𝑅)if(((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽))), (1_r‘𝑅), (0_g‘𝑅))) = ((𝐹‘𝑔)(._r‘𝑅)if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅)))
463	15	psrbagf 21462	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑌 ∈ 𝐷 → 𝑌:𝐼⟶ℕ₀)
464	300, 463	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑌:𝐼⟶ℕ₀)
465	464	ffnd 6715	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑌 Fn 𝐼)
466	465	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑌 Fn 𝐼)
467		undif 4480	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐽 ⊆ 𝐼 ↔ (𝐽 ∪ (𝐼 ∖ 𝐽)) = 𝐼)
468	9, 467	sylib 217	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐽 ∪ (𝐼 ∖ 𝐽)) = 𝐼)
469	468	adantr 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝐽 ∪ (𝐼 ∖ 𝐽)) = 𝐼)
470	469	fneq2d 6640	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑌 Fn (𝐽 ∪ (𝐼 ∖ 𝐽)) ↔ 𝑌 Fn 𝐼))
471	466, 470	mpbird 256	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑌 Fn (𝐽 ∪ (𝐼 ∖ 𝐽)))
472	87	ffnd 6715	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑔 Fn 𝐼)
473	469	fneq2d 6640	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑔 Fn (𝐽 ∪ (𝐼 ∖ 𝐽)) ↔ 𝑔 Fn 𝐼))
474	472, 473	mpbird 256	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → 𝑔 Fn (𝐽 ∪ (𝐼 ∖ 𝐽)))
475		eqfnun 7035	. . . . . . . . . . . . . 14 ⊢ ((𝑌 Fn (𝐽 ∪ (𝐼 ∖ 𝐽)) ∧ 𝑔 Fn (𝐽 ∪ (𝐼 ∖ 𝐽))) → (𝑌 = 𝑔 ↔ ((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)))))
476	471, 474, 475	syl2anc 584	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (𝑌 = 𝑔 ↔ ((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)))))
477	476	ifbid 4550	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → if(𝑌 = 𝑔, (1_r‘𝑅), (0_g‘𝑅)) = if(((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽))), (1_r‘𝑅), (0_g‘𝑅)))
478	477	oveq2d 7421	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)if(𝑌 = 𝑔, (1_r‘𝑅), (0_g‘𝑅))) = ((𝐹‘𝑔)(._r‘𝑅)if(((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽))), (1_r‘𝑅), (0_g‘𝑅))))
479		ovif2 7503	. . . . . . . . . . 11 ⊢ ((𝐹‘𝑔)(._r‘𝑅)if(𝑌 = 𝑔, (1_r‘𝑅), (0_g‘𝑅))) = if(𝑌 = 𝑔, ((𝐹‘𝑔)(._r‘𝑅)(1_r‘𝑅)), ((𝐹‘𝑔)(._r‘𝑅)(0_g‘𝑅)))
480	478, 479	eqtr3di 2787	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)if(((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽) ∧ (𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽))), (1_r‘𝑅), (0_g‘𝑅))) = if(𝑌 = 𝑔, ((𝐹‘𝑔)(._r‘𝑅)(1_r‘𝑅)), ((𝐹‘𝑔)(._r‘𝑅)(0_g‘𝑅))))
481	462, 480	eqtr3id 2786	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)if((𝑌 ↾ 𝐽) = (𝑔 ↾ 𝐽), if((𝑌 ↾ (𝐼 ∖ 𝐽)) = (𝑔 ↾ (𝐼 ∖ 𝐽)), (1_r‘𝑅), (0_g‘𝑅)), (0_g‘𝑅))) = if(𝑌 = 𝑔, ((𝐹‘𝑔)(._r‘𝑅)(1_r‘𝑅)), ((𝐹‘𝑔)(._r‘𝑅)(0_g‘𝑅))))
482	460, 481	eqtrd 2772	. . . . . . . 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‘𝑅))))
483	67, 401, 404, 441, 74	ringridmd 20083	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)(1_r‘𝑅)) = (𝐹‘𝑔))
484	67, 401, 331, 441, 74	ringrzd 41083	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)(0_g‘𝑅)) = (0_g‘𝑅))
485	483, 484	ifeq12d 4548	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → if(𝑌 = 𝑔, ((𝐹‘𝑔)(._r‘𝑅)(1_r‘𝑅)), ((𝐹‘𝑔)(._r‘𝑅)(0_g‘𝑅))) = if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))
486	435, 482, 485	3eqtrd 2776	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → ((𝐹‘𝑔)(._r‘𝑅)((((mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)) Σ_g (𝑘 ∈ (𝐼 ∖ 𝐽) ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘((𝐼 ∖ 𝐽) mPoly 𝑅)))(((𝐼 ∖ 𝐽) mVar 𝑅)‘𝑘))))(._r‘((𝐼 ∖ 𝐽) mPoly 𝑅))(((mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))) Σ_g (𝑘 ∈ 𝐽 ↦ ((𝑔‘𝑘)(._g‘(mulGrp‘(𝐽 mPoly ((𝐼 ∖ 𝐽) mPoly 𝑅))))((𝐽 mVar ((𝐼 ∖ 𝐽) mPoly 𝑅))‘𝑘))))‘(𝑌 ↾ 𝐽)))‘(𝑌 ↾ (𝐼 ∖ 𝐽)))) = if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))
487	400, 403, 486	3eqtrd 2776	. . . . . 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‘𝑅)))
488	487	mpteq2dva 5247	. . . . 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‘𝑅))))
489	382, 488	eqtrd 2772	. . . 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‘𝑅))))
490	489	oveq2d 7421	. . 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‘𝑅)))))
491	57	ringcmnd 20094	. . . 4 ⊢ (𝜑 → 𝑅 ∈ CMnd)
492	67, 331	ring0cl 20077	. . . . . . . 8 ⊢ (𝑅 ∈ Ring → (0_g‘𝑅) ∈ (Base‘𝑅))
493	57, 492	syl 17	. . . . . . 7 ⊢ (𝜑 → (0_g‘𝑅) ∈ (Base‘𝑅))
494	493	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → (0_g‘𝑅) ∈ (Base‘𝑅))
495	74, 494	ifcld 4573	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 ∈ 𝐷) → if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)) ∈ (Base‘𝑅))
496	495	fmpttd 7111	. . . 4 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))):𝐷⟶(Base‘𝑅))
497		eldifsnneq 4793	. . . . . . . 8 ⊢ (𝑔 ∈ (𝐷 ∖ {𝑌}) → ¬ 𝑔 = 𝑌)
498	497	neqcomd 2742	. . . . . . 7 ⊢ (𝑔 ∈ (𝐷 ∖ {𝑌}) → ¬ 𝑌 = 𝑔)
499	498	iffalsed 4538	. . . . . 6 ⊢ (𝑔 ∈ (𝐷 ∖ {𝑌}) → if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)) = (0_g‘𝑅))
500	499	adantl 482	. . . . 5 ⊢ ((𝜑 ∧ 𝑔 ∈ (𝐷 ∖ {𝑌})) → if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)) = (0_g‘𝑅))
501	500, 296	suppss2 8181	. . . 4 ⊢ (𝜑 → ((𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) supp (0_g‘𝑅)) ⊆ {𝑌})
502	296	mptexd 7222	. . . . 5 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) ∈ V)
503		funmpt 6583	. . . . . 6 ⊢ Fun (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))
504	503	a1i 11	. . . . 5 ⊢ (𝜑 → Fun (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))))
505		snfi 9040	. . . . . . 7 ⊢ {𝑌} ∈ Fin
506	505	a1i 11	. . . . . 6 ⊢ (𝜑 → {𝑌} ∈ Fin)
507	506, 501	ssfid 9263	. . . . 5 ⊢ (𝜑 → ((𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) supp (0_g‘𝑅)) ∈ Fin)
508	502, 493, 504, 507	isfsuppd 9362	. . . 4 ⊢ (𝜑 → (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) finSupp (0_g‘𝑅))
509	67, 331, 491, 296, 496, 501, 508	gsumres 19775	. . 3 ⊢ (𝜑 → (𝑅 Σ_g ((𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) ↾ {𝑌})) = (𝑅 Σ_g (𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))))
510	300	snssd 4811	. . . . . 6 ⊢ (𝜑 → {𝑌} ⊆ 𝐷)
511	510	resmptd 6038	. . . . 5 ⊢ (𝜑 → ((𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) ↾ {𝑌}) = (𝑔 ∈ {𝑌} ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))))
512	511	oveq2d 7421	. . . 4 ⊢ (𝜑 → (𝑅 Σ_g ((𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) ↾ {𝑌})) = (𝑅 Σ_g (𝑔 ∈ {𝑌} ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))))
513	68, 300	ffvelcdmd 7084	. . . . 5 ⊢ (𝜑 → (𝐹‘𝑌) ∈ (Base‘𝑅))
514		iftrue 4533	. . . . . . . 8 ⊢ (𝑌 = 𝑔 → if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)) = (𝐹‘𝑔))
515		fveq2 6888	. . . . . . . . 9 ⊢ (𝑔 = 𝑌 → (𝐹‘𝑔) = (𝐹‘𝑌))
516	515	eqcoms 2740	. . . . . . . 8 ⊢ (𝑌 = 𝑔 → (𝐹‘𝑔) = (𝐹‘𝑌))
517	514, 516	eqtrd 2772	. . . . . . 7 ⊢ (𝑌 = 𝑔 → if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)) = (𝐹‘𝑌))
518	517	eqcoms 2740	. . . . . 6 ⊢ (𝑔 = 𝑌 → if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)) = (𝐹‘𝑌))
519	67, 518	gsumsn 19816	. . . . 5 ⊢ ((𝑅 ∈ Mnd ∧ 𝑌 ∈ 𝐷 ∧ (𝐹‘𝑌) ∈ (Base‘𝑅)) → (𝑅 Σ_g (𝑔 ∈ {𝑌} ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))) = (𝐹‘𝑌))
520	293, 300, 513, 519	syl3anc 1371	. . . 4 ⊢ (𝜑 → (𝑅 Σ_g (𝑔 ∈ {𝑌} ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅)))) = (𝐹‘𝑌))
521	512, 520	eqtrd 2772	. . 3 ⊢ (𝜑 → (𝑅 Σ_g ((𝑔 ∈ 𝐷 ↦ if(𝑌 = 𝑔, (𝐹‘𝑔), (0_g‘𝑅))) ↾ {𝑌})) = (𝐹‘𝑌))
522	490, 509, 521	3eqtr2d 2778	. 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 𝑅))‘𝑘)))))))))) = (𝐹‘𝑌))
523	289, 372, 522	3eqtrd 2776	1 ⊢ (𝜑 → (((((𝐼 selectVars 𝑅)‘𝐽)‘𝐹)‘(𝑌 ↾ 𝐽))‘(𝑌 ↾ (𝐼 ∖ 𝐽))) = (𝐹‘𝑌))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 396 = wceq 1541 ∈ wcel 2106 {crab 3432 Vcvv 3474 ∖ cdif 3944 ∪ cun 3945 ∩ cin 3946 ⊆ wss 3947 ∅c0 4321 ifcif 4527 {csn 4627 class class class wbr 5147 ↦ cmpt 5230 × cxp 5673 ^◡ccnv 5674 ↾ cres 5677 “ cima 5678 ∘ ccom 5679 Fun wfun 6534 Fn wfn 6535 ⟶wf 6536 ‘cfv 6540 (class class class)co 7405 supp csupp 8142 ↑_m cmap 8816 Fincfn 8935 finSupp cfsupp 9357 0cc0 11106 ℕcn 12208 ℕ₀cn0 12468 ℤcz 12554 Basecbs 17140 ._rcmulr 17194 Scalarcsca 17196 ·_𝑠 cvsca 17197 0_gc0g 17381 Σ_g cgsu 17382 Mndcmnd 18621 MndHom cmhm 18665 ._gcmg 18944 GrpHom cghm 19083 CMndccmn 19642 mulGrpcmgp 19981 1_rcur 19998 Ringcrg 20049 CRingccrg 20050 RingHom crh 20240 LModclmod 20463 AssAlgcasa 21396 algSccascl 21398 mVar cmvr 21449 mPoly cmpl 21450 eval cevl 21625 selectVars cslv 21662

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2703 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7721 ax-cnex 11162 ax-resscn 11163 ax-1cn 11164 ax-icn 11165 ax-addcl 11166 ax-addrcl 11167 ax-mulcl 11168 ax-mulrcl 11169 ax-mulcom 11170 ax-addass 11171 ax-mulass 11172 ax-distr 11173 ax-i2m1 11174 ax-1ne0 11175 ax-1rid 11176 ax-rnegex 11177 ax-rrecex 11178 ax-cnre 11179 ax-pre-lttri 11180 ax-pre-lttrn 11181 ax-pre-ltadd 11182 ax-pre-mulgt0 11183

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2534 df-eu 2563 df-clab 2710 df-cleq 2724 df-clel 2810 df-nfc 2885 df-ne 2941 df-nel 3047 df-ral 3062 df-rex 3071 df-rmo 3376 df-reu 3377 df-rab 3433 df-v 3476 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-tp 4632 df-op 4634 df-uni 4908 df-int 4950 df-iun 4998 df-iin 4999 df-br 5148 df-opab 5210 df-mpt 5231 df-tr 5265 df-id 5573 df-eprel 5579 df-po 5587 df-so 5588 df-fr 5630 df-se 5631 df-we 5632 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-pred 6297 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6492 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 7361 df-ov 7408 df-oprab 7409 df-mpo 7410 df-of 7666 df-ofr 7667 df-om 7852 df-1st 7971 df-2nd 7972 df-supp 8143 df-frecs 8262 df-wrecs 8293 df-recs 8367 df-rdg 8406 df-1o 8462 df-er 8699 df-map 8818 df-pm 8819 df-ixp 8888 df-en 8936 df-dom 8937 df-sdom 8938 df-fin 8939 df-fsupp 9358 df-sup 9433 df-oi 9501 df-card 9930 df-pnf 11246 df-mnf 11247 df-xr 11248 df-ltxr 11249 df-le 11250 df-sub 11442 df-neg 11443 df-nn 12209 df-2 12271 df-3 12272 df-4 12273 df-5 12274 df-6 12275 df-7 12276 df-8 12277 df-9 12278 df-n0 12469 df-z 12555 df-dec 12674 df-uz 12819 df-fz 13481 df-fzo 13624 df-seq 13963 df-hash 14287 df-struct 17076 df-sets 17093 df-slot 17111 df-ndx 17123 df-base 17141 df-ress 17170 df-plusg 17206 df-mulr 17207 df-sca 17209 df-vsca 17210 df-ip 17211 df-tset 17212 df-ple 17213 df-ds 17215 df-hom 17217 df-cco 17218 df-0g 17383 df-gsum 17384 df-prds 17389 df-pws 17391 df-mre 17526 df-mrc 17527 df-acs 17529 df-mgm 18557 df-sgrp 18606 df-mnd 18622 df-mhm 18667 df-submnd 18668 df-grp 18818 df-minusg 18819 df-sbg 18820 df-mulg 18945 df-subg 18997 df-ghm 19084 df-cntz 19175 df-cmn 19644 df-abl 19645 df-mgp 19982 df-ur 19999 df-srg 20003 df-ring 20051 df-cring 20052 df-rnghom 20243 df-subrg 20353 df-lmod 20465 df-lss 20535 df-lsp 20575 df-assa 21399 df-asp 21400 df-ascl 21401 df-psr 21453 df-mvr 21454 df-mpl 21455 df-evls 21626 df-evl 21627 df-selv 21666

This theorem is referenced by: evlselv 41156

W3C validator