Metamath Proof Explorer


Theorem evls1degle1

Description: Evaluation of a univariate polynomial of degree at most 1. (Contributed by Thierry Arnoux, 8-Nov-2026)

Ref Expression
Hypotheses evls1degle1.p ⊢ P = Poly 1 ⁡ R ↾ 𝑠 S
evls1degle1.q ⊢ Q = R evalSub 1 S
evls1degle1.v ⊢ V = Base R
evls1degle1.u ⊢ U = Base P
evls1degle1.m ⊢ · ˙ = ⋅ R
evls1degle1.t ⊢ + ˙ = + R
evls1degle1.c ⊢ C = coe 1 ⁡ F
evls1degle1.d ⊢ D = deg 1 ⁡ R
evls1degle1.a ⊢ A = C ⁡ 1
evls1degle1.b ⊢ B = C ⁡ 0
evls1degle1.r ⊢ φ → R ∈ CRing
evls1degle1.s ⊢ φ → S ∈ SubRing ⁡ R
evls1degle1.f ⊢ φ → F ∈ U
evls1degle1.1 ⊢ φ → D ⁡ F ≤ 1
evls1degle1.x ⊢ φ → X ∈ V
Assertion evls1degle1 ⊢ φ → Q ⁡ F ⁡ X = A · ˙ X + ˙ B

Proof

Step Hyp Ref Expression
1 evls1degle1.p ⊢ P = Poly 1 ⁡ R ↾ 𝑠 S
2 evls1degle1.q ⊢ Q = R evalSub 1 S
3 evls1degle1.v ⊢ V = Base R
4 evls1degle1.u ⊢ U = Base P
5 evls1degle1.m ⊢ · ˙ = ⋅ R
6 evls1degle1.t ⊢ + ˙ = + R
7 evls1degle1.c ⊢ C = coe 1 ⁡ F
8 evls1degle1.d ⊢ D = deg 1 ⁡ R
9 evls1degle1.a ⊢ A = C ⁡ 1
10 evls1degle1.b ⊢ B = C ⁡ 0
11 evls1degle1.r ⊢ φ → R ∈ CRing
12 evls1degle1.s ⊢ φ → S ∈ SubRing ⁡ R
13 evls1degle1.f ⊢ φ → F ∈ U
14 evls1degle1.1 ⊢ φ → D ⁡ F ≤ 1
15 evls1degle1.x ⊢ φ → X ∈ V
16 eqid ⊢ 0 R = 0 R
17 11 crngringd ⊢ φ → R ∈ Ring
18 17 adantr ⊢ φ ∧ D ⁡ F ≤ 0 → R ∈ Ring
19 18 ringgrpd ⊢ φ ∧ D ⁡ F ≤ 0 → R ∈ Grp
20 3 subrgss ⊢ S ∈ SubRing ⁡ R → S ⊆ V
21 12 20 syl ⊢ φ → S ⊆ V
22 0nn0 ⊢ 0 ∈ ℕ 0
23 eqid ⊢ Base R ↾ 𝑠 S = Base R ↾ 𝑠 S
24 7 4 1 23 coe1fvalcl ⊢ F ∈ U ∧ 0 ∈ ℕ 0 → C ⁡ 0 ∈ Base R ↾ 𝑠 S
25 13 22 24 sylancl ⊢ φ → C ⁡ 0 ∈ Base R ↾ 𝑠 S
26 eqid ⊢ R ↾ 𝑠 S = R ↾ 𝑠 S
27 26 subrgbas ⊢ S ∈ SubRing ⁡ R → S = Base R ↾ 𝑠 S
28 12 27 syl ⊢ φ → S = Base R ↾ 𝑠 S
29 25 28 eleqtrrd ⊢ φ → C ⁡ 0 ∈ S
30 10 29 eqeltrid ⊢ φ → B ∈ S
31 21 30 sseldd ⊢ φ → B ∈ V
32 31 adantr ⊢ φ ∧ D ⁡ F ≤ 0 → B ∈ V
33 3 6 16 19 32 grplidd ⊢ φ ∧ D ⁡ F ≤ 0 → 0 R + ˙ B = B
34 eqid ⊢ Poly 1 ⁡ R = Poly 1 ⁡ R
35 34 26 1 4 subrgply1 ⊢ S ∈ SubRing ⁡ R → U ∈ SubRing ⁡ Poly 1 ⁡ R
36 eqid ⊢ Base Poly 1 ⁡ R = Base Poly 1 ⁡ R
37 36 subrgss ⊢ U ∈ SubRing ⁡ Poly 1 ⁡ R → U ⊆ Base Poly 1 ⁡ R
38 12 35 37 3syl ⊢ φ → U ⊆ Base Poly 1 ⁡ R
39 38 13 sseldd ⊢ φ → F ∈ Base Poly 1 ⁡ R
40 39 adantr ⊢ φ ∧ D ⁡ F ≤ 0 → F ∈ Base Poly 1 ⁡ R
41 1nn0 ⊢ 1 ∈ ℕ 0
42 41 a1i ⊢ φ ∧ D ⁡ F ≤ 0 → 1 ∈ ℕ 0
43 8 34 36 deg1xrcl ⊢ F ∈ Base Poly 1 ⁡ R → D ⁡ F ∈ ℝ *
44 39 43 syl ⊢ φ → D ⁡ F ∈ ℝ *
45 44 adantr ⊢ φ ∧ D ⁡ F ≤ 0 → D ⁡ F ∈ ℝ *
46 0xr ⊢ 0 ∈ ℝ *
47 46 a1i ⊢ φ ∧ D ⁡ F ≤ 0 → 0 ∈ ℝ *
48 1xr ⊢ 1 ∈ ℝ *
49 48 a1i ⊢ φ ∧ D ⁡ F ≤ 0 → 1 ∈ ℝ *
50 simpr ⊢ φ ∧ D ⁡ F ≤ 0 → D ⁡ F ≤ 0
51 0lt1 ⊢ 0 < 1
52 51 a1i ⊢ φ ∧ D ⁡ F ≤ 0 → 0 < 1
53 45 47 49 50 52 xrlelttrd ⊢ φ ∧ D ⁡ F ≤ 0 → D ⁡ F < 1
54 8 34 36 16 7 deg1lt ⊢ F ∈ Base Poly 1 ⁡ R ∧ 1 ∈ ℕ 0 ∧ D ⁡ F < 1 → C ⁡ 1 = 0 R
55 40 42 53 54 syl3anc ⊢ φ ∧ D ⁡ F ≤ 0 → C ⁡ 1 = 0 R
56 9 55 eqtrid ⊢ φ ∧ D ⁡ F ≤ 0 → A = 0 R
57 56 oveq1d ⊢ φ ∧ D ⁡ F ≤ 0 → A · ˙ X = 0 R · ˙ X
58 15 adantr ⊢ φ ∧ D ⁡ F ≤ 0 → X ∈ V
59 3 5 16 18 58 ringlzd ⊢ φ ∧ D ⁡ F ≤ 0 → 0 R · ˙ X = 0 R
60 57 59 eqtrd ⊢ φ ∧ D ⁡ F ≤ 0 → A · ˙ X = 0 R
61 60 oveq1d ⊢ φ ∧ D ⁡ F ≤ 0 → A · ˙ X + ˙ B = 0 R + ˙ B
62 eqid ⊢ algSc ⁡ Poly 1 ⁡ R = algSc ⁡ Poly 1 ⁡ R
63 8 34 36 62 deg1le0 ⊢ R ∈ Ring ∧ F ∈ Base Poly 1 ⁡ R → D ⁡ F ≤ 0 ↔ F = algSc ⁡ Poly 1 ⁡ R ⁡ coe 1 ⁡ F ⁡ 0
64 63 biimpa ⊢ R ∈ Ring ∧ F ∈ Base Poly 1 ⁡ R ∧ D ⁡ F ≤ 0 → F = algSc ⁡ Poly 1 ⁡ R ⁡ coe 1 ⁡ F ⁡ 0
65 18 40 50 64 syl21anc ⊢ φ ∧ D ⁡ F ≤ 0 → F = algSc ⁡ Poly 1 ⁡ R ⁡ coe 1 ⁡ F ⁡ 0
66 7 fveq1i ⊢ C ⁡ 0 = coe 1 ⁡ F ⁡ 0
67 10 66 eqtri ⊢ B = coe 1 ⁡ F ⁡ 0
68 67 fveq2i ⊢ algSc ⁡ Poly 1 ⁡ R ⁡ B = algSc ⁡ Poly 1 ⁡ R ⁡ coe 1 ⁡ F ⁡ 0
69 65 68 eqtr4di ⊢ φ ∧ D ⁡ F ≤ 0 → F = algSc ⁡ Poly 1 ⁡ R ⁡ B
70 69 fveq2d ⊢ φ ∧ D ⁡ F ≤ 0 → Q ⁡ F = Q ⁡ algSc ⁡ Poly 1 ⁡ R ⁡ B
71 70 fveq1d ⊢ φ ∧ D ⁡ F ≤ 0 → Q ⁡ F ⁡ X = Q ⁡ algSc ⁡ Poly 1 ⁡ R ⁡ B ⁡ X
72 12 adantr ⊢ φ ∧ D ⁡ F ≤ 0 → S ∈ SubRing ⁡ R
73 eqid ⊢ algSc ⁡ P = algSc ⁡ P
74 34 62 26 1 72 73 subrg1ascl ⊢ φ ∧ D ⁡ F ≤ 0 → algSc ⁡ P = algSc ⁡ Poly 1 ⁡ R ↾ S
75 74 fveq1d ⊢ φ ∧ D ⁡ F ≤ 0 → algSc ⁡ P ⁡ B = algSc ⁡ Poly 1 ⁡ R ↾ S ⁡ B
76 30 adantr ⊢ φ ∧ D ⁡ F ≤ 0 → B ∈ S
77 76 fvresd ⊢ φ ∧ D ⁡ F ≤ 0 → algSc ⁡ Poly 1 ⁡ R ↾ S ⁡ B = algSc ⁡ Poly 1 ⁡ R ⁡ B
78 75 77 eqtr2d ⊢ φ ∧ D ⁡ F ≤ 0 → algSc ⁡ Poly 1 ⁡ R ⁡ B = algSc ⁡ P ⁡ B
79 78 fveq2d ⊢ φ ∧ D ⁡ F ≤ 0 → Q ⁡ algSc ⁡ Poly 1 ⁡ R ⁡ B = Q ⁡ algSc ⁡ P ⁡ B
80 79 fveq1d ⊢ φ ∧ D ⁡ F ≤ 0 → Q ⁡ algSc ⁡ Poly 1 ⁡ R ⁡ B ⁡ X = Q ⁡ algSc ⁡ P ⁡ B ⁡ X
81 11 adantr ⊢ φ ∧ D ⁡ F ≤ 0 → R ∈ CRing
82 2 1 26 3 73 81 72 76 58 evls1scafv ⊢ φ ∧ D ⁡ F ≤ 0 → Q ⁡ algSc ⁡ P ⁡ B ⁡ X = B
83 71 80 82 3eqtrd ⊢ φ ∧ D ⁡ F ≤ 0 → Q ⁡ F ⁡ X = B
84 33 61 83 3eqtr4rd ⊢ φ ∧ D ⁡ F ≤ 0 → Q ⁡ F ⁡ X = A · ˙ X + ˙ B
85 eqid ⊢ eval 1 ⁡ R = eval 1 ⁡ R
86 2 3 1 26 4 85 11 12 ressply1evl ⊢ φ → Q = eval 1 ⁡ R ↾ U
87 86 fveq1d ⊢ φ → Q ⁡ F = eval 1 ⁡ R ↾ U ⁡ F
88 13 fvresd ⊢ φ → eval 1 ⁡ R ↾ U ⁡ F = eval 1 ⁡ R ⁡ F
89 87 88 eqtrd ⊢ φ → Q ⁡ F = eval 1 ⁡ R ⁡ F
90 89 fveq1d ⊢ φ → Q ⁡ F ⁡ X = eval 1 ⁡ R ⁡ F ⁡ X
91 90 adantr ⊢ φ ∧ D ⁡ F = 1 → Q ⁡ F ⁡ X = eval 1 ⁡ R ⁡ F ⁡ X
92 11 adantr ⊢ φ ∧ D ⁡ F = 1 → R ∈ CRing
93 39 adantr ⊢ φ ∧ D ⁡ F = 1 → F ∈ Base Poly 1 ⁡ R
94 simpr ⊢ φ ∧ D ⁡ F = 1 → D ⁡ F = 1
95 15 adantr ⊢ φ ∧ D ⁡ F = 1 → X ∈ V
96 34 85 3 36 5 6 7 8 9 10 92 93 94 95 evl1deg1 ⊢ φ ∧ D ⁡ F = 1 → eval 1 ⁡ R ⁡ F ⁡ X = A · ˙ X + ˙ B
97 91 96 eqtrd ⊢ φ ∧ D ⁡ F = 1 → Q ⁡ F ⁡ X = A · ˙ X + ˙ B
98 8 34 36 39 14 deg1le1 ⊢ φ → D ⁡ F ≤ 0 ∨ D ⁡ F = 1
99 84 97 98 mpjaodan ⊢ φ → Q ⁡ F ⁡ X = A · ˙ X + ˙ B