Metamath Proof Explorer


Theorem ply1edom

Description: The univariate polynomials over a field R form a Euclidean domain. Note that the hypothesis ( deg1R ) = ( EuclFP ) could be dropped if the definition of Poly1 would be adapted. (Contributed by Thierry Arnoux, 9-Nov-2026)

Ref Expression
Hypotheses ply1edom.1 ⊢ P = Poly 1 ⁡ R
ply1edom.2 ⊢ U = Base P
ply1edom.3 ⊢ Z = 0 P
ply1edom.4 ⊢ deg 1 ⁡ R = EuclF ⁡ P
ply1edom.5 ⊢ φ → R ∈ Field
Assertion ply1edom ⊢ φ → P ∈ EDomn

Proof

Step Hyp Ref Expression
1 ply1edom.1 ⊢ P = Poly 1 ⁡ R
2 ply1edom.2 ⊢ U = Base P
3 ply1edom.3 ⊢ Z = 0 P
4 ply1edom.4 ⊢ deg 1 ⁡ R = EuclF ⁡ P
5 ply1edom.5 ⊢ φ → R ∈ Field
6 fldidom ⊢ R ∈ Field → R ∈ IDomn
7 5 6 syl ⊢ φ → R ∈ IDomn
8 1 ply1idom ⊢ R ∈ IDomn → P ∈ IDomn
9 7 8 syl ⊢ φ → P ∈ IDomn
10 eqid ⊢ deg 1 ⁡ R = deg 1 ⁡ R
11 10 1 2 deg1xrf ⊢ deg 1 ⁡ R : U ⟶ ℝ *
12 11 a1i ⊢ φ → deg 1 ⁡ R : U ⟶ ℝ *
13 difssd ⊢ φ → U ∖ Z ⊆ U
14 nfv ⊢ Ⅎ f φ
15 12 ffund ⊢ φ → Fun ⁡ deg 1 ⁡ R
16 7 idomringd ⊢ φ → R ∈ Ring
17 16 adantr ⊢ φ ∧ f ∈ U ∖ Z → R ∈ Ring
18 13 sselda ⊢ φ ∧ f ∈ U ∖ Z → f ∈ U
19 simpr ⊢ φ ∧ f ∈ U ∖ Z → f ∈ U ∖ Z
20 19 eldifsnbd ⊢ φ ∧ f ∈ U ∖ Z → f ≠ Z
21 10 1 3 2 deg1nn0cl ⊢ R ∈ Ring ∧ f ∈ U ∧ f ≠ Z → deg 1 ⁡ R ⁡ f ∈ ℕ 0
22 17 18 20 21 syl3anc ⊢ φ ∧ f ∈ U ∖ Z → deg 1 ⁡ R ⁡ f ∈ ℕ 0
23 14 15 22 funimassd ⊢ φ → deg 1 ⁡ R U ∖ Z ⊆ ℕ 0
24 12 13 23 fssrescdmd ⊢ φ → deg 1 ⁡ R ↾ U ∖ Z : U ∖ Z ⟶ ℕ 0
25 oveq2 ⊢ q = f quot 1p ⁡ R g → g ⋅ P q = g ⋅ P f quot 1p ⁡ R g
26 25 oveq1d ⊢ q = f quot 1p ⁡ R g → g ⋅ P q + P r = g ⋅ P f quot 1p ⁡ R g + P r
27 26 eqeq2d ⊢ q = f quot 1p ⁡ R g → f = g ⋅ P q + P r ↔ f = g ⋅ P f quot 1p ⁡ R g + P r
28 27 anbi1d ⊢ q = f quot 1p ⁡ R g → f = g ⋅ P q + P r ∧ r = Z ∨ deg 1 ⁡ R ↾ U ∖ Z ⁡ r < deg 1 ⁡ R ↾ U ∖ Z ⁡ g ↔ f = g ⋅ P f quot 1p ⁡ R g + P r ∧ r = Z ∨ deg 1 ⁡ R ↾ U ∖ Z ⁡ r < deg 1 ⁡ R ↾ U ∖ Z ⁡ g
29 oveq2 ⊢ r = f rem 1p ⁡ R g → g ⋅ P f quot 1p ⁡ R g + P r = g ⋅ P f quot 1p ⁡ R g + P f rem 1p ⁡ R g
30 29 eqeq2d ⊢ r = f rem 1p ⁡ R g → f = g ⋅ P f quot 1p ⁡ R g + P r ↔ f = g ⋅ P f quot 1p ⁡ R g + P f rem 1p ⁡ R g
31 eqeq1 ⊢ r = f rem 1p ⁡ R g → r = Z ↔ f rem 1p ⁡ R g = Z
32 fveq2 ⊢ r = f rem 1p ⁡ R g → deg 1 ⁡ R ↾ U ∖ Z ⁡ r = deg 1 ⁡ R ↾ U ∖ Z ⁡ f rem 1p ⁡ R g
33 32 breq1d ⊢ r = f rem 1p ⁡ R g → deg 1 ⁡ R ↾ U ∖ Z ⁡ r < deg 1 ⁡ R ↾ U ∖ Z ⁡ g ↔ deg 1 ⁡ R ↾ U ∖ Z ⁡ f rem 1p ⁡ R g < deg 1 ⁡ R ↾ U ∖ Z ⁡ g
34 31 33 orbi12d ⊢ r = f rem 1p ⁡ R g → r = Z ∨ deg 1 ⁡ R ↾ U ∖ Z ⁡ r < deg 1 ⁡ R ↾ U ∖ Z ⁡ g ↔ f rem 1p ⁡ R g = Z ∨ deg 1 ⁡ R ↾ U ∖ Z ⁡ f rem 1p ⁡ R g < deg 1 ⁡ R ↾ U ∖ Z ⁡ g
35 30 34 anbi12d ⊢ r = f rem 1p ⁡ R g → f = g ⋅ P f quot 1p ⁡ R g + P r ∧ r = Z ∨ deg 1 ⁡ R ↾ U ∖ Z ⁡ r < deg 1 ⁡ R ↾ U ∖ Z ⁡ g ↔ f = g ⋅ P f quot 1p ⁡ R g + P f rem 1p ⁡ R g ∧ f rem 1p ⁡ R g = Z ∨ deg 1 ⁡ R ↾ U ∖ Z ⁡ f rem 1p ⁡ R g < deg 1 ⁡ R ↾ U ∖ Z ⁡ g
36 16 ad2antrr ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → R ∈ Ring
37 simplr ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → f ∈ U
38 5 flddrngd ⊢ φ → R ∈ DivRing
39 38 ad2antrr ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → R ∈ DivRing
40 simpr ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → g ∈ U ∖ Z
41 40 eldifad ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → g ∈ U
42 40 eldifsnbd ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → g ≠ Z
43 eqid ⊢ Unic 1p ⁡ R = Unic 1p ⁡ R
44 1 2 3 43 drnguc1p ⊢ R ∈ DivRing ∧ g ∈ U ∧ g ≠ Z → g ∈ Unic 1p ⁡ R
45 39 41 42 44 syl3anc ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → g ∈ Unic 1p ⁡ R
46 eqid ⊢ quot 1p ⁡ R = quot 1p ⁡ R
47 46 1 2 43 q1pcl ⊢ R ∈ Ring ∧ f ∈ U ∧ g ∈ Unic 1p ⁡ R → f quot 1p ⁡ R g ∈ U
48 36 37 45 47 syl3anc ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → f quot 1p ⁡ R g ∈ U
49 eqid ⊢ rem 1p ⁡ R = rem 1p ⁡ R
50 49 1 2 43 r1pcl ⊢ R ∈ Ring ∧ f ∈ U ∧ g ∈ Unic 1p ⁡ R → f rem 1p ⁡ R g ∈ U
51 36 37 45 50 syl3anc ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → f rem 1p ⁡ R g ∈ U
52 eqid ⊢ ⋅ P = ⋅ P
53 eqid ⊢ + P = + P
54 1 2 43 46 49 52 53 r1pid ⊢ R ∈ Ring ∧ f ∈ U ∧ g ∈ Unic 1p ⁡ R → f = f quot 1p ⁡ R g ⋅ P g + P f rem 1p ⁡ R g
55 36 37 45 54 syl3anc ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → f = f quot 1p ⁡ R g ⋅ P g + P f rem 1p ⁡ R g
56 9 idomcringd ⊢ φ → P ∈ CRing
57 56 ad2antrr ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → P ∈ CRing
58 2 52 57 48 41 crngcomd ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → f quot 1p ⁡ R g ⋅ P g = g ⋅ P f quot 1p ⁡ R g
59 58 oveq1d ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → f quot 1p ⁡ R g ⋅ P g + P f rem 1p ⁡ R g = g ⋅ P f quot 1p ⁡ R g + P f rem 1p ⁡ R g
60 55 59 eqtrd ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → f = g ⋅ P f quot 1p ⁡ R g + P f rem 1p ⁡ R g
61 simpr ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z ∧ f rem 1p ⁡ R g = Z → f rem 1p ⁡ R g = Z
62 49 1 2 43 10 r1pdeglt ⊢ R ∈ Ring ∧ f ∈ U ∧ g ∈ Unic 1p ⁡ R → deg 1 ⁡ R ⁡ f rem 1p ⁡ R g < deg 1 ⁡ R ⁡ g
63 36 37 45 62 syl3anc ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → deg 1 ⁡ R ⁡ f rem 1p ⁡ R g < deg 1 ⁡ R ⁡ g
64 63 adantr ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z ∧ f rem 1p ⁡ R g ≠ Z → deg 1 ⁡ R ⁡ f rem 1p ⁡ R g < deg 1 ⁡ R ⁡ g
65 51 adantr ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z ∧ f rem 1p ⁡ R g ≠ Z → f rem 1p ⁡ R g ∈ U
66 simpr ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z ∧ f rem 1p ⁡ R g ≠ Z → f rem 1p ⁡ R g ≠ Z
67 65 66 eldifsnd ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z ∧ f rem 1p ⁡ R g ≠ Z → f rem 1p ⁡ R g ∈ U ∖ Z
68 67 fvresd ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z ∧ f rem 1p ⁡ R g ≠ Z → deg 1 ⁡ R ↾ U ∖ Z ⁡ f rem 1p ⁡ R g = deg 1 ⁡ R ⁡ f rem 1p ⁡ R g
69 simplr ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z ∧ f rem 1p ⁡ R g ≠ Z → g ∈ U ∖ Z
70 69 fvresd ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z ∧ f rem 1p ⁡ R g ≠ Z → deg 1 ⁡ R ↾ U ∖ Z ⁡ g = deg 1 ⁡ R ⁡ g
71 64 68 70 3brtr4d ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z ∧ f rem 1p ⁡ R g ≠ Z → deg 1 ⁡ R ↾ U ∖ Z ⁡ f rem 1p ⁡ R g < deg 1 ⁡ R ↾ U ∖ Z ⁡ g
72 exmidne ⊢ f rem 1p ⁡ R g = Z ∨ f rem 1p ⁡ R g ≠ Z
73 72 a1i ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → f rem 1p ⁡ R g = Z ∨ f rem 1p ⁡ R g ≠ Z
74 61 71 73 orim12da ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → f rem 1p ⁡ R g = Z ∨ deg 1 ⁡ R ↾ U ∖ Z ⁡ f rem 1p ⁡ R g < deg 1 ⁡ R ↾ U ∖ Z ⁡ g
75 60 74 jca ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → f = g ⋅ P f quot 1p ⁡ R g + P f rem 1p ⁡ R g ∧ f rem 1p ⁡ R g = Z ∨ deg 1 ⁡ R ↾ U ∖ Z ⁡ f rem 1p ⁡ R g < deg 1 ⁡ R ↾ U ∖ Z ⁡ g
76 28 35 48 51 75 2rspcedvdw ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → ∃ q ∈ U ∃ r ∈ U f = g ⋅ P q + P r ∧ r = Z ∨ deg 1 ⁡ R ↾ U ∖ Z ⁡ r < deg 1 ⁡ R ↾ U ∖ Z ⁡ g
77 76 anasss ⊢ φ ∧ f ∈ U ∧ g ∈ U ∖ Z → ∃ q ∈ U ∃ r ∈ U f = g ⋅ P q + P r ∧ r = Z ∨ deg 1 ⁡ R ↾ U ∖ Z ⁡ r < deg 1 ⁡ R ↾ U ∖ Z ⁡ g
78 77 ralrimivva ⊢ φ → ∀ f ∈ U ∀ g ∈ U ∖ Z ∃ q ∈ U ∃ r ∈ U f = g ⋅ P q + P r ∧ r = Z ∨ deg 1 ⁡ R ↾ U ∖ Z ⁡ r < deg 1 ⁡ R ↾ U ∖ Z ⁡ g
79 24 78 jca ⊢ φ → deg 1 ⁡ R ↾ U ∖ Z : U ∖ Z ⟶ ℕ 0 ∧ ∀ f ∈ U ∀ g ∈ U ∖ Z ∃ q ∈ U ∃ r ∈ U f = g ⋅ P q + P r ∧ r = Z ∨ deg 1 ⁡ R ↾ U ∖ Z ⁡ r < deg 1 ⁡ R ↾ U ∖ Z ⁡ g
80 4 reseq1i ⊢ deg 1 ⁡ R ↾ U ∖ Z = EuclF ⁡ P ↾ U ∖ Z
81 2 3 53 52 80 isedom ⊢ P ∈ EDomn ↔ P ∈ IDomn ∧ deg 1 ⁡ R ↾ U ∖ Z : U ∖ Z ⟶ ℕ 0 ∧ ∀ f ∈ U ∀ g ∈ U ∖ Z ∃ q ∈ U ∃ r ∈ U f = g ⋅ P q + P r ∧ r = Z ∨ deg 1 ⁡ R ↾ U ∖ Z ⁡ r < deg 1 ⁡ R ↾ U ∖ Z ⁡ g
82 9 79 81 sylanbrc ⊢ φ → P ∈ EDomn