Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  hbtlem2 Structured version   Visualization version   GIF version

Theorem hbtlem2 42613
Description: Leading coefficient ideals are ideals. (Contributed by Stefan O'Rear, 1-Apr-2015.)
Hypotheses
Ref Expression
hbtlem.p 𝑃 = (Poly1β€˜π‘…)
hbtlem.u π‘ˆ = (LIdealβ€˜π‘ƒ)
hbtlem.s 𝑆 = (ldgIdlSeqβ€˜π‘…)
hbtlem2.t 𝑇 = (LIdealβ€˜π‘…)
Assertion
Ref Expression
hbtlem2 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ ((π‘†β€˜πΌ)β€˜π‘‹) ∈ 𝑇)

Proof of Theorem hbtlem2
Dummy variables π‘Ž 𝑏 𝑐 𝑑 𝑒 𝑓 𝑔 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 hbtlem.p . . 3 𝑃 = (Poly1β€˜π‘…)
2 hbtlem.u . . 3 π‘ˆ = (LIdealβ€˜π‘ƒ)
3 hbtlem.s . . 3 𝑆 = (ldgIdlSeqβ€˜π‘…)
4 eqid 2725 . . 3 ( deg1 β€˜π‘…) = ( deg1 β€˜π‘…)
51, 2, 3, 4hbtlem1 42612 . 2 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ ((π‘†β€˜πΌ)β€˜π‘‹) = {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))})
6 eqid 2725 . . . . . . . . . . . 12 (Baseβ€˜π‘ƒ) = (Baseβ€˜π‘ƒ)
76, 2lidlss 21112 . . . . . . . . . . 11 (𝐼 ∈ π‘ˆ β†’ 𝐼 βŠ† (Baseβ€˜π‘ƒ))
873ad2ant2 1131 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ 𝐼 βŠ† (Baseβ€˜π‘ƒ))
98sselda 3977 . . . . . . . . 9 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑏 ∈ 𝐼) β†’ 𝑏 ∈ (Baseβ€˜π‘ƒ))
10 eqid 2725 . . . . . . . . . 10 (coe1β€˜π‘) = (coe1β€˜π‘)
11 eqid 2725 . . . . . . . . . 10 (Baseβ€˜π‘…) = (Baseβ€˜π‘…)
1210, 6, 1, 11coe1f 22139 . . . . . . . . 9 (𝑏 ∈ (Baseβ€˜π‘ƒ) β†’ (coe1β€˜π‘):β„•0⟢(Baseβ€˜π‘…))
139, 12syl 17 . . . . . . . 8 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑏 ∈ 𝐼) β†’ (coe1β€˜π‘):β„•0⟢(Baseβ€˜π‘…))
14 simpl3 1190 . . . . . . . 8 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑏 ∈ 𝐼) β†’ 𝑋 ∈ β„•0)
1513, 14ffvelcdmd 7092 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑏 ∈ 𝐼) β†’ ((coe1β€˜π‘)β€˜π‘‹) ∈ (Baseβ€˜π‘…))
16 eleq1a 2820 . . . . . . 7 (((coe1β€˜π‘)β€˜π‘‹) ∈ (Baseβ€˜π‘…) β†’ (π‘Ž = ((coe1β€˜π‘)β€˜π‘‹) β†’ π‘Ž ∈ (Baseβ€˜π‘…)))
1715, 16syl 17 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑏 ∈ 𝐼) β†’ (π‘Ž = ((coe1β€˜π‘)β€˜π‘‹) β†’ π‘Ž ∈ (Baseβ€˜π‘…)))
1817adantld 489 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑏 ∈ 𝐼) β†’ (((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹)) β†’ π‘Ž ∈ (Baseβ€˜π‘…)))
1918rexlimdva 3145 . . . 4 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ (βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹)) β†’ π‘Ž ∈ (Baseβ€˜π‘…)))
2019abssdv 4062 . . 3 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} βŠ† (Baseβ€˜π‘…))
211ply1ring 22175 . . . . . . . 8 (𝑅 ∈ Ring β†’ 𝑃 ∈ Ring)
22213ad2ant1 1130 . . . . . . 7 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ 𝑃 ∈ Ring)
23 simp2 1134 . . . . . . 7 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ 𝐼 ∈ π‘ˆ)
24 eqid 2725 . . . . . . . 8 (0gβ€˜π‘ƒ) = (0gβ€˜π‘ƒ)
252, 24lidl0cl 21120 . . . . . . 7 ((𝑃 ∈ Ring ∧ 𝐼 ∈ π‘ˆ) β†’ (0gβ€˜π‘ƒ) ∈ 𝐼)
2622, 23, 25syl2anc 582 . . . . . 6 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ (0gβ€˜π‘ƒ) ∈ 𝐼)
274, 1, 24deg1z 26053 . . . . . . . 8 (𝑅 ∈ Ring β†’ (( deg1 β€˜π‘…)β€˜(0gβ€˜π‘ƒ)) = -∞)
28273ad2ant1 1130 . . . . . . 7 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ (( deg1 β€˜π‘…)β€˜(0gβ€˜π‘ƒ)) = -∞)
29 nn0ssre 12506 . . . . . . . . . 10 β„•0 βŠ† ℝ
30 ressxr 11288 . . . . . . . . . 10 ℝ βŠ† ℝ*
3129, 30sstri 3987 . . . . . . . . 9 β„•0 βŠ† ℝ*
32 simp3 1135 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ 𝑋 ∈ β„•0)
3331, 32sselid 3975 . . . . . . . 8 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ 𝑋 ∈ ℝ*)
34 mnfle 13146 . . . . . . . 8 (𝑋 ∈ ℝ* β†’ -∞ ≀ 𝑋)
3533, 34syl 17 . . . . . . 7 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ -∞ ≀ 𝑋)
3628, 35eqbrtrd 5170 . . . . . 6 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ (( deg1 β€˜π‘…)β€˜(0gβ€˜π‘ƒ)) ≀ 𝑋)
37 eqid 2725 . . . . . . . . . 10 (0gβ€˜π‘…) = (0gβ€˜π‘…)
381, 24, 37coe1z 22191 . . . . . . . . 9 (𝑅 ∈ Ring β†’ (coe1β€˜(0gβ€˜π‘ƒ)) = (β„•0 Γ— {(0gβ€˜π‘…)}))
39383ad2ant1 1130 . . . . . . . 8 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ (coe1β€˜(0gβ€˜π‘ƒ)) = (β„•0 Γ— {(0gβ€˜π‘…)}))
4039fveq1d 6896 . . . . . . 7 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ ((coe1β€˜(0gβ€˜π‘ƒ))β€˜π‘‹) = ((β„•0 Γ— {(0gβ€˜π‘…)})β€˜π‘‹))
41 fvex 6907 . . . . . . . . 9 (0gβ€˜π‘…) ∈ V
4241fvconst2 7214 . . . . . . . 8 (𝑋 ∈ β„•0 β†’ ((β„•0 Γ— {(0gβ€˜π‘…)})β€˜π‘‹) = (0gβ€˜π‘…))
43423ad2ant3 1132 . . . . . . 7 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ ((β„•0 Γ— {(0gβ€˜π‘…)})β€˜π‘‹) = (0gβ€˜π‘…))
4440, 43eqtr2d 2766 . . . . . 6 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ (0gβ€˜π‘…) = ((coe1β€˜(0gβ€˜π‘ƒ))β€˜π‘‹))
45 fveq2 6894 . . . . . . . . 9 (𝑏 = (0gβ€˜π‘ƒ) β†’ (( deg1 β€˜π‘…)β€˜π‘) = (( deg1 β€˜π‘…)β€˜(0gβ€˜π‘ƒ)))
4645breq1d 5158 . . . . . . . 8 (𝑏 = (0gβ€˜π‘ƒ) β†’ ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ↔ (( deg1 β€˜π‘…)β€˜(0gβ€˜π‘ƒ)) ≀ 𝑋))
47 fveq2 6894 . . . . . . . . . 10 (𝑏 = (0gβ€˜π‘ƒ) β†’ (coe1β€˜π‘) = (coe1β€˜(0gβ€˜π‘ƒ)))
4847fveq1d 6896 . . . . . . . . 9 (𝑏 = (0gβ€˜π‘ƒ) β†’ ((coe1β€˜π‘)β€˜π‘‹) = ((coe1β€˜(0gβ€˜π‘ƒ))β€˜π‘‹))
4948eqeq2d 2736 . . . . . . . 8 (𝑏 = (0gβ€˜π‘ƒ) β†’ ((0gβ€˜π‘…) = ((coe1β€˜π‘)β€˜π‘‹) ↔ (0gβ€˜π‘…) = ((coe1β€˜(0gβ€˜π‘ƒ))β€˜π‘‹)))
5046, 49anbi12d 630 . . . . . . 7 (𝑏 = (0gβ€˜π‘ƒ) β†’ (((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ (0gβ€˜π‘…) = ((coe1β€˜π‘)β€˜π‘‹)) ↔ ((( deg1 β€˜π‘…)β€˜(0gβ€˜π‘ƒ)) ≀ 𝑋 ∧ (0gβ€˜π‘…) = ((coe1β€˜(0gβ€˜π‘ƒ))β€˜π‘‹))))
5150rspcev 3607 . . . . . 6 (((0gβ€˜π‘ƒ) ∈ 𝐼 ∧ ((( deg1 β€˜π‘…)β€˜(0gβ€˜π‘ƒ)) ≀ 𝑋 ∧ (0gβ€˜π‘…) = ((coe1β€˜(0gβ€˜π‘ƒ))β€˜π‘‹))) β†’ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ (0gβ€˜π‘…) = ((coe1β€˜π‘)β€˜π‘‹)))
5226, 36, 44, 51syl12anc 835 . . . . 5 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ (0gβ€˜π‘…) = ((coe1β€˜π‘)β€˜π‘‹)))
53 eqeq1 2729 . . . . . . . 8 (π‘Ž = (0gβ€˜π‘…) β†’ (π‘Ž = ((coe1β€˜π‘)β€˜π‘‹) ↔ (0gβ€˜π‘…) = ((coe1β€˜π‘)β€˜π‘‹)))
5453anbi2d 628 . . . . . . 7 (π‘Ž = (0gβ€˜π‘…) β†’ (((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹)) ↔ ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ (0gβ€˜π‘…) = ((coe1β€˜π‘)β€˜π‘‹))))
5554rexbidv 3169 . . . . . 6 (π‘Ž = (0gβ€˜π‘…) β†’ (βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹)) ↔ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ (0gβ€˜π‘…) = ((coe1β€˜π‘)β€˜π‘‹))))
5641, 55elab 3665 . . . . 5 ((0gβ€˜π‘…) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ↔ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ (0gβ€˜π‘…) = ((coe1β€˜π‘)β€˜π‘‹)))
5752, 56sylibr 233 . . . 4 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ (0gβ€˜π‘…) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))})
5857ne0d 4336 . . 3 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} β‰  βˆ…)
5922adantr 479 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ 𝑃 ∈ Ring)
60 simpl2 1189 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ 𝐼 ∈ π‘ˆ)
61 eqid 2725 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (algScβ€˜π‘ƒ) = (algScβ€˜π‘ƒ)
621, 61, 11, 6ply1sclf 22213 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑅 ∈ Ring β†’ (algScβ€˜π‘ƒ):(Baseβ€˜π‘…)⟢(Baseβ€˜π‘ƒ))
63623ad2ant1 1130 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ (algScβ€˜π‘ƒ):(Baseβ€˜π‘…)⟢(Baseβ€˜π‘ƒ))
6463adantr 479 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ (algScβ€˜π‘ƒ):(Baseβ€˜π‘…)⟢(Baseβ€˜π‘ƒ))
65 simprl 769 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ 𝑐 ∈ (Baseβ€˜π‘…))
6664, 65ffvelcdmd 7092 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ ((algScβ€˜π‘ƒ)β€˜π‘) ∈ (Baseβ€˜π‘ƒ))
67 simprll 777 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋))) β†’ 𝑓 ∈ 𝐼)
6867adantl 480 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ 𝑓 ∈ 𝐼)
69 eqid 2725 . . . . . . . . . . . . . . . . . . . . . . . 24 (.rβ€˜π‘ƒ) = (.rβ€˜π‘ƒ)
702, 6, 69lidlmcl 21125 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑃 ∈ Ring ∧ 𝐼 ∈ π‘ˆ) ∧ (((algScβ€˜π‘ƒ)β€˜π‘) ∈ (Baseβ€˜π‘ƒ) ∧ 𝑓 ∈ 𝐼)) β†’ (((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓) ∈ 𝐼)
7159, 60, 66, 68, 70syl22anc 837 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ (((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓) ∈ 𝐼)
72 simprrl 779 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋))) β†’ 𝑔 ∈ 𝐼)
7372adantl 480 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ 𝑔 ∈ 𝐼)
74 eqid 2725 . . . . . . . . . . . . . . . . . . . . . . 23 (+gβ€˜π‘ƒ) = (+gβ€˜π‘ƒ)
752, 74lidlacl 21121 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑃 ∈ Ring ∧ 𝐼 ∈ π‘ˆ) ∧ ((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓) ∈ 𝐼 ∧ 𝑔 ∈ 𝐼)) β†’ ((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔) ∈ 𝐼)
7659, 60, 71, 73, 75syl22anc 837 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ ((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔) ∈ 𝐼)
77 simpl1 1188 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ 𝑅 ∈ Ring)
788adantr 479 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ 𝐼 βŠ† (Baseβ€˜π‘ƒ))
7978, 68sseldd 3978 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ 𝑓 ∈ (Baseβ€˜π‘ƒ))
806, 69ringcl 20194 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑃 ∈ Ring ∧ ((algScβ€˜π‘ƒ)β€˜π‘) ∈ (Baseβ€˜π‘ƒ) ∧ 𝑓 ∈ (Baseβ€˜π‘ƒ)) β†’ (((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓) ∈ (Baseβ€˜π‘ƒ))
8159, 66, 79, 80syl3anc 1368 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ (((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓) ∈ (Baseβ€˜π‘ƒ))
8278, 73sseldd 3978 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ 𝑔 ∈ (Baseβ€˜π‘ƒ))
83 simpl3 1190 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ 𝑋 ∈ β„•0)
8431, 83sselid 3975 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ 𝑋 ∈ ℝ*)
854, 1, 6deg1xrcl 26048 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓) ∈ (Baseβ€˜π‘ƒ) β†’ (( deg1 β€˜π‘…)β€˜(((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)) ∈ ℝ*)
8681, 85syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ (( deg1 β€˜π‘…)β€˜(((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)) ∈ ℝ*)
874, 1, 6deg1xrcl 26048 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑓 ∈ (Baseβ€˜π‘ƒ) β†’ (( deg1 β€˜π‘…)β€˜π‘“) ∈ ℝ*)
8879, 87syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ (( deg1 β€˜π‘…)β€˜π‘“) ∈ ℝ*)
894, 1, 11, 6, 69, 61deg1mul3le 26082 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑅 ∈ Ring ∧ 𝑐 ∈ (Baseβ€˜π‘…) ∧ 𝑓 ∈ (Baseβ€˜π‘ƒ)) β†’ (( deg1 β€˜π‘…)β€˜(((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)) ≀ (( deg1 β€˜π‘…)β€˜π‘“))
9077, 65, 79, 89syl3anc 1368 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ (( deg1 β€˜π‘…)β€˜(((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)) ≀ (( deg1 β€˜π‘…)β€˜π‘“))
91 simprlr 778 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋))) β†’ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋)
9291adantl 480 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋)
9386, 88, 84, 90, 92xrletrd 13173 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ (( deg1 β€˜π‘…)β€˜(((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)) ≀ 𝑋)
94 simprrr 780 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋))) β†’ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)
9594adantl 480 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)
961, 4, 77, 6, 74, 81, 82, 84, 93, 95deg1addle2 26068 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ (( deg1 β€˜π‘…)β€˜((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔)) ≀ 𝑋)
97 eqid 2725 . . . . . . . . . . . . . . . . . . . . . . . 24 (+gβ€˜π‘…) = (+gβ€˜π‘…)
981, 6, 74, 97coe1addfv 22193 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑅 ∈ Ring ∧ (((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓) ∈ (Baseβ€˜π‘ƒ) ∧ 𝑔 ∈ (Baseβ€˜π‘ƒ)) ∧ 𝑋 ∈ β„•0) β†’ ((coe1β€˜((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔))β€˜π‘‹) = (((coe1β€˜(((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓))β€˜π‘‹)(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)))
9977, 81, 82, 83, 98syl31anc 1370 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ ((coe1β€˜((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔))β€˜π‘‹) = (((coe1β€˜(((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓))β€˜π‘‹)(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)))
100 eqid 2725 . . . . . . . . . . . . . . . . . . . . . . . . 25 (.rβ€˜π‘…) = (.rβ€˜π‘…)
1011, 6, 11, 61, 69, 100coe1sclmulfv 22211 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑅 ∈ Ring ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ 𝑓 ∈ (Baseβ€˜π‘ƒ)) ∧ 𝑋 ∈ β„•0) β†’ ((coe1β€˜(((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓))β€˜π‘‹) = (𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹)))
10277, 65, 79, 83, 101syl121anc 1372 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ ((coe1β€˜(((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓))β€˜π‘‹) = (𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹)))
103102oveq1d 7432 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ (((coe1β€˜(((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓))β€˜π‘‹)(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) = ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)))
10499, 103eqtr2d 2766 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) = ((coe1β€˜((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔))β€˜π‘‹))
105 fveq2 6894 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑏 = ((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔) β†’ (( deg1 β€˜π‘…)β€˜π‘) = (( deg1 β€˜π‘…)β€˜((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔)))
106105breq1d 5158 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑏 = ((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔) β†’ ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ↔ (( deg1 β€˜π‘…)β€˜((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔)) ≀ 𝑋))
107 fveq2 6894 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑏 = ((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔) β†’ (coe1β€˜π‘) = (coe1β€˜((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔)))
108107fveq1d 6896 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑏 = ((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔) β†’ ((coe1β€˜π‘)β€˜π‘‹) = ((coe1β€˜((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔))β€˜π‘‹))
109108eqeq2d 2736 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑏 = ((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔) β†’ (((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) = ((coe1β€˜π‘)β€˜π‘‹) ↔ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) = ((coe1β€˜((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔))β€˜π‘‹)))
110106, 109anbi12d 630 . . . . . . . . . . . . . . . . . . . . . 22 (𝑏 = ((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔) β†’ (((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) = ((coe1β€˜π‘)β€˜π‘‹)) ↔ ((( deg1 β€˜π‘…)β€˜((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔)) ≀ 𝑋 ∧ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) = ((coe1β€˜((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔))β€˜π‘‹))))
111110rspcev 3607 . . . . . . . . . . . . . . . . . . . . 21 ((((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔) ∈ 𝐼 ∧ ((( deg1 β€˜π‘…)β€˜((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔)) ≀ 𝑋 ∧ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) = ((coe1β€˜((((algScβ€˜π‘ƒ)β€˜π‘)(.rβ€˜π‘ƒ)𝑓)(+gβ€˜π‘ƒ)𝑔))β€˜π‘‹))) β†’ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) = ((coe1β€˜π‘)β€˜π‘‹)))
11276, 96, 104, 111syl12anc 835 . . . . . . . . . . . . . . . . . . . 20 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) = ((coe1β€˜π‘)β€˜π‘‹)))
113 ovex 7450 . . . . . . . . . . . . . . . . . . . . 21 ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) ∈ V
114 eqeq1 2729 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘Ž = ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) β†’ (π‘Ž = ((coe1β€˜π‘)β€˜π‘‹) ↔ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) = ((coe1β€˜π‘)β€˜π‘‹)))
115114anbi2d 628 . . . . . . . . . . . . . . . . . . . . . 22 (π‘Ž = ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) β†’ (((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹)) ↔ ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) = ((coe1β€˜π‘)β€˜π‘‹))))
116115rexbidv 3169 . . . . . . . . . . . . . . . . . . . . 21 (π‘Ž = ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) β†’ (βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹)) ↔ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) = ((coe1β€˜π‘)β€˜π‘‹))))
117113, 116elab 3665 . . . . . . . . . . . . . . . . . . . 20 (((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ↔ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) = ((coe1β€˜π‘)β€˜π‘‹)))
118112, 117sylibr 233 . . . . . . . . . . . . . . . . . . 19 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ (𝑐 ∈ (Baseβ€˜π‘…) ∧ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ (𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋)))) β†’ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))})
119118exp45 437 . . . . . . . . . . . . . . . . . 18 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ (𝑐 ∈ (Baseβ€˜π‘…) β†’ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) β†’ ((𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋) β†’ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))))
120119imp 405 . . . . . . . . . . . . . . . . 17 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) β†’ ((𝑓 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) β†’ ((𝑔 ∈ 𝐼 ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋) β†’ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))})))
121120exp5c 443 . . . . . . . . . . . . . . . 16 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) β†’ (𝑓 ∈ 𝐼 β†’ ((( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋 β†’ (𝑔 ∈ 𝐼 β†’ ((( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋 β†’ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))})))))
122121imp 405 . . . . . . . . . . . . . . 15 ((((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) ∧ 𝑓 ∈ 𝐼) β†’ ((( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋 β†’ (𝑔 ∈ 𝐼 β†’ ((( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋 β†’ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))))
123122imp41 424 . . . . . . . . . . . . . 14 (((((((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) ∧ 𝑓 ∈ 𝐼) ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ 𝑔 ∈ 𝐼) ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋) β†’ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))})
124 oveq2 7425 . . . . . . . . . . . . . . 15 (𝑒 = ((coe1β€˜π‘”)β€˜π‘‹) β†’ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)𝑒) = ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)))
125124eleq1d 2810 . . . . . . . . . . . . . 14 (𝑒 = ((coe1β€˜π‘”)β€˜π‘‹) β†’ (((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ↔ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)((coe1β€˜π‘”)β€˜π‘‹)) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
126123, 125syl5ibrcom 246 . . . . . . . . . . . . 13 (((((((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) ∧ 𝑓 ∈ 𝐼) ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ 𝑔 ∈ 𝐼) ∧ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋) β†’ (𝑒 = ((coe1β€˜π‘”)β€˜π‘‹) β†’ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
127126expimpd 452 . . . . . . . . . . . 12 ((((((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) ∧ 𝑓 ∈ 𝐼) ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) ∧ 𝑔 ∈ 𝐼) β†’ (((( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋 ∧ 𝑒 = ((coe1β€˜π‘”)β€˜π‘‹)) β†’ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
128127rexlimdva 3145 . . . . . . . . . . 11 (((((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) ∧ 𝑓 ∈ 𝐼) ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) β†’ (βˆƒπ‘” ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋 ∧ 𝑒 = ((coe1β€˜π‘”)β€˜π‘‹)) β†’ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
129128alrimiv 1922 . . . . . . . . . 10 (((((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) ∧ 𝑓 ∈ 𝐼) ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) β†’ βˆ€π‘’(βˆƒπ‘” ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋 ∧ 𝑒 = ((coe1β€˜π‘”)β€˜π‘‹)) β†’ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
130 eqeq1 2729 . . . . . . . . . . . . . 14 (π‘Ž = 𝑒 β†’ (π‘Ž = ((coe1β€˜π‘)β€˜π‘‹) ↔ 𝑒 = ((coe1β€˜π‘)β€˜π‘‹)))
131130anbi2d 628 . . . . . . . . . . . . 13 (π‘Ž = 𝑒 β†’ (((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹)) ↔ ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ 𝑒 = ((coe1β€˜π‘)β€˜π‘‹))))
132131rexbidv 3169 . . . . . . . . . . . 12 (π‘Ž = 𝑒 β†’ (βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹)) ↔ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ 𝑒 = ((coe1β€˜π‘)β€˜π‘‹))))
133 fveq2 6894 . . . . . . . . . . . . . . 15 (𝑏 = 𝑔 β†’ (( deg1 β€˜π‘…)β€˜π‘) = (( deg1 β€˜π‘…)β€˜π‘”))
134133breq1d 5158 . . . . . . . . . . . . . 14 (𝑏 = 𝑔 β†’ ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ↔ (( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋))
135 fveq2 6894 . . . . . . . . . . . . . . . 16 (𝑏 = 𝑔 β†’ (coe1β€˜π‘) = (coe1β€˜π‘”))
136135fveq1d 6896 . . . . . . . . . . . . . . 15 (𝑏 = 𝑔 β†’ ((coe1β€˜π‘)β€˜π‘‹) = ((coe1β€˜π‘”)β€˜π‘‹))
137136eqeq2d 2736 . . . . . . . . . . . . . 14 (𝑏 = 𝑔 β†’ (𝑒 = ((coe1β€˜π‘)β€˜π‘‹) ↔ 𝑒 = ((coe1β€˜π‘”)β€˜π‘‹)))
138134, 137anbi12d 630 . . . . . . . . . . . . 13 (𝑏 = 𝑔 β†’ (((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ 𝑒 = ((coe1β€˜π‘)β€˜π‘‹)) ↔ ((( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋 ∧ 𝑒 = ((coe1β€˜π‘”)β€˜π‘‹))))
139138cbvrexvw 3226 . . . . . . . . . . . 12 (βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ 𝑒 = ((coe1β€˜π‘)β€˜π‘‹)) ↔ βˆƒπ‘” ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋 ∧ 𝑒 = ((coe1β€˜π‘”)β€˜π‘‹)))
140132, 139bitrdi 286 . . . . . . . . . . 11 (π‘Ž = 𝑒 β†’ (βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹)) ↔ βˆƒπ‘” ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋 ∧ 𝑒 = ((coe1β€˜π‘”)β€˜π‘‹))))
141140ralab 3684 . . . . . . . . . 10 (βˆ€π‘’ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ↔ βˆ€π‘’(βˆƒπ‘” ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘”) ≀ 𝑋 ∧ 𝑒 = ((coe1β€˜π‘”)β€˜π‘‹)) β†’ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
142129, 141sylibr 233 . . . . . . . . 9 (((((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) ∧ 𝑓 ∈ 𝐼) ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) β†’ βˆ€π‘’ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))})
143 oveq2 7425 . . . . . . . . . . . 12 (𝑑 = ((coe1β€˜π‘“)β€˜π‘‹) β†’ (𝑐(.rβ€˜π‘…)𝑑) = (𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹)))
144143oveq1d 7432 . . . . . . . . . . 11 (𝑑 = ((coe1β€˜π‘“)β€˜π‘‹) β†’ ((𝑐(.rβ€˜π‘…)𝑑)(+gβ€˜π‘…)𝑒) = ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)𝑒))
145144eleq1d 2810 . . . . . . . . . 10 (𝑑 = ((coe1β€˜π‘“)β€˜π‘‹) β†’ (((𝑐(.rβ€˜π‘…)𝑑)(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ↔ ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
146145ralbidv 3168 . . . . . . . . 9 (𝑑 = ((coe1β€˜π‘“)β€˜π‘‹) β†’ (βˆ€π‘’ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ((𝑐(.rβ€˜π‘…)𝑑)(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ↔ βˆ€π‘’ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ((𝑐(.rβ€˜π‘…)((coe1β€˜π‘“)β€˜π‘‹))(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
147142, 146syl5ibrcom 246 . . . . . . . 8 (((((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) ∧ 𝑓 ∈ 𝐼) ∧ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋) β†’ (𝑑 = ((coe1β€˜π‘“)β€˜π‘‹) β†’ βˆ€π‘’ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ((𝑐(.rβ€˜π‘…)𝑑)(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
148147expimpd 452 . . . . . . 7 ((((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) ∧ 𝑓 ∈ 𝐼) β†’ (((( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋 ∧ 𝑑 = ((coe1β€˜π‘“)β€˜π‘‹)) β†’ βˆ€π‘’ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ((𝑐(.rβ€˜π‘…)𝑑)(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
149148rexlimdva 3145 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) β†’ (βˆƒπ‘“ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋 ∧ 𝑑 = ((coe1β€˜π‘“)β€˜π‘‹)) β†’ βˆ€π‘’ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ((𝑐(.rβ€˜π‘…)𝑑)(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
150149alrimiv 1922 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) β†’ βˆ€π‘‘(βˆƒπ‘“ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋 ∧ 𝑑 = ((coe1β€˜π‘“)β€˜π‘‹)) β†’ βˆ€π‘’ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ((𝑐(.rβ€˜π‘…)𝑑)(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
151 eqeq1 2729 . . . . . . . . 9 (π‘Ž = 𝑑 β†’ (π‘Ž = ((coe1β€˜π‘)β€˜π‘‹) ↔ 𝑑 = ((coe1β€˜π‘)β€˜π‘‹)))
152151anbi2d 628 . . . . . . . 8 (π‘Ž = 𝑑 β†’ (((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹)) ↔ ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ 𝑑 = ((coe1β€˜π‘)β€˜π‘‹))))
153152rexbidv 3169 . . . . . . 7 (π‘Ž = 𝑑 β†’ (βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹)) ↔ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ 𝑑 = ((coe1β€˜π‘)β€˜π‘‹))))
154 fveq2 6894 . . . . . . . . . 10 (𝑏 = 𝑓 β†’ (( deg1 β€˜π‘…)β€˜π‘) = (( deg1 β€˜π‘…)β€˜π‘“))
155154breq1d 5158 . . . . . . . . 9 (𝑏 = 𝑓 β†’ ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ↔ (( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋))
156 fveq2 6894 . . . . . . . . . . 11 (𝑏 = 𝑓 β†’ (coe1β€˜π‘) = (coe1β€˜π‘“))
157156fveq1d 6896 . . . . . . . . . 10 (𝑏 = 𝑓 β†’ ((coe1β€˜π‘)β€˜π‘‹) = ((coe1β€˜π‘“)β€˜π‘‹))
158157eqeq2d 2736 . . . . . . . . 9 (𝑏 = 𝑓 β†’ (𝑑 = ((coe1β€˜π‘)β€˜π‘‹) ↔ 𝑑 = ((coe1β€˜π‘“)β€˜π‘‹)))
159155, 158anbi12d 630 . . . . . . . 8 (𝑏 = 𝑓 β†’ (((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ 𝑑 = ((coe1β€˜π‘)β€˜π‘‹)) ↔ ((( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋 ∧ 𝑑 = ((coe1β€˜π‘“)β€˜π‘‹))))
160159cbvrexvw 3226 . . . . . . 7 (βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ 𝑑 = ((coe1β€˜π‘)β€˜π‘‹)) ↔ βˆƒπ‘“ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋 ∧ 𝑑 = ((coe1β€˜π‘“)β€˜π‘‹)))
161153, 160bitrdi 286 . . . . . 6 (π‘Ž = 𝑑 β†’ (βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹)) ↔ βˆƒπ‘“ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋 ∧ 𝑑 = ((coe1β€˜π‘“)β€˜π‘‹))))
162161ralab 3684 . . . . 5 (βˆ€π‘‘ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}βˆ€π‘’ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ((𝑐(.rβ€˜π‘…)𝑑)(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ↔ βˆ€π‘‘(βˆƒπ‘“ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘“) ≀ 𝑋 ∧ 𝑑 = ((coe1β€˜π‘“)β€˜π‘‹)) β†’ βˆ€π‘’ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ((𝑐(.rβ€˜π‘…)𝑑)(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
163150, 162sylibr 233 . . . 4 (((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) ∧ 𝑐 ∈ (Baseβ€˜π‘…)) β†’ βˆ€π‘‘ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}βˆ€π‘’ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ((𝑐(.rβ€˜π‘…)𝑑)(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))})
164163ralrimiva 3136 . . 3 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ βˆ€π‘ ∈ (Baseβ€˜π‘…)βˆ€π‘‘ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}βˆ€π‘’ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ((𝑐(.rβ€˜π‘…)𝑑)(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))})
165 hbtlem2.t . . . 4 𝑇 = (LIdealβ€˜π‘…)
166165, 11, 97, 100islidl 21115 . . 3 ({π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ∈ 𝑇 ↔ ({π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} βŠ† (Baseβ€˜π‘…) ∧ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} β‰  βˆ… ∧ βˆ€π‘ ∈ (Baseβ€˜π‘…)βˆ€π‘‘ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}βˆ€π‘’ ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ((𝑐(.rβ€˜π‘…)𝑑)(+gβ€˜π‘…)𝑒) ∈ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))}))
16720, 58, 164, 166syl3anbrc 1340 . 2 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ {π‘Ž ∣ βˆƒπ‘ ∈ 𝐼 ((( deg1 β€˜π‘…)β€˜π‘) ≀ 𝑋 ∧ π‘Ž = ((coe1β€˜π‘)β€˜π‘‹))} ∈ 𝑇)
1685, 167eqeltrd 2825 1 ((𝑅 ∈ Ring ∧ 𝐼 ∈ π‘ˆ ∧ 𝑋 ∈ β„•0) β†’ ((π‘†β€˜πΌ)β€˜π‘‹) ∈ 𝑇)
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ∧ wa 394   ∧ w3a 1084  βˆ€wal 1531   = wceq 1533   ∈ wcel 2098  {cab 2702   β‰  wne 2930  βˆ€wral 3051  βˆƒwrex 3060   βŠ† wss 3945  βˆ…c0 4323  {csn 4629   class class class wbr 5148   Γ— cxp 5675  βŸΆwf 6543  β€˜cfv 6547  (class class class)co 7417  β„cr 11137  -∞cmnf 11276  β„*cxr 11277   ≀ cle 11279  β„•0cn0 12502  Basecbs 17179  +gcplusg 17232  .rcmulr 17233  0gc0g 17420  Ringcrg 20177  LIdealclidl 21106  algSccascl 21790  Poly1cpl1 22104  coe1cco1 22105   deg1 cdg1 26017  ldgIdlSeqcldgis 42610
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5364  ax-pr 5428  ax-un 7739  ax-cnex 11194  ax-resscn 11195  ax-1cn 11196  ax-icn 11197  ax-addcl 11198  ax-addrcl 11199  ax-mulcl 11200  ax-mulrcl 11201  ax-mulcom 11202  ax-addass 11203  ax-mulass 11204  ax-distr 11205  ax-i2m1 11206  ax-1ne0 11207  ax-1rid 11208  ax-rnegex 11209  ax-rrecex 11210  ax-cnre 11211  ax-pre-lttri 11212  ax-pre-lttrn 11213  ax-pre-ltadd 11214  ax-pre-mulgt0 11215  ax-pre-sup 11216  ax-addf 11217
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3465  df-sbc 3775  df-csb 3891  df-dif 3948  df-un 3950  df-in 3952  df-ss 3962  df-pss 3965  df-nul 4324  df-if 4530  df-pw 4605  df-sn 4630  df-pr 4632  df-tp 4634  df-op 4636  df-uni 4909  df-int 4950  df-iun 4998  df-iin 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5575  df-eprel 5581  df-po 5589  df-so 5590  df-fr 5632  df-se 5633  df-we 5634  df-xp 5683  df-rel 5684  df-cnv 5685  df-co 5686  df-dm 5687  df-rn 5688  df-res 5689  df-ima 5690  df-pred 6305  df-ord 6372  df-on 6373  df-lim 6374  df-suc 6375  df-iota 6499  df-fun 6549  df-fn 6550  df-f 6551  df-f1 6552  df-fo 6553  df-f1o 6554  df-fv 6555  df-isom 6556  df-riota 7373  df-ov 7420  df-oprab 7421  df-mpo 7422  df-of 7683  df-ofr 7684  df-om 7870  df-1st 7992  df-2nd 7993  df-supp 8164  df-frecs 8285  df-wrecs 8316  df-recs 8390  df-rdg 8429  df-1o 8485  df-er 8723  df-map 8845  df-pm 8846  df-ixp 8915  df-en 8963  df-dom 8964  df-sdom 8965  df-fin 8966  df-fsupp 9386  df-sup 9465  df-oi 9533  df-card 9962  df-pnf 11280  df-mnf 11281  df-xr 11282  df-ltxr 11283  df-le 11284  df-sub 11476  df-neg 11477  df-nn 12243  df-2 12305  df-3 12306  df-4 12307  df-5 12308  df-6 12309  df-7 12310  df-8 12311  df-9 12312  df-n0 12503  df-z 12589  df-dec 12708  df-uz 12853  df-fz 13517  df-fzo 13660  df-seq 13999  df-hash 14322  df-struct 17115  df-sets 17132  df-slot 17150  df-ndx 17162  df-base 17180  df-ress 17209  df-plusg 17245  df-mulr 17246  df-starv 17247  df-sca 17248  df-vsca 17249  df-ip 17250  df-tset 17251  df-ple 17252  df-ds 17254  df-unif 17255  df-hom 17256  df-cco 17257  df-0g 17422  df-gsum 17423  df-prds 17428  df-pws 17430  df-mre 17565  df-mrc 17566  df-acs 17568  df-mgm 18599  df-sgrp 18678  df-mnd 18694  df-mhm 18739  df-submnd 18740  df-grp 18897  df-minusg 18898  df-sbg 18899  df-mulg 19028  df-subg 19082  df-ghm 19172  df-cntz 19272  df-cmn 19741  df-abl 19742  df-mgp 20079  df-rng 20097  df-ur 20126  df-ring 20179  df-cring 20180  df-subrng 20487  df-subrg 20512  df-lmod 20749  df-lss 20820  df-sra 21062  df-rgmod 21063  df-lidl 21108  df-cnfld 21284  df-ascl 21793  df-psr 21846  df-mvr 21847  df-mpl 21848  df-opsr 21850  df-psr1 22107  df-vr1 22108  df-ply1 22109  df-coe1 22110  df-mdeg 26018  df-deg1 26019  df-ldgis 42611
This theorem is referenced by:  hbtlem7  42614  hbtlem6  42618
  Copyright terms: Public domain W3C validator