Metamath Proof Explorer


Theorem elqaalem3

Description: Lemma for elqaa . (Contributed by Mario Carneiro, 23-Jul-2014) (Revised by AV, 3-Oct-2020)

Ref Expression
Hypotheses elqaa.1 ⊢ φ → A ∈ ℂ
elqaa.2 ⊢ φ → F ∈ Poly ⁡ ℚ ∖ 0 𝑝
elqaa.3 ⊢ φ → F ⁡ A = 0
elqaa.4 ⊢ B = coeff ⁡ F
elqaa.5 ⊢ N = k ∈ ℕ 0 ⟼ inf n ∈ ℕ | B ⁡ k ⁢ n ∈ ℤ ℝ <
elqaa.6 ⊢ R = seq 0 × N ⁡ deg ⁡ F
Assertion elqaalem3 ⊢ φ → A ∈ 𝔸

Proof

Step Hyp Ref Expression
1 elqaa.1 ⊢ φ → A ∈ ℂ
2 elqaa.2 ⊢ φ → F ∈ Poly ⁡ ℚ ∖ 0 𝑝
3 elqaa.3 ⊢ φ → F ⁡ A = 0
4 elqaa.4 ⊢ B = coeff ⁡ F
5 elqaa.5 ⊢ N = k ∈ ℕ 0 ⟼ inf n ∈ ℕ | B ⁡ k ⁢ n ∈ ℤ ℝ <
6 elqaa.6 ⊢ R = seq 0 × N ⁡ deg ⁡ F
7 cnex ⊢ ℂ ∈ V
8 7 a1i ⊢ φ → ℂ ∈ V
9 6 fvexi ⊢ R ∈ V
10 9 a1i ⊢ φ ∧ z ∈ ℂ → R ∈ V
11 fvexd ⊢ φ ∧ z ∈ ℂ → F ⁡ z ∈ V
12 fconstmpt ⊢ ℂ × R = z ∈ ℂ ⟼ R
13 12 a1i ⊢ φ → ℂ × R = z ∈ ℂ ⟼ R
14 2 eldifad ⊢ φ → F ∈ Poly ⁡ ℚ
15 plyf ⊢ F ∈ Poly ⁡ ℚ → F : ℂ ⟶ ℂ
16 14 15 syl ⊢ φ → F : ℂ ⟶ ℂ
17 16 feqmptd ⊢ φ → F = z ∈ ℂ ⟼ F ⁡ z
18 8 10 11 13 17 offval2 ⊢ φ → ℂ × R × f F = z ∈ ℂ ⟼ R ⁢ F ⁡ z
19 fzfid ⊢ φ ∧ z ∈ ℂ → 0 … deg ⁡ F ∈ Fin
20 nn0uz ⊢ ℕ 0 = ℤ ≥ 0
21 0zd ⊢ φ → 0 ∈ ℤ
22 ssrab2 ⊢ n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ ⊆ ℕ
23 fveq2 ⊢ k = m → B ⁡ k = B ⁡ m
24 23 oveq1d ⊢ k = m → B ⁡ k ⁢ n = B ⁡ m ⁢ n
25 24 eleq1d ⊢ k = m → B ⁡ k ⁢ n ∈ ℤ ↔ B ⁡ m ⁢ n ∈ ℤ
26 25 rabbidv ⊢ k = m → n ∈ ℕ | B ⁡ k ⁢ n ∈ ℤ = n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ
27 26 infeq1d ⊢ k = m → inf n ∈ ℕ | B ⁡ k ⁢ n ∈ ℤ ℝ < = inf n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ ℝ <
28 ltso ⊢ < Or ℝ
29 28 infex ⊢ inf n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ ℝ < ∈ V
30 27 5 29 fvmpt ⊢ m ∈ ℕ 0 → N ⁡ m = inf n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ ℝ <
31 30 adantl ⊢ φ ∧ m ∈ ℕ 0 → N ⁡ m = inf n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ ℝ <
32 nnuz ⊢ ℕ = ℤ ≥ 1
33 22 32 sseqtri ⊢ n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ ⊆ ℤ ≥ 1
34 0z ⊢ 0 ∈ ℤ
35 zq ⊢ 0 ∈ ℤ → 0 ∈ ℚ
36 34 35 ax-mp ⊢ 0 ∈ ℚ
37 4 coef2 ⊢ F ∈ Poly ⁡ ℚ ∧ 0 ∈ ℚ → B : ℕ 0 ⟶ ℚ
38 14 36 37 sylancl ⊢ φ → B : ℕ 0 ⟶ ℚ
39 38 ffvelcdmda ⊢ φ ∧ m ∈ ℕ 0 → B ⁡ m ∈ ℚ
40 qmulz ⊢ B ⁡ m ∈ ℚ → ∃ n ∈ ℕ B ⁡ m ⁢ n ∈ ℤ
41 39 40 syl ⊢ φ ∧ m ∈ ℕ 0 → ∃ n ∈ ℕ B ⁡ m ⁢ n ∈ ℤ
42 rabn0 ⊢ n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ ≠ ∅ ↔ ∃ n ∈ ℕ B ⁡ m ⁢ n ∈ ℤ
43 41 42 sylibr ⊢ φ ∧ m ∈ ℕ 0 → n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ ≠ ∅
44 infssuzcl ⊢ n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ ⊆ ℤ ≥ 1 ∧ n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ ≠ ∅ → inf n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ ℝ < ∈ n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ
45 33 43 44 sylancr ⊢ φ ∧ m ∈ ℕ 0 → inf n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ ℝ < ∈ n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ
46 31 45 eqeltrd ⊢ φ ∧ m ∈ ℕ 0 → N ⁡ m ∈ n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ
47 22 46 sselid ⊢ φ ∧ m ∈ ℕ 0 → N ⁡ m ∈ ℕ
48 nnmulcl ⊢ m ∈ ℕ ∧ k ∈ ℕ → m ⁢ k ∈ ℕ
49 48 adantl ⊢ φ ∧ m ∈ ℕ ∧ k ∈ ℕ → m ⁢ k ∈ ℕ
50 20 21 47 49 seqf ⊢ φ → seq 0 × N : ℕ 0 ⟶ ℕ
51 dgrcl ⊢ F ∈ Poly ⁡ ℚ → deg ⁡ F ∈ ℕ 0
52 14 51 syl ⊢ φ → deg ⁡ F ∈ ℕ 0
53 50 52 ffvelcdmd ⊢ φ → seq 0 × N ⁡ deg ⁡ F ∈ ℕ
54 6 53 eqeltrid ⊢ φ → R ∈ ℕ
55 54 nncnd ⊢ φ → R ∈ ℂ
56 55 adantr ⊢ φ ∧ z ∈ ℂ → R ∈ ℂ
57 elfznn0 ⊢ m ∈ 0 … deg ⁡ F → m ∈ ℕ 0
58 4 coef3 ⊢ F ∈ Poly ⁡ ℚ → B : ℕ 0 ⟶ ℂ
59 14 58 syl ⊢ φ → B : ℕ 0 ⟶ ℂ
60 59 adantr ⊢ φ ∧ z ∈ ℂ → B : ℕ 0 ⟶ ℂ
61 60 ffvelcdmda ⊢ φ ∧ z ∈ ℂ ∧ m ∈ ℕ 0 → B ⁡ m ∈ ℂ
62 expcl ⊢ z ∈ ℂ ∧ m ∈ ℕ 0 → z m ∈ ℂ
63 62 adantll ⊢ φ ∧ z ∈ ℂ ∧ m ∈ ℕ 0 → z m ∈ ℂ
64 61 63 mulcld ⊢ φ ∧ z ∈ ℂ ∧ m ∈ ℕ 0 → B ⁡ m ⁢ z m ∈ ℂ
65 57 64 sylan2 ⊢ φ ∧ z ∈ ℂ ∧ m ∈ 0 … deg ⁡ F → B ⁡ m ⁢ z m ∈ ℂ
66 19 56 65 fsummulc2 ⊢ φ ∧ z ∈ ℂ → R ⁢ ∑ m = 0 deg ⁡ F B ⁡ m ⁢ z m = ∑ m = 0 deg ⁡ F R ⁢ B ⁡ m ⁢ z m
67 eqid ⊢ deg ⁡ F = deg ⁡ F
68 4 67 coeid2 ⊢ F ∈ Poly ⁡ ℚ ∧ z ∈ ℂ → F ⁡ z = ∑ m = 0 deg ⁡ F B ⁡ m ⁢ z m
69 14 68 sylan ⊢ φ ∧ z ∈ ℂ → F ⁡ z = ∑ m = 0 deg ⁡ F B ⁡ m ⁢ z m
70 69 oveq2d ⊢ φ ∧ z ∈ ℂ → R ⁢ F ⁡ z = R ⁢ ∑ m = 0 deg ⁡ F B ⁡ m ⁢ z m
71 56 adantr ⊢ φ ∧ z ∈ ℂ ∧ m ∈ ℕ 0 → R ∈ ℂ
72 71 61 63 mulassd ⊢ φ ∧ z ∈ ℂ ∧ m ∈ ℕ 0 → R ⁢ B ⁡ m ⁢ z m = R ⁢ B ⁡ m ⁢ z m
73 57 72 sylan2 ⊢ φ ∧ z ∈ ℂ ∧ m ∈ 0 … deg ⁡ F → R ⁢ B ⁡ m ⁢ z m = R ⁢ B ⁡ m ⁢ z m
74 73 sumeq2dv ⊢ φ ∧ z ∈ ℂ → ∑ m = 0 deg ⁡ F R ⁢ B ⁡ m ⁢ z m = ∑ m = 0 deg ⁡ F R ⁢ B ⁡ m ⁢ z m
75 66 70 74 3eqtr4d ⊢ φ ∧ z ∈ ℂ → R ⁢ F ⁡ z = ∑ m = 0 deg ⁡ F R ⁢ B ⁡ m ⁢ z m
76 75 mpteq2dva ⊢ φ → z ∈ ℂ ⟼ R ⁢ F ⁡ z = z ∈ ℂ ⟼ ∑ m = 0 deg ⁡ F R ⁢ B ⁡ m ⁢ z m
77 18 76 eqtrd ⊢ φ → ℂ × R × f F = z ∈ ℂ ⟼ ∑ m = 0 deg ⁡ F R ⁢ B ⁡ m ⁢ z m
78 zsscn ⊢ ℤ ⊆ ℂ
79 78 a1i ⊢ φ → ℤ ⊆ ℂ
80 55 adantr ⊢ φ ∧ m ∈ ℕ 0 → R ∈ ℂ
81 47 nncnd ⊢ φ ∧ m ∈ ℕ 0 → N ⁡ m ∈ ℂ
82 47 nnne0d ⊢ φ ∧ m ∈ ℕ 0 → N ⁡ m ≠ 0
83 80 81 82 divcan2d ⊢ φ ∧ m ∈ ℕ 0 → N ⁡ m ⁢ R N ⁡ m = R
84 83 oveq2d ⊢ φ ∧ m ∈ ℕ 0 → B ⁡ m ⁢ N ⁡ m ⁢ R N ⁡ m = B ⁡ m ⁢ R
85 59 ffvelcdmda ⊢ φ ∧ m ∈ ℕ 0 → B ⁡ m ∈ ℂ
86 80 81 82 divcld ⊢ φ ∧ m ∈ ℕ 0 → R N ⁡ m ∈ ℂ
87 85 81 86 mulassd ⊢ φ ∧ m ∈ ℕ 0 → B ⁡ m ⁢ N ⁡ m ⁢ R N ⁡ m = B ⁡ m ⁢ N ⁡ m ⁢ R N ⁡ m
88 80 85 mulcomd ⊢ φ ∧ m ∈ ℕ 0 → R ⁢ B ⁡ m = B ⁡ m ⁢ R
89 84 87 88 3eqtr4rd ⊢ φ ∧ m ∈ ℕ 0 → R ⁢ B ⁡ m = B ⁡ m ⁢ N ⁡ m ⁢ R N ⁡ m
90 57 89 sylan2 ⊢ φ ∧ m ∈ 0 … deg ⁡ F → R ⁢ B ⁡ m = B ⁡ m ⁢ N ⁡ m ⁢ R N ⁡ m
91 oveq2 ⊢ n = N ⁡ m → B ⁡ m ⁢ n = B ⁡ m ⁢ N ⁡ m
92 91 eleq1d ⊢ n = N ⁡ m → B ⁡ m ⁢ n ∈ ℤ ↔ B ⁡ m ⁢ N ⁡ m ∈ ℤ
93 92 elrab ⊢ N ⁡ m ∈ n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ ↔ N ⁡ m ∈ ℕ ∧ B ⁡ m ⁢ N ⁡ m ∈ ℤ
94 93 simprbi ⊢ N ⁡ m ∈ n ∈ ℕ | B ⁡ m ⁢ n ∈ ℤ → B ⁡ m ⁢ N ⁡ m ∈ ℤ
95 46 94 syl ⊢ φ ∧ m ∈ ℕ 0 → B ⁡ m ⁢ N ⁡ m ∈ ℤ
96 57 95 sylan2 ⊢ φ ∧ m ∈ 0 … deg ⁡ F → B ⁡ m ⁢ N ⁡ m ∈ ℤ
97 eqid ⊢ x ∈ V , y ∈ V ⟼ x ⁢ y mod N ⁡ m = x ∈ V , y ∈ V ⟼ x ⁢ y mod N ⁡ m
98 1 2 3 4 5 6 97 elqaalem2 ⊢ φ ∧ m ∈ 0 … deg ⁡ F → R mod N ⁡ m = 0
99 54 adantr ⊢ φ ∧ m ∈ 0 … deg ⁡ F → R ∈ ℕ
100 57 47 sylan2 ⊢ φ ∧ m ∈ 0 … deg ⁡ F → N ⁡ m ∈ ℕ
101 nnre ⊢ R ∈ ℕ → R ∈ ℝ
102 nnrp ⊢ N ⁡ m ∈ ℕ → N ⁡ m ∈ ℝ +
103 mod0 ⊢ R ∈ ℝ ∧ N ⁡ m ∈ ℝ + → R mod N ⁡ m = 0 ↔ R N ⁡ m ∈ ℤ
104 101 102 103 syl2an ⊢ R ∈ ℕ ∧ N ⁡ m ∈ ℕ → R mod N ⁡ m = 0 ↔ R N ⁡ m ∈ ℤ
105 99 100 104 syl2anc ⊢ φ ∧ m ∈ 0 … deg ⁡ F → R mod N ⁡ m = 0 ↔ R N ⁡ m ∈ ℤ
106 98 105 mpbid ⊢ φ ∧ m ∈ 0 … deg ⁡ F → R N ⁡ m ∈ ℤ
107 96 106 zmulcld ⊢ φ ∧ m ∈ 0 … deg ⁡ F → B ⁡ m ⁢ N ⁡ m ⁢ R N ⁡ m ∈ ℤ
108 90 107 eqeltrd ⊢ φ ∧ m ∈ 0 … deg ⁡ F → R ⁢ B ⁡ m ∈ ℤ
109 79 52 108 elplyd ⊢ φ → z ∈ ℂ ⟼ ∑ m = 0 deg ⁡ F R ⁢ B ⁡ m ⁢ z m ∈ Poly ⁡ ℤ
110 77 109 eqeltrd ⊢ φ → ℂ × R × f F ∈ Poly ⁡ ℤ
111 eldifsn ⊢ F ∈ Poly ⁡ ℚ ∖ 0 𝑝 ↔ F ∈ Poly ⁡ ℚ ∧ F ≠ 0 𝑝
112 2 111 sylib ⊢ φ → F ∈ Poly ⁡ ℚ ∧ F ≠ 0 𝑝
113 112 simprd ⊢ φ → F ≠ 0 𝑝
114 oveq1 ⊢ ℂ × R × f F = 0 𝑝 → ℂ × R × f F ÷ f ℂ × R = 0 𝑝 ÷ f ℂ × R
115 16 ffvelcdmda ⊢ φ ∧ z ∈ ℂ → F ⁡ z ∈ ℂ
116 54 nnne0d ⊢ φ → R ≠ 0
117 116 adantr ⊢ φ ∧ z ∈ ℂ → R ≠ 0
118 115 56 117 divcan3d ⊢ φ ∧ z ∈ ℂ → R ⁢ F ⁡ z R = F ⁡ z
119 118 mpteq2dva ⊢ φ → z ∈ ℂ ⟼ R ⁢ F ⁡ z R = z ∈ ℂ ⟼ F ⁡ z
120 ovexd ⊢ φ ∧ z ∈ ℂ → R ⁢ F ⁡ z ∈ V
121 8 120 10 18 13 offval2 ⊢ φ → ℂ × R × f F ÷ f ℂ × R = z ∈ ℂ ⟼ R ⁢ F ⁡ z R
122 119 121 17 3eqtr4d ⊢ φ → ℂ × R × f F ÷ f ℂ × R = F
123 55 116 div0d ⊢ φ → 0 R = 0
124 123 mpteq2dv ⊢ φ → z ∈ ℂ ⟼ 0 R = z ∈ ℂ ⟼ 0
125 0cnd ⊢ φ ∧ z ∈ ℂ → 0 ∈ ℂ
126 df-0p ⊢ 0 𝑝 = ℂ × 0
127 fconstmpt ⊢ ℂ × 0 = z ∈ ℂ ⟼ 0
128 126 127 eqtri ⊢ 0 𝑝 = z ∈ ℂ ⟼ 0
129 128 a1i ⊢ φ → 0 𝑝 = z ∈ ℂ ⟼ 0
130 8 125 10 129 13 offval2 ⊢ φ → 0 𝑝 ÷ f ℂ × R = z ∈ ℂ ⟼ 0 R
131 124 130 129 3eqtr4d ⊢ φ → 0 𝑝 ÷ f ℂ × R = 0 𝑝
132 122 131 eqeq12d ⊢ φ → ℂ × R × f F ÷ f ℂ × R = 0 𝑝 ÷ f ℂ × R ↔ F = 0 𝑝
133 114 132 imbitrid ⊢ φ → ℂ × R × f F = 0 𝑝 → F = 0 𝑝
134 133 necon3d ⊢ φ → F ≠ 0 𝑝 → ℂ × R × f F ≠ 0 𝑝
135 113 134 mpd ⊢ φ → ℂ × R × f F ≠ 0 𝑝
136 eldifsn ⊢ ℂ × R × f F ∈ Poly ⁡ ℤ ∖ 0 𝑝 ↔ ℂ × R × f F ∈ Poly ⁡ ℤ ∧ ℂ × R × f F ≠ 0 𝑝
137 110 135 136 sylanbrc ⊢ φ → ℂ × R × f F ∈ Poly ⁡ ℤ ∖ 0 𝑝
138 9 fconst ⊢ ℂ × R : ℂ ⟶ R
139 ffn ⊢ ℂ × R : ℂ ⟶ R → ℂ × R Fn ℂ
140 138 139 mp1i ⊢ φ → ℂ × R Fn ℂ
141 16 ffnd ⊢ φ → F Fn ℂ
142 inidm ⊢ ℂ ∩ ℂ = ℂ
143 9 fvconst2 ⊢ A ∈ ℂ → ℂ × R ⁡ A = R
144 143 adantl ⊢ φ ∧ A ∈ ℂ → ℂ × R ⁡ A = R
145 3 adantr ⊢ φ ∧ A ∈ ℂ → F ⁡ A = 0
146 140 141 8 8 142 144 145 ofval ⊢ φ ∧ A ∈ ℂ → ℂ × R × f F ⁡ A = R ⋅ 0
147 1 146 mpdan ⊢ φ → ℂ × R × f F ⁡ A = R ⋅ 0
148 55 mul01d ⊢ φ → R ⋅ 0 = 0
149 147 148 eqtrd ⊢ φ → ℂ × R × f F ⁡ A = 0
150 fveq1 ⊢ f = ℂ × R × f F → f ⁡ A = ℂ × R × f F ⁡ A
151 150 eqeq1d ⊢ f = ℂ × R × f F → f ⁡ A = 0 ↔ ℂ × R × f F ⁡ A = 0
152 151 rspcev ⊢ ℂ × R × f F ∈ Poly ⁡ ℤ ∖ 0 𝑝 ∧ ℂ × R × f F ⁡ A = 0 → ∃ f ∈ Poly ⁡ ℤ ∖ 0 𝑝 f ⁡ A = 0
153 137 149 152 syl2anc ⊢ φ → ∃ f ∈ Poly ⁡ ℤ ∖ 0 𝑝 f ⁡ A = 0
154 elaa ⊢ A ∈ 𝔸 ↔ A ∈ ℂ ∧ ∃ f ∈ Poly ⁡ ℤ ∖ 0 𝑝 f ⁡ A = 0
155 1 153 154 sylanbrc ⊢ φ → A ∈ 𝔸