Theorem evlslem3 20752

Description: Lemma for evlseu 20755. Polynomial evaluation of a scaled monomial. (Contributed by Stefan O'Rear, 8-Mar-2015.) (Revised by AV, 11-Apr-2024.)

Hypotheses

Ref	Expression
evlslem3.p	⊢ 𝑃 = (𝐼 mPoly 𝑅)
evlslem3.b	⊢ 𝐵 = (Base‘𝑃)
evlslem3.c	⊢ 𝐶 = (Base‘𝑆)
evlslem3.k	⊢ 𝐾 = (Base‘𝑅)
evlslem3.d	⊢ 𝐷 = {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}
evlslem3.t	⊢ 𝑇 = (mulGrp‘𝑆)
evlslem3.x	⊢ ↑ = (.g‘𝑇)
evlslem3.m	⊢ · = (.r‘𝑆)
evlslem3.v	⊢ 𝑉 = (𝐼 mVar 𝑅)
evlslem3.e	⊢ 𝐸 = (𝑝 ∈ 𝐵 ↦ (𝑆 Σg (𝑏 ∈ 𝐷 ↦ ((𝐹‘(𝑝‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))))
evlslem3.i	⊢ (𝜑 → 𝐼 ∈ 𝑊)
evlslem3.r	⊢ (𝜑 → 𝑅 ∈ CRing)
evlslem3.s	⊢ (𝜑 → 𝑆 ∈ CRing)
evlslem3.f	⊢ (𝜑 → 𝐹 ∈ (𝑅 RingHom 𝑆))
evlslem3.g	⊢ (𝜑 → 𝐺:𝐼⟶𝐶)
evlslem3.z	⊢ 0 = (0g‘𝑅)
evlslem3.a	⊢ (𝜑 → 𝐴 ∈ 𝐷)
evlslem3.q	⊢ (𝜑 → 𝐻 ∈ 𝐾)

Assertion

Ref	Expression
evlslem3	⊢ (𝜑 → (𝐸‘(𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))) = ((𝐹‘𝐻) · (𝑇 Σg (𝐴 ∘f ↑ 𝐺))))

Distinct variable groups:   𝑝,𝑏,𝑥, 0   𝐵,𝑝   𝐶,𝑏   𝐷,𝑏,𝑝,𝑥   𝐹,𝑏,𝑝   ↑ ,𝑏,𝑝   ℎ,𝑏,𝐴,𝑝,𝑥   ℎ,𝐼   𝑥,𝐾   𝜑,𝑏,𝑥   𝐺,𝑏,𝑝   𝐻,𝑏,𝑝,𝑥   𝑆,𝑏,𝑝   𝑇,𝑏,𝑝   · ,𝑏,𝑝   𝑥,𝑅

Allowed substitution hints:   𝜑(ℎ,𝑝)   𝐵(𝑥,ℎ,𝑏)   𝐶(𝑥,ℎ,𝑝)   𝐷(ℎ)   𝑃(𝑥,ℎ,𝑝,𝑏)   𝑅(ℎ,𝑝,𝑏)   𝑆(𝑥,ℎ)   𝑇(𝑥,ℎ)   · (𝑥,ℎ)   𝐸(𝑥,ℎ,𝑝,𝑏)   ↑ (𝑥,ℎ)   𝐹(𝑥,ℎ)   𝐺(𝑥,ℎ)   𝐻(ℎ)   𝐼(𝑥,𝑝,𝑏)   𝐾(ℎ,𝑝,𝑏)   𝑉(𝑥,ℎ,𝑝,𝑏)   𝑊(𝑥,ℎ,𝑝,𝑏)   0 (ℎ)

Proof of Theorem evlslem3

Dummy variables 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		evlslem3.p	. . . 4 ⊢ 𝑃 = (𝐼 mPoly 𝑅)
2		evlslem3.d	. . . 4 ⊢ 𝐷 = {ℎ ∈ (ℕ0 ↑m 𝐼) ∣ (◡ℎ “ ℕ) ∈ Fin}
3		evlslem3.z	. . . 4 ⊢ 0 = (0g‘𝑅)
4		evlslem3.k	. . . 4 ⊢ 𝐾 = (Base‘𝑅)
5		evlslem3.i	. . . 4 ⊢ (𝜑 → 𝐼 ∈ 𝑊)
6		evlslem3.r	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ CRing)
7		crngring 19302	. . . . 5 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
8	6, 7	syl 17	. . . 4 ⊢ (𝜑 → 𝑅 ∈ Ring)
9		evlslem3.b	. . . 4 ⊢ 𝐵 = (Base‘𝑃)
10		evlslem3.q	. . . 4 ⊢ (𝜑 → 𝐻 ∈ 𝐾)
11		evlslem3.a	. . . 4 ⊢ (𝜑 → 𝐴 ∈ 𝐷)
12	1, 2, 3, 4, 5, 8, 9, 10, 11	mplmon2cl 20739	. . 3 ⊢ (𝜑 → (𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) ∈ 𝐵)
13		fveq1 6644	. . . . . . . 8 ⊢ (𝑝 = (𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) → (𝑝‘𝑏) = ((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏))
14	13	fveq2d 6649	. . . . . . 7 ⊢ (𝑝 = (𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) → (𝐹‘(𝑝‘𝑏)) = (𝐹‘((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)))
15	14	oveq1d 7150	. . . . . 6 ⊢ (𝑝 = (𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) → ((𝐹‘(𝑝‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))) = ((𝐹‘((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))
16	15	mpteq2dv 5126	. . . . 5 ⊢ (𝑝 = (𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) → (𝑏 ∈ 𝐷 ↦ ((𝐹‘(𝑝‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺)))) = (𝑏 ∈ 𝐷 ↦ ((𝐹‘((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺)))))
17	16	oveq2d 7151	. . . 4 ⊢ (𝑝 = (𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) → (𝑆 Σg (𝑏 ∈ 𝐷 ↦ ((𝐹‘(𝑝‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))) = (𝑆 Σg (𝑏 ∈ 𝐷 ↦ ((𝐹‘((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))))
18		evlslem3.e	. . . 4 ⊢ 𝐸 = (𝑝 ∈ 𝐵 ↦ (𝑆 Σg (𝑏 ∈ 𝐷 ↦ ((𝐹‘(𝑝‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))))
19		ovex 7168	. . . 4 ⊢ (𝑆 Σg (𝑏 ∈ 𝐷 ↦ ((𝐹‘((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))) ∈ V
20	17, 18, 19	fvmpt 6745	. . 3 ⊢ ((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) ∈ 𝐵 → (𝐸‘(𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))) = (𝑆 Σg (𝑏 ∈ 𝐷 ↦ ((𝐹‘((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))))
21	12, 20	syl 17	. 2 ⊢ (𝜑 → (𝐸‘(𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))) = (𝑆 Σg (𝑏 ∈ 𝐷 ↦ ((𝐹‘((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))))
22		eqid 2798	. . . . . . . 8 ⊢ (𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 )) = (𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))
23		eqeq1 2802	. . . . . . . . 9 ⊢ (𝑥 = 𝑏 → (𝑥 = 𝐴 ↔ 𝑏 = 𝐴))
24	23	ifbid 4447	. . . . . . . 8 ⊢ (𝑥 = 𝑏 → if(𝑥 = 𝐴, 𝐻, 0 ) = if(𝑏 = 𝐴, 𝐻, 0 ))
25		simpr 488	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → 𝑏 ∈ 𝐷)
26	3	fvexi 6659	. . . . . . . . . . 11 ⊢ 0 ∈ V
27	26	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 0 ∈ V)
28		ifexg 4472	. . . . . . . . . 10 ⊢ ((𝐻 ∈ 𝐾 ∧ 0 ∈ V) → if(𝑏 = 𝐴, 𝐻, 0 ) ∈ V)
29	10, 27, 28	syl2anc 587	. . . . . . . . 9 ⊢ (𝜑 → if(𝑏 = 𝐴, 𝐻, 0 ) ∈ V)
30	29	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → if(𝑏 = 𝐴, 𝐻, 0 ) ∈ V)
31	22, 24, 25, 30	fvmptd3 6768	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → ((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏) = if(𝑏 = 𝐴, 𝐻, 0 ))
32	31	fveq2d 6649	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → (𝐹‘((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) = (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )))
33	32	oveq1d 7150	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → ((𝐹‘((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))) = ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))
34	33	mpteq2dva 5125	. . . 4 ⊢ (𝜑 → (𝑏 ∈ 𝐷 ↦ ((𝐹‘((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺)))) = (𝑏 ∈ 𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺)))))
35	34	oveq2d 7151	. . 3 ⊢ (𝜑 → (𝑆 Σg (𝑏 ∈ 𝐷 ↦ ((𝐹‘((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))) = (𝑆 Σg (𝑏 ∈ 𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))))
36		evlslem3.c	. . . 4 ⊢ 𝐶 = (Base‘𝑆)
37		eqid 2798	. . . 4 ⊢ (0g‘𝑆) = (0g‘𝑆)
38		evlslem3.s	. . . . . 6 ⊢ (𝜑 → 𝑆 ∈ CRing)
39		crngring 19302	. . . . . 6 ⊢ (𝑆 ∈ CRing → 𝑆 ∈ Ring)
40	38, 39	syl 17	. . . . 5 ⊢ (𝜑 → 𝑆 ∈ Ring)
41		ringmnd 19300	. . . . 5 ⊢ (𝑆 ∈ Ring → 𝑆 ∈ Mnd)
42	40, 41	syl 17	. . . 4 ⊢ (𝜑 → 𝑆 ∈ Mnd)
43		ovex 7168	. . . . . 6 ⊢ (ℕ0 ↑m 𝐼) ∈ V
44	2, 43	rabex2 5201	. . . . 5 ⊢ 𝐷 ∈ V
45	44	a1i 11	. . . 4 ⊢ (𝜑 → 𝐷 ∈ V)
46	40	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → 𝑆 ∈ Ring)
47		evlslem3.f	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ (𝑅 RingHom 𝑆))
48	4, 36	rhmf 19474	. . . . . . . . 9 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝐹:𝐾⟶𝐶)
49	47, 48	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐹:𝐾⟶𝐶)
50	4, 3	ring0cl 19315	. . . . . . . . . 10 ⊢ (𝑅 ∈ Ring → 0 ∈ 𝐾)
51	8, 50	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 0 ∈ 𝐾)
52	10, 51	ifcld 4470	. . . . . . . 8 ⊢ (𝜑 → if(𝑏 = 𝐴, 𝐻, 0 ) ∈ 𝐾)
53	49, 52	ffvelrnd 6829	. . . . . . 7 ⊢ (𝜑 → (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) ∈ 𝐶)
54	53	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) ∈ 𝐶)
55		evlslem3.t	. . . . . . . 8 ⊢ 𝑇 = (mulGrp‘𝑆)
56	55, 36	mgpbas 19238	. . . . . . 7 ⊢ 𝐶 = (Base‘𝑇)
57		eqid 2798	. . . . . . 7 ⊢ (0g‘𝑇) = (0g‘𝑇)
58	55	crngmgp 19298	. . . . . . . . 9 ⊢ (𝑆 ∈ CRing → 𝑇 ∈ CMnd)
59	38, 58	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑇 ∈ CMnd)
60	59	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → 𝑇 ∈ CMnd)
61	5	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → 𝐼 ∈ 𝑊)
62		cmnmnd 18914	. . . . . . . . . . 11 ⊢ (𝑇 ∈ CMnd → 𝑇 ∈ Mnd)
63	59, 62	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝑇 ∈ Mnd)
64	63	ad2antrr 725	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ (𝑦 ∈ ℕ0 ∧ 𝑧 ∈ 𝐶)) → 𝑇 ∈ Mnd)
65		simprl 770	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ (𝑦 ∈ ℕ0 ∧ 𝑧 ∈ 𝐶)) → 𝑦 ∈ ℕ0)
66		simprr 772	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ (𝑦 ∈ ℕ0 ∧ 𝑧 ∈ 𝐶)) → 𝑧 ∈ 𝐶)
67		evlslem3.x	. . . . . . . . . 10 ⊢ ↑ = (.g‘𝑇)
68	56, 67	mulgnn0cl 18236	. . . . . . . . 9 ⊢ ((𝑇 ∈ Mnd ∧ 𝑦 ∈ ℕ0 ∧ 𝑧 ∈ 𝐶) → (𝑦 ↑ 𝑧) ∈ 𝐶)
69	64, 65, 66, 68	syl3anc 1368	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ (𝑦 ∈ ℕ0 ∧ 𝑧 ∈ 𝐶)) → (𝑦 ↑ 𝑧) ∈ 𝐶)
70	2	psrbagf 20603	. . . . . . . . 9 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑏 ∈ 𝐷) → 𝑏:𝐼⟶ℕ0)
71	5, 70	sylan 583	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → 𝑏:𝐼⟶ℕ0)
72		evlslem3.g	. . . . . . . . 9 ⊢ (𝜑 → 𝐺:𝐼⟶𝐶)
73	72	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → 𝐺:𝐼⟶𝐶)
74		inidm 4145	. . . . . . . 8 ⊢ (𝐼 ∩ 𝐼) = 𝐼
75	69, 71, 73, 61, 61, 74	off 7404	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → (𝑏 ∘f ↑ 𝐺):𝐼⟶𝐶)
76		ovex 7168	. . . . . . . . 9 ⊢ (𝑏 ∘f ↑ 𝐺) ∈ V
77	76	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → (𝑏 ∘f ↑ 𝐺) ∈ V)
78	75	ffund 6491	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → Fun (𝑏 ∘f ↑ 𝐺))
79		fvexd 6660	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → (0g‘𝑇) ∈ V)
80	2	psrbag 20602	. . . . . . . . . 10 ⊢ (𝐼 ∈ 𝑊 → (𝑏 ∈ 𝐷 ↔ (𝑏:𝐼⟶ℕ0 ∧ (◡𝑏 “ ℕ) ∈ Fin)))
81	5, 80	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝑏 ∈ 𝐷 ↔ (𝑏:𝐼⟶ℕ0 ∧ (◡𝑏 “ ℕ) ∈ Fin)))
82	81	simplbda 503	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → (◡𝑏 “ ℕ) ∈ Fin)
83	71	ffnd 6488	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → 𝑏 Fn 𝐼)
84	83	adantr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → 𝑏 Fn 𝐼)
85	72	ffnd 6488	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐺 Fn 𝐼)
86	85	ad2antrr 725	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → 𝐺 Fn 𝐼)
87	5	ad2antrr 725	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → 𝐼 ∈ 𝑊)
88		eldifi 4054	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ)) → 𝑦 ∈ 𝐼)
89	88	adantl 485	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → 𝑦 ∈ 𝐼)
90		fnfvof 7403	. . . . . . . . . . 11 ⊢ (((𝑏 Fn 𝐼 ∧ 𝐺 Fn 𝐼) ∧ (𝐼 ∈ 𝑊 ∧ 𝑦 ∈ 𝐼)) → ((𝑏 ∘f ↑ 𝐺)‘𝑦) = ((𝑏‘𝑦) ↑ (𝐺‘𝑦)))
91	84, 86, 87, 89, 90	syl22anc 837	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → ((𝑏 ∘f ↑ 𝐺)‘𝑦) = ((𝑏‘𝑦) ↑ (𝐺‘𝑦)))
92		ffvelrn 6826	. . . . . . . . . . . . . 14 ⊢ ((𝑏:𝐼⟶ℕ0 ∧ 𝑦 ∈ 𝐼) → (𝑏‘𝑦) ∈ ℕ0)
93	71, 88, 92	syl2an 598	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → (𝑏‘𝑦) ∈ ℕ0)
94		elnn0 11887	. . . . . . . . . . . . 13 ⊢ ((𝑏‘𝑦) ∈ ℕ0 ↔ ((𝑏‘𝑦) ∈ ℕ ∨ (𝑏‘𝑦) = 0))
95	93, 94	sylib 221	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → ((𝑏‘𝑦) ∈ ℕ ∨ (𝑏‘𝑦) = 0))
96		eldifn 4055	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ)) → ¬ 𝑦 ∈ (◡𝑏 “ ℕ))
97	96	adantl 485	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → ¬ 𝑦 ∈ (◡𝑏 “ ℕ))
98	83	ad2antrr 725	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) ∧ (𝑏‘𝑦) ∈ ℕ) → 𝑏 Fn 𝐼)
99	88	ad2antlr 726	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) ∧ (𝑏‘𝑦) ∈ ℕ) → 𝑦 ∈ 𝐼)
100		simpr 488	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) ∧ (𝑏‘𝑦) ∈ ℕ) → (𝑏‘𝑦) ∈ ℕ)
101	98, 99, 100	elpreimad 6806	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) ∧ (𝑏‘𝑦) ∈ ℕ) → 𝑦 ∈ (◡𝑏 “ ℕ))
102	97, 101	mtand 815	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → ¬ (𝑏‘𝑦) ∈ ℕ)
103	95, 102	orcnd 876	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → (𝑏‘𝑦) = 0)
104	103	oveq1d 7150	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → ((𝑏‘𝑦) ↑ (𝐺‘𝑦)) = (0 ↑ (𝐺‘𝑦)))
105		ffvelrn 6826	. . . . . . . . . . . 12 ⊢ ((𝐺:𝐼⟶𝐶 ∧ 𝑦 ∈ 𝐼) → (𝐺‘𝑦) ∈ 𝐶)
106	73, 88, 105	syl2an 598	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → (𝐺‘𝑦) ∈ 𝐶)
107	56, 57, 67	mulg0 18223	. . . . . . . . . . 11 ⊢ ((𝐺‘𝑦) ∈ 𝐶 → (0 ↑ (𝐺‘𝑦)) = (0g‘𝑇))
108	106, 107	syl 17	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → (0 ↑ (𝐺‘𝑦)) = (0g‘𝑇))
109	91, 104, 108	3eqtrd 2837	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑏 ∈ 𝐷) ∧ 𝑦 ∈ (𝐼 ∖ (◡𝑏 “ ℕ))) → ((𝑏 ∘f ↑ 𝐺)‘𝑦) = (0g‘𝑇))
110	75, 109	suppss 7843	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → ((𝑏 ∘f ↑ 𝐺) supp (0g‘𝑇)) ⊆ (◡𝑏 “ ℕ))
111		suppssfifsupp 8832	. . . . . . . 8 ⊢ ((((𝑏 ∘f ↑ 𝐺) ∈ V ∧ Fun (𝑏 ∘f ↑ 𝐺) ∧ (0g‘𝑇) ∈ V) ∧ ((◡𝑏 “ ℕ) ∈ Fin ∧ ((𝑏 ∘f ↑ 𝐺) supp (0g‘𝑇)) ⊆ (◡𝑏 “ ℕ))) → (𝑏 ∘f ↑ 𝐺) finSupp (0g‘𝑇))
112	77, 78, 79, 82, 110, 111	syl32anc 1375	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → (𝑏 ∘f ↑ 𝐺) finSupp (0g‘𝑇))
113	56, 57, 60, 61, 75, 112	gsumcl 19028	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → (𝑇 Σg (𝑏 ∘f ↑ 𝐺)) ∈ 𝐶)
114		evlslem3.m	. . . . . . 7 ⊢ · = (.r‘𝑆)
115	36, 114	ringcl 19307	. . . . . 6 ⊢ ((𝑆 ∈ Ring ∧ (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) ∈ 𝐶 ∧ (𝑇 Σg (𝑏 ∘f ↑ 𝐺)) ∈ 𝐶) → ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))) ∈ 𝐶)
116	46, 54, 113, 115	syl3anc 1368	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ 𝐷) → ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))) ∈ 𝐶)
117	116	fmpttd 6856	. . . 4 ⊢ (𝜑 → (𝑏 ∈ 𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺)))):𝐷⟶𝐶)
118		eldifsnneq 4684	. . . . . . . . . . 11 ⊢ (𝑏 ∈ (𝐷 ∖ {𝐴}) → ¬ 𝑏 = 𝐴)
119	118	iffalsed 4436	. . . . . . . . . 10 ⊢ (𝑏 ∈ (𝐷 ∖ {𝐴}) → if(𝑏 = 𝐴, 𝐻, 0 ) = 0 )
120	119	adantl 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑏 ∈ (𝐷 ∖ {𝐴})) → if(𝑏 = 𝐴, 𝐻, 0 ) = 0 )
121	120	fveq2d 6649	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ (𝐷 ∖ {𝐴})) → (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) = (𝐹‘ 0 ))
122		rhmghm 19473	. . . . . . . . . . 11 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝐹 ∈ (𝑅 GrpHom 𝑆))
123	47, 122	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ (𝑅 GrpHom 𝑆))
124	3, 37	ghmid 18356	. . . . . . . . . 10 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → (𝐹‘ 0 ) = (0g‘𝑆))
125	123, 124	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝐹‘ 0 ) = (0g‘𝑆))
126	125	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑏 ∈ (𝐷 ∖ {𝐴})) → (𝐹‘ 0 ) = (0g‘𝑆))
127	121, 126	eqtrd 2833	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ (𝐷 ∖ {𝐴})) → (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) = (0g‘𝑆))
128	127	oveq1d 7150	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ (𝐷 ∖ {𝐴})) → ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))) = ((0g‘𝑆) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))
129	40	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ (𝐷 ∖ {𝐴})) → 𝑆 ∈ Ring)
130		eldifi 4054	. . . . . . . 8 ⊢ (𝑏 ∈ (𝐷 ∖ {𝐴}) → 𝑏 ∈ 𝐷)
131	130, 113	sylan2 595	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑏 ∈ (𝐷 ∖ {𝐴})) → (𝑇 Σg (𝑏 ∘f ↑ 𝐺)) ∈ 𝐶)
132	36, 114, 37	ringlz 19333	. . . . . . 7 ⊢ ((𝑆 ∈ Ring ∧ (𝑇 Σg (𝑏 ∘f ↑ 𝐺)) ∈ 𝐶) → ((0g‘𝑆) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))) = (0g‘𝑆))
133	129, 131, 132	syl2anc 587	. . . . . 6 ⊢ ((𝜑 ∧ 𝑏 ∈ (𝐷 ∖ {𝐴})) → ((0g‘𝑆) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))) = (0g‘𝑆))
134	128, 133	eqtrd 2833	. . . . 5 ⊢ ((𝜑 ∧ 𝑏 ∈ (𝐷 ∖ {𝐴})) → ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))) = (0g‘𝑆))
135	134, 45	suppss2 7847	. . . 4 ⊢ (𝜑 → ((𝑏 ∈ 𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺)))) supp (0g‘𝑆)) ⊆ {𝐴})
136	36, 37, 42, 45, 11, 117, 135	gsumpt 19075	. . 3 ⊢ (𝜑 → (𝑆 Σg (𝑏 ∈ 𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))) = ((𝑏 ∈ 𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))‘𝐴))
137	35, 136	eqtrd 2833	. 2 ⊢ (𝜑 → (𝑆 Σg (𝑏 ∈ 𝐷 ↦ ((𝐹‘((𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))‘𝑏)) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))) = ((𝑏 ∈ 𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))‘𝐴))
138		iftrue 4431	. . . . . 6 ⊢ (𝑏 = 𝐴 → if(𝑏 = 𝐴, 𝐻, 0 ) = 𝐻)
139	138	fveq2d 6649	. . . . 5 ⊢ (𝑏 = 𝐴 → (𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) = (𝐹‘𝐻))
140		oveq1 7142	. . . . . 6 ⊢ (𝑏 = 𝐴 → (𝑏 ∘f ↑ 𝐺) = (𝐴 ∘f ↑ 𝐺))
141	140	oveq2d 7151	. . . . 5 ⊢ (𝑏 = 𝐴 → (𝑇 Σg (𝑏 ∘f ↑ 𝐺)) = (𝑇 Σg (𝐴 ∘f ↑ 𝐺)))
142	139, 141	oveq12d 7153	. . . 4 ⊢ (𝑏 = 𝐴 → ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))) = ((𝐹‘𝐻) · (𝑇 Σg (𝐴 ∘f ↑ 𝐺))))
143		eqid 2798	. . . 4 ⊢ (𝑏 ∈ 𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺)))) = (𝑏 ∈ 𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))
144		ovex 7168	. . . 4 ⊢ ((𝐹‘𝐻) · (𝑇 Σg (𝐴 ∘f ↑ 𝐺))) ∈ V
145	142, 143, 144	fvmpt 6745	. . 3 ⊢ (𝐴 ∈ 𝐷 → ((𝑏 ∈ 𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))‘𝐴) = ((𝐹‘𝐻) · (𝑇 Σg (𝐴 ∘f ↑ 𝐺))))
146	11, 145	syl 17	. 2 ⊢ (𝜑 → ((𝑏 ∈ 𝐷 ↦ ((𝐹‘if(𝑏 = 𝐴, 𝐻, 0 )) · (𝑇 Σg (𝑏 ∘f ↑ 𝐺))))‘𝐴) = ((𝐹‘𝐻) · (𝑇 Σg (𝐴 ∘f ↑ 𝐺))))
147	21, 137, 146	3eqtrd 2837	1 ⊢ (𝜑 → (𝐸‘(𝑥 ∈ 𝐷 ↦ if(𝑥 = 𝐴, 𝐻, 0 ))) = ((𝐹‘𝐻) · (𝑇 Σg (𝐴 ∘f ↑ 𝐺))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 399   ∨ wo 844   = wceq 1538   ∈ wcel 2111  {crab 3110  Vcvv 3441   ∖ cdif 3878   ⊆ wss 3881  ifcif 4425  {csn 4525   class class class wbr 5030   ↦ cmpt 5110  ^◡ccnv 5518   “ cima 5522  Fun wfun 6318   Fn wfn 6319  ⟶wf 6320  ‘cfv 6324  (class class class)co 7135   ∘_f cof 7387   supp csupp 7813   ↑_m cmap 8389  Fincfn 8492   finSupp cfsupp 8817  0cc0 10526  ℕcn 11625  ℕ₀cn0 11885  Basecbs 16475  ._rcmulr 16558  0_gc0g 16705   Σ_g cgsu 16706  Mndcmnd 17903  ._gcmg 18216   GrpHom cghm 18347  CMndccmn 18898  mulGrpcmgp 19232  Ringcrg 19290  CRingccrg 19291   RingHom crh 19460   mVar cmvr 20590   mPoly cmpl 20591

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7441  ax-cnex 10582  ax-resscn 10583  ax-1cn 10584  ax-icn 10585  ax-addcl 10586  ax-addrcl 10587  ax-mulcl 10588  ax-mulrcl 10589  ax-mulcom 10590  ax-addass 10591  ax-mulass 10592  ax-distr 10593  ax-i2m1 10594  ax-1ne0 10595  ax-1rid 10596  ax-rnegex 10597  ax-rrecex 10598  ax-cnre 10599  ax-pre-lttri 10600  ax-pre-lttrn 10601  ax-pre-ltadd 10602  ax-pre-mulgt0 10603

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

This theorem is referenced by:  evlslem1  20754