Metamath Proof Explorer


Theorem cjnpoly

Description: Complex conjugation operator is not a polynomial with complex coefficients. Indeed; if it was, then multiplying x conjugate by x itself and adding 1 would yield a nowhere-zero non-constant polynomial, contrary to the fta . (Contributed by Ender Ting, 8-Dec-2025)

Ref Expression
Assertion cjnpoly ¬ * Poly

Proof

Step Hyp Ref Expression
1 cnex V
2 1ex 1 V
3 fconstmpt × 1 = x 1
4 2 3 fnmpti × 1 Fn
5 fnresi I Fn
6 df-idp X p = I
7 6 fneq1i X p Fn I Fn
8 5 7 mpbir X p Fn
9 8 a1i X p Fn
10 cjf * :
11 ffn * : * Fn
12 10 11 ax-mp * Fn
13 12 a1i * Fn
14 1 a1i V
15 inidm =
16 9 13 14 14 15 offn X p × f * Fn
17 16 mptru X p × f * Fn
18 fnfvof × 1 Fn X p × f * Fn V x × 1 + f X p × f * x = × 1 x + X p × f * x
19 4 17 18 mpanl12 V x × 1 + f X p × f * x = × 1 x + X p × f * x
20 1 19 mpan x × 1 + f X p × f * x = × 1 x + X p × f * x
21 2 fvconst2 x × 1 x = 1
22 21 oveq1d x × 1 x + X p × f * x = 1 + X p × f * x
23 fnfvof X p Fn * Fn V x X p × f * x = X p x x
24 8 12 23 mpanl12 V x X p × f * x = X p x x
25 1 24 mpan x X p × f * x = X p x x
26 6 fveq1i X p x = I x
27 fvres x I x = I x
28 26 27 eqtrid x X p x = I x
29 fvi x I x = x
30 28 29 eqtrd x X p x = x
31 30 oveq1d x X p x x = x x
32 25 31 eqtrd x X p × f * x = x x
33 32 oveq2d x 1 + X p × f * x = 1 + x x
34 20 22 33 3eqtrd x × 1 + f X p × f * x = 1 + x x
35 1red x 1
36 cjmulrcl x x x
37 0lt1 0 < 1
38 37 a1i x 0 < 1
39 cjmulge0 x 0 x x
40 35 36 38 39 addgtge0d x 0 < 1 + x x
41 40 gt0ne0d x 1 + x x 0
42 34 41 eqnetrd x × 1 + f X p × f * x 0
43 42 neneqd x ¬ × 1 + f X p × f * x = 0
44 43 nrex ¬ x × 1 + f X p × f * x = 0
45 ssid
46 ax-1cn 1
47 plyconst 1 × 1 Poly
48 45 46 47 mp2an × 1 Poly
49 plyid 1 X p Poly
50 45 46 49 mp2an X p Poly
51 plymulcl X p Poly * Poly X p × f * Poly
52 50 51 mpan * Poly X p × f * Poly
53 plyaddcl × 1 Poly X p × f * Poly × 1 + f X p × f * Poly
54 48 52 53 sylancr * Poly × 1 + f X p × f * Poly
55 1re 1
56 cjre 1 1 = 1
57 55 56 ax-mp 1 = 1
58 ax-1ne0 1 0
59 57 58 eqnetri 1 0
60 ne0p 1 1 0 * 0 𝑝
61 46 59 60 mp2an * 0 𝑝
62 6 fveq1i X p 1 = I 1
63 fvres 1 I 1 = I 1
64 46 63 ax-mp I 1 = I 1
65 fvi 1 V I 1 = 1
66 2 65 ax-mp I 1 = 1
67 62 64 66 3eqtri X p 1 = 1
68 67 58 eqnetri X p 1 0
69 ne0p 1 X p 1 0 X p 0 𝑝
70 46 68 69 mp2an X p 0 𝑝
71 dgrid deg X p = 1
72 71 eqcomi 1 = deg X p
73 eqid deg * = deg *
74 72 73 dgrmul X p Poly X p 0 𝑝 * Poly * 0 𝑝 deg X p × f * = 1 + deg *
75 50 70 74 mpanl12 * Poly * 0 𝑝 deg X p × f * = 1 + deg *
76 61 75 mpan2 * Poly deg X p × f * = 1 + deg *
77 dgrcl * Poly deg * 0
78 nn0cn deg * 0 deg *
79 1cnd deg * 0 1
80 78 79 addcomd deg * 0 deg * + 1 = 1 + deg *
81 nn0p1nn deg * 0 deg * + 1
82 80 81 eqeltrrd deg * 0 1 + deg *
83 77 82 syl * Poly 1 + deg *
84 76 83 eqeltrd * Poly deg X p × f *
85 84 nngt0d * Poly 0 < deg X p × f *
86 0dgr 1 deg × 1 = 0
87 46 86 ax-mp deg × 1 = 0
88 87 eqcomi 0 = deg × 1
89 eqid deg X p × f * = deg X p × f *
90 88 89 dgradd2 × 1 Poly X p × f * Poly 0 < deg X p × f * deg × 1 + f X p × f * = deg X p × f *
91 48 52 85 90 mp3an2i * Poly deg × 1 + f X p × f * = deg X p × f *
92 91 84 eqeltrd * Poly deg × 1 + f X p × f *
93 fta × 1 + f X p × f * Poly deg × 1 + f X p × f * x × 1 + f X p × f * x = 0
94 54 92 93 syl2anc * Poly x × 1 + f X p × f * x = 0
95 44 94 mto ¬ * Poly