Metamath Proof Explorer


Theorem rngunsnply1chr2lem1

Description: Lemma for rngunsnply1chr2 . (Contributed by Thierry Arnoux, 8-Nov-2026)

Ref Expression
Hypotheses rngunsnply1chr2.v ⊢ V = Base R
rngunsnply1chr2.p ⊢ P = Poly 1 ⁡ R ↾ 𝑠 S
rngunsnply1chr2.u ⊢ U = Base P
rngunsnply1chr2.q ⊢ Q = R evalSub 1 S
rngunsnply1chr2.r ⊢ φ → R ∈ CRing
rngunsnply1chr2.1 ⊢ φ → R ∈ NzRing
rngunsnply1chr2.s ⊢ φ → S ∈ SubRing ⁡ R
rngunsnply1chr2.x ⊢ φ → X ∈ V
rngunsnply1chr2.y ⊢ φ → Y ∈ N ⁡ S ∪ X
rngunsnply1chr2.n ⊢ N = RingSpan ⁡ R
rngunsnply1chr2.2 ⊢ + ˙ = + R
rngunsnply1chr2.3 ⊢ · ˙ = ⋅ R
rngunsnply1chr2.4 ⊢ × ˙ = ⋅ mulGrp R
rngunsnply1chr2.a ⊢ φ → A ∈ S
rngunsnply1chr2.b ⊢ φ → B ∈ S
rngunsnply1chr2.5 ⊢ φ → 2 × ˙ X = A · ˙ X + ˙ B
rngunsnply1chr2lem.d ⊢ D = deg 1 ⁡ R
rngunsnply1chr2lem.e ⊢ E = rem 1p ⁡ R ↾ 𝑠 S
rngunsnply1chr2lem.g ⊢ G = 2 ⋅ mulGrp P var 1 ⁡ R - P A ⋅ P var 1 ⁡ R + P algSc ⁡ P ⁡ B
rngunsnply1chr2lem.h ⊢ H = F E G
rngunsnply1chr2lem.f ⊢ φ → F ∈ U
Assertion rngunsnply1chr2lem1 ⊢ φ → D ⁡ G = 2

Proof

Step Hyp Ref Expression
1 rngunsnply1chr2.v ⊢ V = Base R
2 rngunsnply1chr2.p ⊢ P = Poly 1 ⁡ R ↾ 𝑠 S
3 rngunsnply1chr2.u ⊢ U = Base P
4 rngunsnply1chr2.q ⊢ Q = R evalSub 1 S
5 rngunsnply1chr2.r ⊢ φ → R ∈ CRing
6 rngunsnply1chr2.1 ⊢ φ → R ∈ NzRing
7 rngunsnply1chr2.s ⊢ φ → S ∈ SubRing ⁡ R
8 rngunsnply1chr2.x ⊢ φ → X ∈ V
9 rngunsnply1chr2.y ⊢ φ → Y ∈ N ⁡ S ∪ X
10 rngunsnply1chr2.n ⊢ N = RingSpan ⁡ R
11 rngunsnply1chr2.2 ⊢ + ˙ = + R
12 rngunsnply1chr2.3 ⊢ · ˙ = ⋅ R
13 rngunsnply1chr2.4 ⊢ × ˙ = ⋅ mulGrp R
14 rngunsnply1chr2.a ⊢ φ → A ∈ S
15 rngunsnply1chr2.b ⊢ φ → B ∈ S
16 rngunsnply1chr2.5 ⊢ φ → 2 × ˙ X = A · ˙ X + ˙ B
17 rngunsnply1chr2lem.d ⊢ D = deg 1 ⁡ R
18 rngunsnply1chr2lem.e ⊢ E = rem 1p ⁡ R ↾ 𝑠 S
19 rngunsnply1chr2lem.g ⊢ G = 2 ⋅ mulGrp P var 1 ⁡ R - P A ⋅ P var 1 ⁡ R + P algSc ⁡ P ⁡ B
20 rngunsnply1chr2lem.h ⊢ H = F E G
21 rngunsnply1chr2lem.f ⊢ φ → F ∈ U
22 eqid ⊢ R ↾ 𝑠 S = R ↾ 𝑠 S
23 eqid ⊢ - P = - P
24 22 subrgring ⊢ S ∈ SubRing ⁡ R → R ↾ 𝑠 S ∈ Ring
25 7 24 syl ⊢ φ → R ↾ 𝑠 S ∈ Ring
26 2 ply1ring ⊢ R ↾ 𝑠 S ∈ Ring → P ∈ Ring
27 25 26 syl ⊢ φ → P ∈ Ring
28 27 ringgrpd ⊢ φ → P ∈ Grp
29 eqid ⊢ mulGrp P = mulGrp P
30 29 3 mgpbas ⊢ U = Base mulGrp P
31 eqid ⊢ ⋅ mulGrp P = ⋅ mulGrp P
32 29 ringmgp ⊢ P ∈ Ring → mulGrp P ∈ Mnd
33 27 32 syl ⊢ φ → mulGrp P ∈ Mnd
34 2nn0 ⊢ 2 ∈ ℕ 0
35 34 a1i ⊢ φ → 2 ∈ ℕ 0
36 eqid ⊢ var 1 ⁡ R = var 1 ⁡ R
37 36 7 22 2 3 subrgvr1cl ⊢ φ → var 1 ⁡ R ∈ U
38 30 31 33 35 37 mulgnn0cld ⊢ φ → 2 ⋅ mulGrp P var 1 ⁡ R ∈ U
39 eqid ⊢ + P = + P
40 eqid ⊢ Scalar ⁡ P = Scalar ⁡ P
41 eqid ⊢ ⋅ P = ⋅ P
42 eqid ⊢ Base Scalar ⁡ P = Base Scalar ⁡ P
43 2 ply1lmod ⊢ R ↾ 𝑠 S ∈ Ring → P ∈ LMod
44 25 43 syl ⊢ φ → P ∈ LMod
45 22 subrgbas ⊢ S ∈ SubRing ⁡ R → S = Base R ↾ 𝑠 S
46 7 45 syl ⊢ φ → S = Base R ↾ 𝑠 S
47 ovex ⊢ R ↾ 𝑠 S ∈ V
48 2 ply1sca ⊢ R ↾ 𝑠 S ∈ V → R ↾ 𝑠 S = Scalar ⁡ P
49 47 48 ax-mp ⊢ R ↾ 𝑠 S = Scalar ⁡ P
50 49 fveq2i ⊢ Base R ↾ 𝑠 S = Base Scalar ⁡ P
51 46 50 eqtrdi ⊢ φ → S = Base Scalar ⁡ P
52 14 51 eleqtrd ⊢ φ → A ∈ Base Scalar ⁡ P
53 3 40 41 42 44 52 37 lmodvscld ⊢ φ → A ⋅ P var 1 ⁡ R ∈ U
54 eqid ⊢ algSc ⁡ P = algSc ⁡ P
55 2 22 54 3 5 7 15 ressasclcl ⊢ φ → algSc ⁡ P ⁡ B ∈ U
56 3 39 28 53 55 grpcld ⊢ φ → A ⋅ P var 1 ⁡ R + P algSc ⁡ P ⁡ B ∈ U
57 3 23 28 38 56 grpsubcld ⊢ φ → 2 ⋅ mulGrp P var 1 ⁡ R - P A ⋅ P var 1 ⁡ R + P algSc ⁡ P ⁡ B ∈ U
58 19 57 eqeltrid ⊢ φ → G ∈ U
59 22 17 2 3 58 7 ressdeg1 ⊢ φ → D ⁡ G = deg 1 ⁡ R ↾ 𝑠 S ⁡ G
60 19 fveq2i ⊢ deg 1 ⁡ R ↾ 𝑠 S ⁡ G = deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R - P A ⋅ P var 1 ⁡ R + P algSc ⁡ P ⁡ B
61 60 a1i ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ G = deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R - P A ⋅ P var 1 ⁡ R + P algSc ⁡ P ⁡ B
62 eqid ⊢ deg 1 ⁡ R ↾ 𝑠 S = deg 1 ⁡ R ↾ 𝑠 S
63 62 2 3 deg1xrcl ⊢ A ⋅ P var 1 ⁡ R + P algSc ⁡ P ⁡ B ∈ U → deg 1 ⁡ R ↾ 𝑠 S ⁡ A ⋅ P var 1 ⁡ R + P algSc ⁡ P ⁡ B ∈ ℝ *
64 56 63 syl ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ A ⋅ P var 1 ⁡ R + P algSc ⁡ P ⁡ B ∈ ℝ *
65 1xr ⊢ 1 ∈ ℝ *
66 65 a1i ⊢ φ → 1 ∈ ℝ *
67 62 2 3 deg1xrcl ⊢ 2 ⋅ mulGrp P var 1 ⁡ R ∈ U → deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R ∈ ℝ *
68 38 67 syl ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R ∈ ℝ *
69 36 7 22 subrgvr1 ⊢ φ → var 1 ⁡ R = var 1 ⁡ R ↾ 𝑠 S
70 69 37 eqeltrrd ⊢ φ → var 1 ⁡ R ↾ 𝑠 S ∈ U
71 30 31 mulg1 ⊢ var 1 ⁡ R ↾ 𝑠 S ∈ U → 1 ⋅ mulGrp P var 1 ⁡ R ↾ 𝑠 S = var 1 ⁡ R ↾ 𝑠 S
72 70 71 syl ⊢ φ → 1 ⋅ mulGrp P var 1 ⁡ R ↾ 𝑠 S = var 1 ⁡ R ↾ 𝑠 S
73 72 69 eqtr4d ⊢ φ → 1 ⋅ mulGrp P var 1 ⁡ R ↾ 𝑠 S = var 1 ⁡ R
74 73 oveq2d ⊢ φ → A ⋅ P 1 ⋅ mulGrp P var 1 ⁡ R ↾ 𝑠 S = A ⋅ P var 1 ⁡ R
75 74 fveq2d ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ A ⋅ P 1 ⋅ mulGrp P var 1 ⁡ R ↾ 𝑠 S = deg 1 ⁡ R ↾ 𝑠 S ⁡ A ⋅ P var 1 ⁡ R
76 14 46 eleqtrd ⊢ φ → A ∈ Base R ↾ 𝑠 S
77 1nn0 ⊢ 1 ∈ ℕ 0
78 77 a1i ⊢ φ → 1 ∈ ℕ 0
79 eqid ⊢ Base R ↾ 𝑠 S = Base R ↾ 𝑠 S
80 eqid ⊢ var 1 ⁡ R ↾ 𝑠 S = var 1 ⁡ R ↾ 𝑠 S
81 62 79 2 80 41 29 31 deg1tmle ⊢ R ↾ 𝑠 S ∈ Ring ∧ A ∈ Base R ↾ 𝑠 S ∧ 1 ∈ ℕ 0 → deg 1 ⁡ R ↾ 𝑠 S ⁡ A ⋅ P 1 ⋅ mulGrp P var 1 ⁡ R ↾ 𝑠 S ≤ 1
82 25 76 78 81 syl3anc ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ A ⋅ P 1 ⋅ mulGrp P var 1 ⁡ R ↾ 𝑠 S ≤ 1
83 75 82 eqbrtrrd ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ A ⋅ P var 1 ⁡ R ≤ 1
84 62 2 3 deg1xrcl ⊢ algSc ⁡ P ⁡ B ∈ U → deg 1 ⁡ R ↾ 𝑠 S ⁡ algSc ⁡ P ⁡ B ∈ ℝ *
85 55 84 syl ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ algSc ⁡ P ⁡ B ∈ ℝ *
86 0xr ⊢ 0 ∈ ℝ *
87 86 a1i ⊢ φ → 0 ∈ ℝ *
88 15 46 eleqtrd ⊢ φ → B ∈ Base R ↾ 𝑠 S
89 62 2 79 54 deg1sclle ⊢ R ↾ 𝑠 S ∈ Ring ∧ B ∈ Base R ↾ 𝑠 S → deg 1 ⁡ R ↾ 𝑠 S ⁡ algSc ⁡ P ⁡ B ≤ 0
90 25 88 89 syl2anc ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ algSc ⁡ P ⁡ B ≤ 0
91 0lt1 ⊢ 0 < 1
92 91 a1i ⊢ φ → 0 < 1
93 85 87 66 90 92 xrlelttrd ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ algSc ⁡ P ⁡ B < 1
94 85 66 93 xrltled ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ algSc ⁡ P ⁡ B ≤ 1
95 2 62 25 3 39 53 55 66 83 94 deg1addle2 ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ A ⋅ P var 1 ⁡ R + P algSc ⁡ P ⁡ B ≤ 1
96 1lt2 ⊢ 1 < 2
97 69 oveq2d ⊢ φ → 2 ⋅ mulGrp P var 1 ⁡ R = 2 ⋅ mulGrp P var 1 ⁡ R ↾ 𝑠 S
98 97 fveq2d ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R = deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R ↾ 𝑠 S
99 22 subrgnzr ⊢ R ∈ NzRing ∧ S ∈ SubRing ⁡ R → R ↾ 𝑠 S ∈ NzRing
100 6 7 99 syl2anc ⊢ φ → R ↾ 𝑠 S ∈ NzRing
101 62 2 80 29 31 deg1pw ⊢ R ↾ 𝑠 S ∈ NzRing ∧ 2 ∈ ℕ 0 → deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R ↾ 𝑠 S = 2
102 100 35 101 syl2anc ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R ↾ 𝑠 S = 2
103 98 102 eqtrd ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R = 2
104 96 103 breqtrrid ⊢ φ → 1 < deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R
105 64 66 68 95 104 xrlelttrd ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ A ⋅ P var 1 ⁡ R + P algSc ⁡ P ⁡ B < deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R
106 2 62 25 3 23 38 56 105 deg1sub ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R - P A ⋅ P var 1 ⁡ R + P algSc ⁡ P ⁡ B = deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R
107 106 103 eqtrd ⊢ φ → deg 1 ⁡ R ↾ 𝑠 S ⁡ 2 ⋅ mulGrp P var 1 ⁡ R - P A ⋅ P var 1 ⁡ R + P algSc ⁡ P ⁡ B = 2
108 59 61 107 3eqtrd ⊢ φ → D ⁡ G = 2