Proof of Theorem ply1coedeg
| Step | Hyp | Ref
| Expression |
| 1 | | simpr 484 |
. . 3
⊢ ((𝜑 ∧ 𝐾 = (0g‘𝑃)) → 𝐾 = (0g‘𝑃)) |
| 2 | | ply1coedeg.d |
. . . . . . . . . . 11
⊢ 𝐷 = ((deg1‘𝑅)‘𝐾) |
| 3 | 2 | a1i 11 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝐾 = (0g‘𝑃)) → 𝐷 = ((deg1‘𝑅)‘𝐾)) |
| 4 | 1 | fveq2d 6838 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝐾 = (0g‘𝑃)) → ((deg1‘𝑅)‘𝐾) = ((deg1‘𝑅)‘(0g‘𝑃))) |
| 5 | | ply1coedeg.r |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝑅 ∈ Ring) |
| 6 | | eqid 2736 |
. . . . . . . . . . . . 13
⊢
(deg1‘𝑅) = (deg1‘𝑅) |
| 7 | | ply1coedeg.p |
. . . . . . . . . . . . 13
⊢ 𝑃 = (Poly1‘𝑅) |
| 8 | | eqid 2736 |
. . . . . . . . . . . . 13
⊢
(0g‘𝑃) = (0g‘𝑃) |
| 9 | 6, 7, 8 | deg1z 26048 |
. . . . . . . . . . . 12
⊢ (𝑅 ∈ Ring →
((deg1‘𝑅)‘(0g‘𝑃)) = -∞) |
| 10 | 5, 9 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 →
((deg1‘𝑅)‘(0g‘𝑃)) = -∞) |
| 11 | 10 | adantr 480 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝐾 = (0g‘𝑃)) → ((deg1‘𝑅)‘(0g‘𝑃)) = -∞) |
| 12 | 3, 4, 11 | 3eqtrd 2775 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝐾 = (0g‘𝑃)) → 𝐷 = -∞) |
| 13 | 12 | oveq2d 7374 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝐾 = (0g‘𝑃)) → (0...𝐷) = (0...-∞)) |
| 14 | | mnfnre 11175 |
. . . . . . . . . . . . 13
⊢ -∞
∉ ℝ |
| 15 | 14 | neli 3038 |
. . . . . . . . . . . 12
⊢ ¬
-∞ ∈ ℝ |
| 16 | | zre 12492 |
. . . . . . . . . . . 12
⊢ (-∞
∈ ℤ → -∞ ∈ ℝ) |
| 17 | 15, 16 | mto 197 |
. . . . . . . . . . 11
⊢ ¬
-∞ ∈ ℤ |
| 18 | 17 | nelir 3039 |
. . . . . . . . . 10
⊢ -∞
∉ ℤ |
| 19 | 18 | olci 866 |
. . . . . . . . 9
⊢ (0
∉ ℤ ∨ -∞ ∉ ℤ) |
| 20 | | fz0 13455 |
. . . . . . . . 9
⊢ ((0
∉ ℤ ∨ -∞ ∉ ℤ) → (0...-∞) =
∅) |
| 21 | 19, 20 | ax-mp 5 |
. . . . . . . 8
⊢
(0...-∞) = ∅ |
| 22 | 13, 21 | eqtrdi 2787 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝐾 = (0g‘𝑃)) → (0...𝐷) = ∅) |
| 23 | 22 | mpteq1d 5188 |
. . . . . 6
⊢ ((𝜑 ∧ 𝐾 = (0g‘𝑃)) → (𝑘 ∈ (0...𝐷) ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) = (𝑘 ∈ ∅ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))) |
| 24 | | mpt0 6634 |
. . . . . 6
⊢ (𝑘 ∈ ∅ ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) = ∅ |
| 25 | 23, 24 | eqtrdi 2787 |
. . . . 5
⊢ ((𝜑 ∧ 𝐾 = (0g‘𝑃)) → (𝑘 ∈ (0...𝐷) ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))) = ∅) |
| 26 | 25 | oveq2d 7374 |
. . . 4
⊢ ((𝜑 ∧ 𝐾 = (0g‘𝑃)) → (𝑃 Σg (𝑘 ∈ (0...𝐷) ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))) = (𝑃 Σg
∅)) |
| 27 | 8 | gsum0 18609 |
. . . 4
⊢ (𝑃 Σg
∅) = (0g‘𝑃) |
| 28 | 26, 27 | eqtrdi 2787 |
. . 3
⊢ ((𝜑 ∧ 𝐾 = (0g‘𝑃)) → (𝑃 Σg (𝑘 ∈ (0...𝐷) ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))) = (0g‘𝑃)) |
| 29 | 1, 28 | eqtr4d 2774 |
. 2
⊢ ((𝜑 ∧ 𝐾 = (0g‘𝑃)) → 𝐾 = (𝑃 Σg (𝑘 ∈ (0...𝐷) ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))))) |
| 30 | | ply1coedeg.k |
. . . . 5
⊢ (𝜑 → 𝐾 ∈ 𝐵) |
| 31 | | ply1coedeg.x |
. . . . . 6
⊢ 𝑋 = (var1‘𝑅) |
| 32 | | ply1coedeg.b |
. . . . . 6
⊢ 𝐵 = (Base‘𝑃) |
| 33 | | ply1coedeg.n |
. . . . . 6
⊢ · = (
·𝑠 ‘𝑃) |
| 34 | | ply1coedeg.m |
. . . . . 6
⊢ 𝑀 = (mulGrp‘𝑃) |
| 35 | | ply1coedeg.e |
. . . . . 6
⊢ ↑ =
(.g‘𝑀) |
| 36 | | ply1coedeg.a |
. . . . . 6
⊢ 𝐴 = (coe1‘𝐾) |
| 37 | 7, 31, 32, 33, 34, 35, 36 | ply1coe 22242 |
. . . . 5
⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵) → 𝐾 = (𝑃 Σg (𝑘 ∈ ℕ0
↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))))) |
| 38 | 5, 30, 37 | syl2anc 584 |
. . . 4
⊢ (𝜑 → 𝐾 = (𝑃 Σg (𝑘 ∈ ℕ0
↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))))) |
| 39 | 38 | adantr 480 |
. . 3
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → 𝐾 = (𝑃 Σg (𝑘 ∈ ℕ0
↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))))) |
| 40 | 7 | ply1ring 22188 |
. . . . . . 7
⊢ (𝑅 ∈ Ring → 𝑃 ∈ Ring) |
| 41 | 5, 40 | syl 17 |
. . . . . 6
⊢ (𝜑 → 𝑃 ∈ Ring) |
| 42 | 41 | ringcmnd 20219 |
. . . . 5
⊢ (𝜑 → 𝑃 ∈ CMnd) |
| 43 | 42 | adantr 480 |
. . . 4
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → 𝑃 ∈ CMnd) |
| 44 | | nn0ex 12407 |
. . . . 5
⊢
ℕ0 ∈ V |
| 45 | 44 | a1i 11 |
. . . 4
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → ℕ0 ∈
V) |
| 46 | 30 | ad2antrr 726 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) → 𝐾 ∈ 𝐵) |
| 47 | | difssd 4089 |
. . . . . . . . . 10
⊢ (𝜑 → (ℕ0
∖ (0...𝐷)) ⊆
ℕ0) |
| 48 | 47 | sselda 3933 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) → 𝑘 ∈
ℕ0) |
| 49 | 48 | adantlr 715 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) → 𝑘 ∈
ℕ0) |
| 50 | 5 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → 𝑅 ∈ Ring) |
| 51 | 30 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → 𝐾 ∈ 𝐵) |
| 52 | | simpr 484 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → 𝐾 ≠ (0g‘𝑃)) |
| 53 | 6, 7, 8, 32 | deg1nn0cl 26049 |
. . . . . . . . . . . . 13
⊢ ((𝑅 ∈ Ring ∧ 𝐾 ∈ 𝐵 ∧ 𝐾 ≠ (0g‘𝑃)) → ((deg1‘𝑅)‘𝐾) ∈
ℕ0) |
| 54 | 50, 51, 52, 53 | syl3anc 1373 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → ((deg1‘𝑅)‘𝐾) ∈
ℕ0) |
| 55 | 2, 54 | eqeltrid 2840 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → 𝐷 ∈
ℕ0) |
| 56 | 55 | nn0zd 12513 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → 𝐷 ∈ ℤ) |
| 57 | | nn0diffz0 32874 |
. . . . . . . . . . . . 13
⊢ (𝐷 ∈ ℕ0
→ (ℕ0 ∖ (0...𝐷)) = (ℤ≥‘(𝐷 + 1))) |
| 58 | 55, 57 | syl 17 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → (ℕ0 ∖
(0...𝐷)) =
(ℤ≥‘(𝐷 + 1))) |
| 59 | 58 | eleq2d 2822 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → (𝑘 ∈ (ℕ0 ∖
(0...𝐷)) ↔ 𝑘 ∈
(ℤ≥‘(𝐷 + 1)))) |
| 60 | 59 | biimpa 476 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) → 𝑘 ∈
(ℤ≥‘(𝐷 + 1))) |
| 61 | | eluzp1l 12778 |
. . . . . . . . . 10
⊢ ((𝐷 ∈ ℤ ∧ 𝑘 ∈
(ℤ≥‘(𝐷 + 1))) → 𝐷 < 𝑘) |
| 62 | 56, 60, 61 | syl2an2r 685 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) → 𝐷 < 𝑘) |
| 63 | 2, 62 | eqbrtrrid 5134 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) →
((deg1‘𝑅)‘𝐾) < 𝑘) |
| 64 | | eqid 2736 |
. . . . . . . . 9
⊢
(0g‘𝑅) = (0g‘𝑅) |
| 65 | 6, 7, 32, 64, 36 | deg1lt 26058 |
. . . . . . . 8
⊢ ((𝐾 ∈ 𝐵 ∧ 𝑘 ∈ ℕ0 ∧
((deg1‘𝑅)‘𝐾) < 𝑘) → (𝐴‘𝑘) = (0g‘𝑅)) |
| 66 | 46, 49, 63, 65 | syl3anc 1373 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) → (𝐴‘𝑘) = (0g‘𝑅)) |
| 67 | 7 | ply1sca 22193 |
. . . . . . . . . 10
⊢ (𝑅 ∈ Ring → 𝑅 = (Scalar‘𝑃)) |
| 68 | 5, 67 | syl 17 |
. . . . . . . . 9
⊢ (𝜑 → 𝑅 = (Scalar‘𝑃)) |
| 69 | 68 | fveq2d 6838 |
. . . . . . . 8
⊢ (𝜑 → (0g‘𝑅) =
(0g‘(Scalar‘𝑃))) |
| 70 | 69 | ad2antrr 726 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) →
(0g‘𝑅) =
(0g‘(Scalar‘𝑃))) |
| 71 | 66, 70 | eqtrd 2771 |
. . . . . 6
⊢ (((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) → (𝐴‘𝑘) = (0g‘(Scalar‘𝑃))) |
| 72 | 71 | oveq1d 7373 |
. . . . 5
⊢ (((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) → ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)) =
((0g‘(Scalar‘𝑃)) · (𝑘 ↑ 𝑋))) |
| 73 | 7 | ply1lmod 22192 |
. . . . . . . 8
⊢ (𝑅 ∈ Ring → 𝑃 ∈ LMod) |
| 74 | 5, 73 | syl 17 |
. . . . . . 7
⊢ (𝜑 → 𝑃 ∈ LMod) |
| 75 | 34, 32 | mgpbas 20080 |
. . . . . . . . 9
⊢ 𝐵 = (Base‘𝑀) |
| 76 | 34 | ringmgp 20174 |
. . . . . . . . . . 11
⊢ (𝑃 ∈ Ring → 𝑀 ∈ Mnd) |
| 77 | 41, 76 | syl 17 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑀 ∈ Mnd) |
| 78 | 77 | adantr 480 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 𝑀 ∈ Mnd) |
| 79 | | simpr 484 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 𝑘 ∈
ℕ0) |
| 80 | 31, 7, 32 | vr1cl 22158 |
. . . . . . . . . . 11
⊢ (𝑅 ∈ Ring → 𝑋 ∈ 𝐵) |
| 81 | 5, 80 | syl 17 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑋 ∈ 𝐵) |
| 82 | 81 | adantr 480 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 𝑋 ∈ 𝐵) |
| 83 | 75, 35, 78, 79, 82 | mulgnn0cld 19025 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝑘 ↑ 𝑋) ∈ 𝐵) |
| 84 | 48, 83 | syldan 591 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) → (𝑘 ↑ 𝑋) ∈ 𝐵) |
| 85 | | eqid 2736 |
. . . . . . . 8
⊢
(Scalar‘𝑃) =
(Scalar‘𝑃) |
| 86 | | eqid 2736 |
. . . . . . . 8
⊢
(0g‘(Scalar‘𝑃)) =
(0g‘(Scalar‘𝑃)) |
| 87 | 32, 85, 33, 86, 8 | lmod0vs 20846 |
. . . . . . 7
⊢ ((𝑃 ∈ LMod ∧ (𝑘 ↑ 𝑋) ∈ 𝐵) →
((0g‘(Scalar‘𝑃)) · (𝑘 ↑ 𝑋)) = (0g‘𝑃)) |
| 88 | 74, 84, 87 | syl2an2r 685 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) →
((0g‘(Scalar‘𝑃)) · (𝑘 ↑ 𝑋)) = (0g‘𝑃)) |
| 89 | 88 | adantlr 715 |
. . . . 5
⊢ (((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) →
((0g‘(Scalar‘𝑃)) · (𝑘 ↑ 𝑋)) = (0g‘𝑃)) |
| 90 | 72, 89 | eqtrd 2771 |
. . . 4
⊢ (((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) ∧ 𝑘 ∈ (ℕ0 ∖
(0...𝐷))) → ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)) = (0g‘𝑃)) |
| 91 | | fzfid 13896 |
. . . 4
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → (0...𝐷) ∈ Fin) |
| 92 | | eqid 2736 |
. . . . . 6
⊢
(Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃)) |
| 93 | 74 | adantr 480 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 𝑃 ∈ LMod) |
| 94 | | eqid 2736 |
. . . . . . . . 9
⊢
(Base‘𝑅) =
(Base‘𝑅) |
| 95 | 36, 32, 7, 94 | coe1fvalcl 22153 |
. . . . . . . 8
⊢ ((𝐾 ∈ 𝐵 ∧ 𝑘 ∈ ℕ0) → (𝐴‘𝑘) ∈ (Base‘𝑅)) |
| 96 | 30, 95 | sylan 580 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐴‘𝑘) ∈ (Base‘𝑅)) |
| 97 | 68 | fveq2d 6838 |
. . . . . . . 8
⊢ (𝜑 → (Base‘𝑅) =
(Base‘(Scalar‘𝑃))) |
| 98 | 97 | adantr 480 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) →
(Base‘𝑅) =
(Base‘(Scalar‘𝑃))) |
| 99 | 96, 98 | eleqtrd 2838 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐴‘𝑘) ∈ (Base‘(Scalar‘𝑃))) |
| 100 | 32, 85, 33, 92, 93, 99, 83 | lmodvscld 20830 |
. . . . 5
⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)) ∈ 𝐵) |
| 101 | 100 | adantlr 715 |
. . . 4
⊢ (((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) ∧ 𝑘 ∈ ℕ0) → ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)) ∈ 𝐵) |
| 102 | | fz0ssnn0 13538 |
. . . . 5
⊢
(0...𝐷) ⊆
ℕ0 |
| 103 | 102 | a1i 11 |
. . . 4
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → (0...𝐷) ⊆
ℕ0) |
| 104 | 32, 8, 43, 45, 90, 91, 101, 103 | gsummptres2 33136 |
. . 3
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → (𝑃 Σg (𝑘 ∈ ℕ0
↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋)))) = (𝑃 Σg (𝑘 ∈ (0...𝐷) ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))))) |
| 105 | 39, 104 | eqtrd 2771 |
. 2
⊢ ((𝜑 ∧ 𝐾 ≠ (0g‘𝑃)) → 𝐾 = (𝑃 Σg (𝑘 ∈ (0...𝐷) ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))))) |
| 106 | 29, 105 | pm2.61dane 3019 |
1
⊢ (𝜑 → 𝐾 = (𝑃 Σg (𝑘 ∈ (0...𝐷) ↦ ((𝐴‘𝑘) · (𝑘 ↑ 𝑋))))) |