Metamath Proof Explorer


Theorem sqrtnnaa

Description: Square root of a natural number is algebraic. (Contributed by Ender Ting, 21-Jul-2026)

Ref Expression
Assertion sqrtnnaa ⊢ A ∈ ℕ → A ∈ 𝔸

Proof

Step Hyp Ref Expression
1 nncn ⊢ A ∈ ℕ → A ∈ ℂ
2 1 sqrtcld ⊢ A ∈ ℕ → A ∈ ℂ
3 fveq1 ⊢ x = t ∈ ℂ ⟼ t 2 − f ℂ × A → x ⁡ A = t ∈ ℂ ⟼ t 2 − f ℂ × A ⁡ A
4 3 eqeq1d ⊢ x = t ∈ ℂ ⟼ t 2 − f ℂ × A → x ⁡ A = 0 ↔ t ∈ ℂ ⟼ t 2 − f ℂ × A ⁡ A = 0
5 zsscn ⊢ ℤ ⊆ ℂ
6 1z ⊢ 1 ∈ ℤ
7 2nn0 ⊢ 2 ∈ ℕ 0
8 plypow ⊢ ℤ ⊆ ℂ ∧ 1 ∈ ℤ ∧ 2 ∈ ℕ 0 → t ∈ ℂ ⟼ t 2 ∈ Poly ⁡ ℤ
9 5 6 7 8 mp3an ⊢ t ∈ ℂ ⟼ t 2 ∈ Poly ⁡ ℤ
10 9 a1i ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 ∈ Poly ⁡ ℤ
11 nnz ⊢ A ∈ ℕ → A ∈ ℤ
12 plyconst ⊢ ℤ ⊆ ℂ ∧ A ∈ ℤ → ℂ × A ∈ Poly ⁡ ℤ
13 5 11 12 sylancr ⊢ A ∈ ℕ → ℂ × A ∈ Poly ⁡ ℤ
14 zaddcl ⊢ x ∈ ℤ ∧ p ∈ ℤ → x + p ∈ ℤ
15 14 adantl ⊢ A ∈ ℕ ∧ x ∈ ℤ ∧ p ∈ ℤ → x + p ∈ ℤ
16 zmulcl ⊢ x ∈ ℤ ∧ p ∈ ℤ → x ⁢ p ∈ ℤ
17 16 adantl ⊢ A ∈ ℕ ∧ x ∈ ℤ ∧ p ∈ ℤ → x ⁢ p ∈ ℤ
18 neg1z ⊢ − 1 ∈ ℤ
19 18 a1i ⊢ A ∈ ℕ → − 1 ∈ ℤ
20 10 13 15 17 19 plysub ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 − f ℂ × A ∈ Poly ⁡ ℤ
21 0cn ⊢ 0 ∈ ℂ
22 ovex ⊢ t 2 ∈ V
23 22 rgenw ⊢ ∀ t ∈ ℂ t 2 ∈ V
24 23 a1i ⊢ A ∈ ℕ → ∀ t ∈ ℂ t 2 ∈ V
25 nfcv ⊢ Ⅎ _ t ℂ
26 25 mptfnf ⊢ ∀ t ∈ ℂ t 2 ∈ V ↔ t ∈ ℂ ⟼ t 2 Fn ℂ
27 24 26 sylib ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 Fn ℂ
28 fnconstg ⊢ A ∈ ℕ → ℂ × A Fn ℂ
29 cnex ⊢ ℂ ∈ V
30 29 a1i ⊢ A ∈ ℕ → ℂ ∈ V
31 0cnd ⊢ A ∈ ℕ → 0 ∈ ℂ
32 fnfvof ⊢ t ∈ ℂ ⟼ t 2 Fn ℂ ∧ ℂ × A Fn ℂ ∧ ℂ ∈ V ∧ 0 ∈ ℂ → t ∈ ℂ ⟼ t 2 − f ℂ × A ⁡ 0 = t ∈ ℂ ⟼ t 2 ⁡ 0 − ℂ × A ⁡ 0
33 27 28 30 31 32 syl22anc ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 − f ℂ × A ⁡ 0 = t ∈ ℂ ⟼ t 2 ⁡ 0 − ℂ × A ⁡ 0
34 oveq1 ⊢ t = 0 → t 2 = 0 2
35 eqid ⊢ t ∈ ℂ ⟼ t 2 = t ∈ ℂ ⟼ t 2
36 ovex ⊢ 0 2 ∈ V
37 34 35 36 fvmpt ⊢ 0 ∈ ℂ → t ∈ ℂ ⟼ t 2 ⁡ 0 = 0 2
38 21 37 ax-mp ⊢ t ∈ ℂ ⟼ t 2 ⁡ 0 = 0 2
39 sq0 ⊢ 0 2 = 0
40 38 39 eqtri ⊢ t ∈ ℂ ⟼ t 2 ⁡ 0 = 0
41 40 a1i ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 ⁡ 0 = 0
42 fvconst2g ⊢ A ∈ ℕ ∧ 0 ∈ ℂ → ℂ × A ⁡ 0 = A
43 31 42 mpdan ⊢ A ∈ ℕ → ℂ × A ⁡ 0 = A
44 41 43 oveq12d ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 ⁡ 0 − ℂ × A ⁡ 0 = 0 − A
45 33 44 eqtrd ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 − f ℂ × A ⁡ 0 = 0 − A
46 nnne0 ⊢ A ∈ ℕ → A ≠ 0
47 46 necomd ⊢ A ∈ ℕ → 0 ≠ A
48 31 1 47 subne0d ⊢ A ∈ ℕ → 0 − A ≠ 0
49 45 48 eqnetrd ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 − f ℂ × A ⁡ 0 ≠ 0
50 ne0p ⊢ 0 ∈ ℂ ∧ t ∈ ℂ ⟼ t 2 − f ℂ × A ⁡ 0 ≠ 0 → t ∈ ℂ ⟼ t 2 − f ℂ × A ≠ 0 𝑝
51 21 49 50 sylancr ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 − f ℂ × A ≠ 0 𝑝
52 20 51 eldifsnd ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 − f ℂ × A ∈ Poly ⁡ ℤ ∖ 0 𝑝
53 fnfvof ⊢ t ∈ ℂ ⟼ t 2 Fn ℂ ∧ ℂ × A Fn ℂ ∧ ℂ ∈ V ∧ A ∈ ℂ → t ∈ ℂ ⟼ t 2 − f ℂ × A ⁡ A = t ∈ ℂ ⟼ t 2 ⁡ A − ℂ × A ⁡ A
54 27 28 30 2 53 syl22anc ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 − f ℂ × A ⁡ A = t ∈ ℂ ⟼ t 2 ⁡ A − ℂ × A ⁡ A
55 oveq1 ⊢ t = A → t 2 = A 2
56 ovex ⊢ A 2 ∈ V
57 55 35 56 fvmpt ⊢ A ∈ ℂ → t ∈ ℂ ⟼ t 2 ⁡ A = A 2
58 2 57 syl ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 ⁡ A = A 2
59 1 sqsqrtd ⊢ A ∈ ℕ → A 2 = A
60 58 59 eqtrd ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 ⁡ A = A
61 fvconst2g ⊢ A ∈ ℕ ∧ A ∈ ℂ → ℂ × A ⁡ A = A
62 2 61 mpdan ⊢ A ∈ ℕ → ℂ × A ⁡ A = A
63 60 62 oveq12d ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 ⁡ A − ℂ × A ⁡ A = A − A
64 54 63 eqtrd ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 − f ℂ × A ⁡ A = A − A
65 1 subidd ⊢ A ∈ ℕ → A − A = 0
66 64 65 eqtrd ⊢ A ∈ ℕ → t ∈ ℂ ⟼ t 2 − f ℂ × A ⁡ A = 0
67 4 52 66 rspcedvdw ⊢ A ∈ ℕ → ∃ x ∈ Poly ⁡ ℤ ∖ 0 𝑝 x ⁡ A = 0
68 elaa ⊢ A ∈ 𝔸 ↔ A ∈ ℂ ∧ ∃ x ∈ Poly ⁡ ℤ ∖ 0 𝑝 x ⁡ A = 0
69 2 67 68 sylanbrc ⊢ A ∈ ℕ → A ∈ 𝔸