Metamath Proof Explorer


Theorem qexpz

Description: If a power of a rational number is an integer, then the number is an integer. In other words, all n-th roots are irrational unless they are integers (so that the original number is an n-th power). (Contributed by Mario Carneiro, 10-Aug-2015)

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

Proof

Step Hyp Ref Expression
1 eleq1 ⊢ A = 0 → A ∈ ℤ ↔ 0 ∈ ℤ
2 simpll2 ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → N ∈ ℕ
3 2 nncnd ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → N ∈ ℂ
4 3 mul01d ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → N ⋅ 0 = 0
5 simpr ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → p ∈ ℙ
6 simpll3 ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → A N ∈ ℤ
7 simpll1 ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → A ∈ ℚ
8 qcn ⊢ A ∈ ℚ → A ∈ ℂ
9 7 8 syl ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → A ∈ ℂ
10 simplr ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → A ≠ 0
11 2 nnzd ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → N ∈ ℤ
12 9 10 11 expne0d ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → A N ≠ 0
13 pczcl ⊢ p ∈ ℙ ∧ A N ∈ ℤ ∧ A N ≠ 0 → p pCnt A N ∈ ℕ 0
14 5 6 12 13 syl12anc ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → p pCnt A N ∈ ℕ 0
15 14 nn0ge0d ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → 0 ≤ p pCnt A N
16 pcexp ⊢ p ∈ ℙ ∧ A ∈ ℚ ∧ A ≠ 0 ∧ N ∈ ℤ → p pCnt A N = N ⁢ p pCnt A
17 5 7 10 11 16 syl121anc ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → p pCnt A N = N ⁢ p pCnt A
18 15 17 breqtrd ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → 0 ≤ N ⁢ p pCnt A
19 4 18 eqbrtrd ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → N ⋅ 0 ≤ N ⁢ p pCnt A
20 0red ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → 0 ∈ ℝ
21 pcqcl ⊢ p ∈ ℙ ∧ A ∈ ℚ ∧ A ≠ 0 → p pCnt A ∈ ℤ
22 5 7 10 21 syl12anc ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → p pCnt A ∈ ℤ
23 22 zred ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → p pCnt A ∈ ℝ
24 2 nnred ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → N ∈ ℝ
25 2 nngt0d ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → 0 < N
26 lemul2 ⊢ 0 ∈ ℝ ∧ p pCnt A ∈ ℝ ∧ N ∈ ℝ ∧ 0 < N → 0 ≤ p pCnt A ↔ N ⋅ 0 ≤ N ⁢ p pCnt A
27 20 23 24 25 26 syl112anc ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → 0 ≤ p pCnt A ↔ N ⋅ 0 ≤ N ⁢ p pCnt A
28 19 27 mpbird ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 ∧ p ∈ ℙ → 0 ≤ p pCnt A
29 28 ralrimiva ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 → ∀ p ∈ ℙ 0 ≤ p pCnt A
30 simpl1 ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 → A ∈ ℚ
31 pcz ⊢ A ∈ ℚ → A ∈ ℤ ↔ ∀ p ∈ ℙ 0 ≤ p pCnt A
32 30 31 syl ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 → A ∈ ℤ ↔ ∀ p ∈ ℙ 0 ≤ p pCnt A
33 29 32 mpbird ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ ∧ A ≠ 0 → A ∈ ℤ
34 0zd ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ → 0 ∈ ℤ
35 1 33 34 pm2.61ne ⊢ A ∈ ℚ ∧ N ∈ ℕ ∧ A N ∈ ℤ → A ∈ ℤ