Metamath Proof Explorer


Theorem zrtelqelz

Description: If the N -th root of an integer A is rational, that root must be an integer. Generalization of zsqrtelqelz to positive integer roots. (Contributed by Steven Nguyen, 6-Apr-2023)

Ref Expression
Assertion zrtelqelz ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → A 1 N ∈ ℤ

Proof

Step Hyp Ref Expression
1 qdencl ⊢ A 1 N ∈ ℚ → denom ⁡ A 1 N ∈ ℕ
2 1 3ad2ant3 ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → denom ⁡ A 1 N ∈ ℕ
3 2 nnrpd ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → denom ⁡ A 1 N ∈ ℝ +
4 1rp ⊢ 1 ∈ ℝ +
5 4 a1i ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → 1 ∈ ℝ +
6 simp2 ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → N ∈ ℕ
7 6 nnzd ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → N ∈ ℤ
8 1exp ⊢ N ∈ ℤ → 1 N = 1
9 7 8 syl ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → 1 N = 1
10 zcn ⊢ A ∈ ℤ → A ∈ ℂ
11 10 3ad2ant1 ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → A ∈ ℂ
12 cxproot ⊢ A ∈ ℂ ∧ N ∈ ℕ → A 1 N N = A
13 11 6 12 syl2anc ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → A 1 N N = A
14 13 fveq2d ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → denom ⁡ A 1 N N = denom ⁡ A
15 zq ⊢ A ∈ ℤ → A ∈ ℚ
16 qden1elz ⊢ A ∈ ℚ → denom ⁡ A = 1 ↔ A ∈ ℤ
17 15 16 syl ⊢ A ∈ ℤ → denom ⁡ A = 1 ↔ A ∈ ℤ
18 17 ibir ⊢ A ∈ ℤ → denom ⁡ A = 1
19 18 3ad2ant1 ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → denom ⁡ A = 1
20 14 19 eqtrd ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → denom ⁡ A 1 N N = 1
21 simp3 ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → A 1 N ∈ ℚ
22 6 nnnn0d ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → N ∈ ℕ 0
23 denexp ⊢ A 1 N ∈ ℚ ∧ N ∈ ℕ 0 → denom ⁡ A 1 N N = denom ⁡ A 1 N N
24 21 22 23 syl2anc ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → denom ⁡ A 1 N N = denom ⁡ A 1 N N
25 9 20 24 3eqtr2rd ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → denom ⁡ A 1 N N = 1 N
26 3 5 6 25 exp11nnd ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → denom ⁡ A 1 N = 1
27 qden1elz ⊢ A 1 N ∈ ℚ → denom ⁡ A 1 N = 1 ↔ A 1 N ∈ ℤ
28 27 3ad2ant3 ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → denom ⁡ A 1 N = 1 ↔ A 1 N ∈ ℤ
29 26 28 mpbid ⊢ A ∈ ℤ ∧ N ∈ ℕ ∧ A 1 N ∈ ℚ → A 1 N ∈ ℤ