Proof of Theorem evls1degle1
| Step | Hyp | Ref
| Expression |
| 1 | | evls1degle1.v |
. . . 4
⊢ 𝑉 = (Base‘𝑅) |
| 2 | | evls1degle1.t |
. . . 4
⊢ + =
(+g‘𝑅) |
| 3 | | eqid 2763 |
. . . 4
⊢
(0g‘𝑅) = (0g‘𝑅) |
| 4 | | evls1degle1.r |
. . . . . . 7
⊢ (𝜑 → 𝑅 ∈ CRing) |
| 5 | 4 | crngringd 20515 |
. . . . . 6
⊢ (𝜑 → 𝑅 ∈ Ring) |
| 6 | 5 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 𝑅 ∈ Ring) |
| 7 | 6 | ringgrpd 20511 |
. . . 4
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 𝑅 ∈ Grp) |
| 8 | | evls1degle1.s |
. . . . . . 7
⊢ (𝜑 → 𝑆 ∈ (SubRing‘𝑅)) |
| 9 | 1 | subrgss 20866 |
. . . . . . 7
⊢ (𝑆 ∈ (SubRing‘𝑅) → 𝑆 ⊆ 𝑉) |
| 10 | 8, 9 | syl 18 |
. . . . . 6
⊢ (𝜑 → 𝑆 ⊆ 𝑉) |
| 11 | | evls1degle1.b |
. . . . . . 7
⊢ 𝐵 = (𝐶‘0) |
| 12 | | evls1degle1.f |
. . . . . . . . 9
⊢ (𝜑 → 𝐹 ∈ 𝑈) |
| 13 | | 0nn0 12659 |
. . . . . . . . 9
⊢ 0 ∈
ℕ0 |
| 14 | | evls1degle1.c |
. . . . . . . . . 10
⊢ 𝐶 = (coe1‘𝐹) |
| 15 | | evls1degle1.u |
. . . . . . . . . 10
⊢ 𝑈 = (Base‘𝑃) |
| 16 | | evls1degle1.p |
. . . . . . . . . 10
⊢ 𝑃 =
(Poly1‘(𝑅
↾s 𝑆)) |
| 17 | | eqid 2763 |
. . . . . . . . . 10
⊢
(Base‘(𝑅
↾s 𝑆)) =
(Base‘(𝑅
↾s 𝑆)) |
| 18 | 14, 15, 16, 17 | coe1fvalcl 22574 |
. . . . . . . . 9
⊢ ((𝐹 ∈ 𝑈 ∧ 0 ∈ ℕ0) →
(𝐶‘0) ∈
(Base‘(𝑅
↾s 𝑆))) |
| 19 | 12, 13, 18 | sylancl 598 |
. . . . . . . 8
⊢ (𝜑 → (𝐶‘0) ∈ (Base‘(𝑅 ↾s 𝑆))) |
| 20 | | eqid 2763 |
. . . . . . . . . 10
⊢ (𝑅 ↾s 𝑆) = (𝑅 ↾s 𝑆) |
| 21 | 20 | subrgbas 20875 |
. . . . . . . . 9
⊢ (𝑆 ∈ (SubRing‘𝑅) → 𝑆 = (Base‘(𝑅 ↾s 𝑆))) |
| 22 | 8, 21 | syl 18 |
. . . . . . . 8
⊢ (𝜑 → 𝑆 = (Base‘(𝑅 ↾s 𝑆))) |
| 23 | 19, 22 | eleqtrrd 2867 |
. . . . . . 7
⊢ (𝜑 → (𝐶‘0) ∈ 𝑆) |
| 24 | 11, 23 | eqeltrid 2868 |
. . . . . 6
⊢ (𝜑 → 𝐵 ∈ 𝑆) |
| 25 | 10, 24 | sseldd 3914 |
. . . . 5
⊢ (𝜑 → 𝐵 ∈ 𝑉) |
| 26 | 25 | adantr 486 |
. . . 4
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 𝐵 ∈ 𝑉) |
| 27 | 1, 2, 3, 7, 26 | grplidd 19221 |
. . 3
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → ((0g‘𝑅) + 𝐵) = 𝐵) |
| 28 | | evls1degle1.a |
. . . . . . 7
⊢ 𝐴 = (𝐶‘1) |
| 29 | | eqid 2763 |
. . . . . . . . . . . 12
⊢
(Poly1‘𝑅) = (Poly1‘𝑅) |
| 30 | 29, 20, 16, 15 | subrgply1 22594 |
. . . . . . . . . . 11
⊢ (𝑆 ∈ (SubRing‘𝑅) → 𝑈 ∈
(SubRing‘(Poly1‘𝑅))) |
| 31 | | eqid 2763 |
. . . . . . . . . . . 12
⊢
(Base‘(Poly1‘𝑅)) =
(Base‘(Poly1‘𝑅)) |
| 32 | 31 | subrgss 20866 |
. . . . . . . . . . 11
⊢ (𝑈 ∈
(SubRing‘(Poly1‘𝑅)) → 𝑈 ⊆
(Base‘(Poly1‘𝑅))) |
| 33 | 8, 30, 32 | 3syl 19 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑈 ⊆
(Base‘(Poly1‘𝑅))) |
| 34 | 33, 12 | sseldd 3914 |
. . . . . . . . 9
⊢ (𝜑 → 𝐹 ∈
(Base‘(Poly1‘𝑅))) |
| 35 | 34 | adantr 486 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 𝐹 ∈
(Base‘(Poly1‘𝑅))) |
| 36 | | 1nn0 12660 |
. . . . . . . . 9
⊢ 1 ∈
ℕ0 |
| 37 | 36 | a1i 11 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 1 ∈
ℕ0) |
| 38 | | evls1degle1.d |
. . . . . . . . . . . 12
⊢ 𝐷 = (deg1‘𝑅) |
| 39 | 38, 29, 31 | deg1xrcl 26444 |
. . . . . . . . . . 11
⊢ (𝐹 ∈
(Base‘(Poly1‘𝑅)) → (𝐷‘𝐹) ∈
ℝ*) |
| 40 | 34, 39 | syl 18 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐷‘𝐹) ∈
ℝ*) |
| 41 | 40 | adantr 486 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → (𝐷‘𝐹) ∈
ℝ*) |
| 42 | | 0xr 11393 |
. . . . . . . . . 10
⊢ 0 ∈
ℝ* |
| 43 | 42 | a1i 11 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 0 ∈
ℝ*) |
| 44 | | 1xr 11405 |
. . . . . . . . . 10
⊢ 1 ∈
ℝ* |
| 45 | 44 | a1i 11 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 1 ∈
ℝ*) |
| 46 | | simpr 490 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → (𝐷‘𝐹) ≤ 0) |
| 47 | | 0lt1 11876 |
. . . . . . . . . 10
⊢ 0 <
1 |
| 48 | 47 | a1i 11 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 0 < 1) |
| 49 | 41, 43, 45, 46, 48 | xrlelttrd 13327 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → (𝐷‘𝐹) < 1) |
| 50 | 38, 29, 31, 3, 14 | deg1lt 26459 |
. . . . . . . 8
⊢ ((𝐹 ∈
(Base‘(Poly1‘𝑅)) ∧ 1 ∈ ℕ0 ∧
(𝐷‘𝐹) < 1) → (𝐶‘1) = (0g‘𝑅)) |
| 51 | 35, 37, 49, 50 | syl3anc 1399 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → (𝐶‘1) = (0g‘𝑅)) |
| 52 | 28, 51 | eqtrid 2810 |
. . . . . 6
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 𝐴 = (0g‘𝑅)) |
| 53 | 52 | oveq1d 7464 |
. . . . 5
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → (𝐴 · 𝑋) = ((0g‘𝑅) · 𝑋)) |
| 54 | | evls1degle1.m |
. . . . . 6
⊢ · =
(.r‘𝑅) |
| 55 | | evls1degle1.x |
. . . . . . 7
⊢ (𝜑 → 𝑋 ∈ 𝑉) |
| 56 | 55 | adantr 486 |
. . . . . 6
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 𝑋 ∈ 𝑉) |
| 57 | 1, 54, 3, 6, 56 | ringlzd 20568 |
. . . . 5
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → ((0g‘𝑅) · 𝑋) = (0g‘𝑅)) |
| 58 | 53, 57 | eqtrd 2798 |
. . . 4
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → (𝐴 · 𝑋) = (0g‘𝑅)) |
| 59 | 58 | oveq1d 7464 |
. . 3
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → ((𝐴 · 𝑋) + 𝐵) = ((0g‘𝑅) + 𝐵)) |
| 60 | | eqid 2763 |
. . . . . . . . . 10
⊢
(algSc‘(Poly1‘𝑅)) =
(algSc‘(Poly1‘𝑅)) |
| 61 | 38, 29, 31, 60 | deg1le0 26473 |
. . . . . . . . 9
⊢ ((𝑅 ∈ Ring ∧ 𝐹 ∈
(Base‘(Poly1‘𝑅))) → ((𝐷‘𝐹) ≤ 0 ↔ 𝐹 =
((algSc‘(Poly1‘𝑅))‘((coe1‘𝐹)‘0)))) |
| 62 | 61 | biimpa 482 |
. . . . . . . 8
⊢ (((𝑅 ∈ Ring ∧ 𝐹 ∈
(Base‘(Poly1‘𝑅))) ∧ (𝐷‘𝐹) ≤ 0) → 𝐹 =
((algSc‘(Poly1‘𝑅))‘((coe1‘𝐹)‘0))) |
| 63 | 6, 35, 46, 62 | syl21anc 851 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 𝐹 =
((algSc‘(Poly1‘𝑅))‘((coe1‘𝐹)‘0))) |
| 64 | 14 | fveq1i 6915 |
. . . . . . . . 9
⊢ (𝐶‘0) =
((coe1‘𝐹)‘0) |
| 65 | 11, 64 | eqtri 2786 |
. . . . . . . 8
⊢ 𝐵 = ((coe1‘𝐹)‘0) |
| 66 | 65 | fveq2i 6917 |
. . . . . . 7
⊢
((algSc‘(Poly1‘𝑅))‘𝐵) =
((algSc‘(Poly1‘𝑅))‘((coe1‘𝐹)‘0)) |
| 67 | 63, 66 | eqtr4di 2816 |
. . . . . 6
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 𝐹 =
((algSc‘(Poly1‘𝑅))‘𝐵)) |
| 68 | 67 | fveq2d 6918 |
. . . . 5
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → (𝑄‘𝐹) = (𝑄‘((algSc‘(Poly1‘𝑅))‘𝐵))) |
| 69 | 68 | fveq1d 6916 |
. . . 4
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → ((𝑄‘𝐹)‘𝑋) = ((𝑄‘((algSc‘(Poly1‘𝑅))‘𝐵))‘𝑋)) |
| 70 | 8 | adantr 486 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 𝑆 ∈ (SubRing‘𝑅)) |
| 71 | | eqid 2763 |
. . . . . . . . 9
⊢
(algSc‘𝑃) =
(algSc‘𝑃) |
| 72 | 29, 60, 20, 16, 70, 71 | subrg1ascl 22622 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → (algSc‘𝑃) =
((algSc‘(Poly1‘𝑅)) ↾ 𝑆)) |
| 73 | 72 | fveq1d 6916 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → ((algSc‘𝑃)‘𝐵) =
(((algSc‘(Poly1‘𝑅)) ↾ 𝑆)‘𝐵)) |
| 74 | 24 | adantr 486 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 𝐵 ∈ 𝑆) |
| 75 | 74 | fvresd 6934 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) →
(((algSc‘(Poly1‘𝑅)) ↾ 𝑆)‘𝐵) =
((algSc‘(Poly1‘𝑅))‘𝐵)) |
| 76 | 73, 75 | eqtr2d 2799 |
. . . . . 6
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) →
((algSc‘(Poly1‘𝑅))‘𝐵) = ((algSc‘𝑃)‘𝐵)) |
| 77 | 76 | fveq2d 6918 |
. . . . 5
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → (𝑄‘((algSc‘(Poly1‘𝑅))‘𝐵)) = (𝑄‘((algSc‘𝑃)‘𝐵))) |
| 78 | 77 | fveq1d 6916 |
. . . 4
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → ((𝑄‘((algSc‘(Poly1‘𝑅))‘𝐵))‘𝑋) = ((𝑄‘((algSc‘𝑃)‘𝐵))‘𝑋)) |
| 79 | | evls1degle1.q |
. . . . 5
⊢ 𝑄 = (𝑅 evalSub1 𝑆) |
| 80 | 4 | adantr 486 |
. . . . 5
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → 𝑅 ∈ CRing) |
| 81 | 79, 16, 20, 1, 71, 80, 70, 74, 56 | evls1scafv 22728 |
. . . 4
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → ((𝑄‘((algSc‘𝑃)‘𝐵))‘𝑋) = 𝐵) |
| 82 | 69, 78, 81 | 3eqtrd 2802 |
. . 3
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → ((𝑄‘𝐹)‘𝑋) = 𝐵) |
| 83 | 27, 59, 82 | 3eqtr4rd 2809 |
. 2
⊢ ((𝜑 ∧ (𝐷‘𝐹) ≤ 0) → ((𝑄‘𝐹)‘𝑋) = ((𝐴 · 𝑋) + 𝐵)) |
| 84 | | eqid 2763 |
. . . . . . . 8
⊢
(eval1‘𝑅) = (eval1‘𝑅) |
| 85 | 79, 1, 16, 20, 15, 84, 4, 8 | ressply1evl 22732 |
. . . . . . 7
⊢ (𝜑 → 𝑄 = ((eval1‘𝑅) ↾ 𝑈)) |
| 86 | 85 | fveq1d 6916 |
. . . . . 6
⊢ (𝜑 → (𝑄‘𝐹) = (((eval1‘𝑅) ↾ 𝑈)‘𝐹)) |
| 87 | 12 | fvresd 6934 |
. . . . . 6
⊢ (𝜑 →
(((eval1‘𝑅) ↾ 𝑈)‘𝐹) = ((eval1‘𝑅)‘𝐹)) |
| 88 | 86, 87 | eqtrd 2798 |
. . . . 5
⊢ (𝜑 → (𝑄‘𝐹) = ((eval1‘𝑅)‘𝐹)) |
| 89 | 88 | fveq1d 6916 |
. . . 4
⊢ (𝜑 → ((𝑄‘𝐹)‘𝑋) = (((eval1‘𝑅)‘𝐹)‘𝑋)) |
| 90 | 89 | adantr 486 |
. . 3
⊢ ((𝜑 ∧ (𝐷‘𝐹) = 1) → ((𝑄‘𝐹)‘𝑋) = (((eval1‘𝑅)‘𝐹)‘𝑋)) |
| 91 | 4 | adantr 486 |
. . . 4
⊢ ((𝜑 ∧ (𝐷‘𝐹) = 1) → 𝑅 ∈ CRing) |
| 92 | 34 | adantr 486 |
. . . 4
⊢ ((𝜑 ∧ (𝐷‘𝐹) = 1) → 𝐹 ∈
(Base‘(Poly1‘𝑅))) |
| 93 | | simpr 490 |
. . . 4
⊢ ((𝜑 ∧ (𝐷‘𝐹) = 1) → (𝐷‘𝐹) = 1) |
| 94 | 55 | adantr 486 |
. . . 4
⊢ ((𝜑 ∧ (𝐷‘𝐹) = 1) → 𝑋 ∈ 𝑉) |
| 95 | 29, 84, 1, 31, 54, 2, 14, 38, 28, 11, 91, 92, 93, 94 | evl1deg1 34204 |
. . 3
⊢ ((𝜑 ∧ (𝐷‘𝐹) = 1) →
(((eval1‘𝑅)‘𝐹)‘𝑋) = ((𝐴 · 𝑋) + 𝐵)) |
| 96 | 90, 95 | eqtrd 2798 |
. 2
⊢ ((𝜑 ∧ (𝐷‘𝐹) = 1) → ((𝑄‘𝐹)‘𝑋) = ((𝐴 · 𝑋) + 𝐵)) |
| 97 | | evls1degle1.1 |
. . 3
⊢ (𝜑 → (𝐷‘𝐹) ≤ 1) |
| 98 | 38, 29, 31, 34, 97 | deg1le1 34231 |
. 2
⊢ (𝜑 → ((𝐷‘𝐹) ≤ 0 ∨ (𝐷‘𝐹) = 1)) |
| 99 | 83, 96, 98 | mpjaodan 973 |
1
⊢ (𝜑 → ((𝑄‘𝐹)‘𝑋) = ((𝐴 · 𝑋) + 𝐵)) |