Metamath Proof Explorer


Theorem ply1degleel

Description: Characterize elementhood in the set S of polynomials of degree less than N . (Contributed by Thierry Arnoux, 2-Apr-2025)

Ref Expression
Hypotheses ply1degltlss.p ⊢ P = Poly 1 ⁡ R
ply1degltlss.d ⊢ D = deg 1 ⁡ R
ply1degltlss.1 ⊢ S = D -1 −∞ N
ply1degltlss.3 ⊢ φ → N ∈ ℕ 0
ply1degltlss.2 ⊢ φ → R ∈ Ring
ply1degltel.1 ⊢ B = Base P
Assertion ply1degleel ⊢ φ → F ∈ S ↔ F ∈ B ∧ D ⁡ F < N

Proof

Step Hyp Ref Expression
1 ply1degltlss.p ⊢ P = Poly 1 ⁡ R
2 ply1degltlss.d ⊢ D = deg 1 ⁡ R
3 ply1degltlss.1 ⊢ S = D -1 −∞ N
4 ply1degltlss.3 ⊢ φ → N ∈ ℕ 0
5 ply1degltlss.2 ⊢ φ → R ∈ Ring
6 ply1degltel.1 ⊢ B = Base P
7 simpr ⊢ φ ∧ F = 0 P → F = 0 P
8 2 1 6 deg1xrf ⊢ D : B ⟶ ℝ *
9 8 a1i ⊢ φ → D : B ⟶ ℝ *
10 9 ffnd ⊢ φ → D Fn B
11 1 ply1ring ⊢ R ∈ Ring → P ∈ Ring
12 eqid ⊢ 0 P = 0 P
13 6 12 ring0cl ⊢ P ∈ Ring → 0 P ∈ B
14 5 11 13 3syl ⊢ φ → 0 P ∈ B
15 2 1 12 deg1z ⊢ R ∈ Ring → D ⁡ 0 P = −∞
16 5 15 syl ⊢ φ → D ⁡ 0 P = −∞
17 mnfxr ⊢ −∞ ∈ ℝ *
18 17 a1i ⊢ φ → −∞ ∈ ℝ *
19 4 nn0red ⊢ φ → N ∈ ℝ
20 19 rexrd ⊢ φ → N ∈ ℝ *
21 18 xrleidd ⊢ φ → −∞ ≤ −∞
22 19 mnfltd ⊢ φ → −∞ < N
23 18 20 18 21 22 elicod ⊢ φ → −∞ ∈ −∞ N
24 16 23 eqeltrd ⊢ φ → D ⁡ 0 P ∈ −∞ N
25 10 14 24 elpreimad ⊢ φ → 0 P ∈ D -1 −∞ N
26 25 3 eleqtrrdi ⊢ φ → 0 P ∈ S
27 26 adantr ⊢ φ ∧ F = 0 P → 0 P ∈ S
28 7 27 eqeltrd ⊢ φ ∧ F = 0 P → F ∈ S
29 cnvimass ⊢ D -1 −∞ N ⊆ dom ⁡ D
30 3 29 eqsstri ⊢ S ⊆ dom ⁡ D
31 8 fdmi ⊢ dom ⁡ D = B
32 30 31 sseqtri ⊢ S ⊆ B
33 32 28 sselid ⊢ φ ∧ F = 0 P → F ∈ B
34 7 fveq2d ⊢ φ ∧ F = 0 P → D ⁡ F = D ⁡ 0 P
35 16 adantr ⊢ φ ∧ F = 0 P → D ⁡ 0 P = −∞
36 34 35 eqtrd ⊢ φ ∧ F = 0 P → D ⁡ F = −∞
37 19 adantr ⊢ φ ∧ F = 0 P → N ∈ ℝ
38 37 mnfltd ⊢ φ ∧ F = 0 P → −∞ < N
39 36 38 eqbrtrd ⊢ φ ∧ F = 0 P → D ⁡ F < N
40 pm5.1 ⊢ F ∈ S ∧ F ∈ B ∧ D ⁡ F < N → F ∈ S ↔ F ∈ B ∧ D ⁡ F < N
41 28 33 39 40 syl12anc ⊢ φ ∧ F = 0 P → F ∈ S ↔ F ∈ B ∧ D ⁡ F < N
42 3 eleq2i ⊢ F ∈ S ↔ F ∈ D -1 −∞ N
43 10 adantr ⊢ φ ∧ F ≠ 0 P → D Fn B
44 elpreima ⊢ D Fn B → F ∈ D -1 −∞ N ↔ F ∈ B ∧ D ⁡ F ∈ −∞ N
45 43 44 syl ⊢ φ ∧ F ≠ 0 P → F ∈ D -1 −∞ N ↔ F ∈ B ∧ D ⁡ F ∈ −∞ N
46 42 45 bitrid ⊢ φ ∧ F ≠ 0 P → F ∈ S ↔ F ∈ B ∧ D ⁡ F ∈ −∞ N
47 5 ad2antrr ⊢ φ ∧ F ≠ 0 P ∧ F ∈ B → R ∈ Ring
48 simpr ⊢ φ ∧ F ≠ 0 P ∧ F ∈ B → F ∈ B
49 simplr ⊢ φ ∧ F ≠ 0 P ∧ F ∈ B → F ≠ 0 P
50 2 1 12 6 deg1nn0cl ⊢ R ∈ Ring ∧ F ∈ B ∧ F ≠ 0 P → D ⁡ F ∈ ℕ 0
51 47 48 49 50 syl3anc ⊢ φ ∧ F ≠ 0 P ∧ F ∈ B → D ⁡ F ∈ ℕ 0
52 51 nn0red ⊢ φ ∧ F ≠ 0 P ∧ F ∈ B → D ⁡ F ∈ ℝ
53 52 rexrd ⊢ φ ∧ F ≠ 0 P ∧ F ∈ B → D ⁡ F ∈ ℝ *
54 53 mnfled ⊢ φ ∧ F ≠ 0 P ∧ F ∈ B → −∞ ≤ D ⁡ F
55 53 54 jca ⊢ φ ∧ F ≠ 0 P ∧ F ∈ B → D ⁡ F ∈ ℝ * ∧ −∞ ≤ D ⁡ F
56 20 ad2antrr ⊢ φ ∧ F ≠ 0 P ∧ F ∈ B → N ∈ ℝ *
57 elico1 ⊢ −∞ ∈ ℝ * ∧ N ∈ ℝ * → D ⁡ F ∈ −∞ N ↔ D ⁡ F ∈ ℝ * ∧ −∞ ≤ D ⁡ F ∧ D ⁡ F < N
58 17 56 57 sylancr ⊢ φ ∧ F ≠ 0 P ∧ F ∈ B → D ⁡ F ∈ −∞ N ↔ D ⁡ F ∈ ℝ * ∧ −∞ ≤ D ⁡ F ∧ D ⁡ F < N
59 df-3an ⊢ D ⁡ F ∈ ℝ * ∧ −∞ ≤ D ⁡ F ∧ D ⁡ F < N ↔ D ⁡ F ∈ ℝ * ∧ −∞ ≤ D ⁡ F ∧ D ⁡ F < N
60 58 59 bitrdi ⊢ φ ∧ F ≠ 0 P ∧ F ∈ B → D ⁡ F ∈ −∞ N ↔ D ⁡ F ∈ ℝ * ∧ −∞ ≤ D ⁡ F ∧ D ⁡ F < N
61 55 60 mpbirand ⊢ φ ∧ F ≠ 0 P ∧ F ∈ B → D ⁡ F ∈ −∞ N ↔ D ⁡ F < N
62 61 pm5.32da ⊢ φ ∧ F ≠ 0 P → F ∈ B ∧ D ⁡ F ∈ −∞ N ↔ F ∈ B ∧ D ⁡ F < N
63 46 62 bitrd ⊢ φ ∧ F ≠ 0 P → F ∈ S ↔ F ∈ B ∧ D ⁡ F < N
64 41 63 pm2.61dane ⊢ φ → F ∈ S ↔ F ∈ B ∧ D ⁡ F < N