Metamath Proof Explorer


Theorem pceu

Description: Uniqueness for the prime power function. (Contributed by Mario Carneiro, 23-Feb-2014)

Ref Expression
Hypotheses pcval.1 ⊢ S = sup n ∈ ℕ 0 | P n ∥ x ℝ <
pcval.2 ⊢ T = sup n ∈ ℕ 0 | P n ∥ y ℝ <
Assertion pceu ⊢ P ∈ ℙ ∧ N ∈ ℚ ∧ N ≠ 0 → ∃! z ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ z = S − T

Proof

Step Hyp Ref Expression
1 pcval.1 ⊢ S = sup n ∈ ℕ 0 | P n ∥ x ℝ <
2 pcval.2 ⊢ T = sup n ∈ ℕ 0 | P n ∥ y ℝ <
3 simprl ⊢ P ∈ ℙ ∧ N ∈ ℚ ∧ N ≠ 0 → N ∈ ℚ
4 elq ⊢ N ∈ ℚ ↔ ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y
5 3 4 sylib ⊢ P ∈ ℙ ∧ N ∈ ℚ ∧ N ≠ 0 → ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y
6 ovex ⊢ S − T ∈ V
7 biidd ⊢ z = S − T → N = x y ↔ N = x y
8 6 7 ceqsexv ⊢ ∃ z z = S − T ∧ N = x y ↔ N = x y
9 exancom ⊢ ∃ z z = S − T ∧ N = x y ↔ ∃ z N = x y ∧ z = S − T
10 8 9 bitr3i ⊢ N = x y ↔ ∃ z N = x y ∧ z = S − T
11 10 rexbii ⊢ ∃ y ∈ ℕ N = x y ↔ ∃ y ∈ ℕ ∃ z N = x y ∧ z = S − T
12 rexcom4 ⊢ ∃ y ∈ ℕ ∃ z N = x y ∧ z = S − T ↔ ∃ z ∃ y ∈ ℕ N = x y ∧ z = S − T
13 11 12 bitri ⊢ ∃ y ∈ ℕ N = x y ↔ ∃ z ∃ y ∈ ℕ N = x y ∧ z = S − T
14 13 rexbii ⊢ ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ↔ ∃ x ∈ ℤ ∃ z ∃ y ∈ ℕ N = x y ∧ z = S − T
15 rexcom4 ⊢ ∃ x ∈ ℤ ∃ z ∃ y ∈ ℕ N = x y ∧ z = S − T ↔ ∃ z ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ z = S − T
16 14 15 bitri ⊢ ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ↔ ∃ z ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ z = S − T
17 5 16 sylib ⊢ P ∈ ℙ ∧ N ∈ ℚ ∧ N ≠ 0 → ∃ z ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ z = S − T
18 eqid ⊢ sup n ∈ ℕ 0 | P n ∥ s ℝ < = sup n ∈ ℕ 0 | P n ∥ s ℝ <
19 eqid ⊢ sup n ∈ ℕ 0 | P n ∥ t ℝ < = sup n ∈ ℕ 0 | P n ∥ t ℝ <
20 simp11l ⊢ P ∈ ℙ ∧ N ≠ 0 ∧ x ∈ ℤ ∧ y ∈ ℕ ∧ N = x y ∧ z = S − T ∧ s ∈ ℤ ∧ t ∈ ℕ ∧ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → P ∈ ℙ
21 simp11r ⊢ P ∈ ℙ ∧ N ≠ 0 ∧ x ∈ ℤ ∧ y ∈ ℕ ∧ N = x y ∧ z = S − T ∧ s ∈ ℤ ∧ t ∈ ℕ ∧ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → N ≠ 0
22 simp12 ⊢ P ∈ ℙ ∧ N ≠ 0 ∧ x ∈ ℤ ∧ y ∈ ℕ ∧ N = x y ∧ z = S − T ∧ s ∈ ℤ ∧ t ∈ ℕ ∧ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → x ∈ ℤ ∧ y ∈ ℕ
23 simp13l ⊢ P ∈ ℙ ∧ N ≠ 0 ∧ x ∈ ℤ ∧ y ∈ ℕ ∧ N = x y ∧ z = S − T ∧ s ∈ ℤ ∧ t ∈ ℕ ∧ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → N = x y
24 simp2 ⊢ P ∈ ℙ ∧ N ≠ 0 ∧ x ∈ ℤ ∧ y ∈ ℕ ∧ N = x y ∧ z = S − T ∧ s ∈ ℤ ∧ t ∈ ℕ ∧ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → s ∈ ℤ ∧ t ∈ ℕ
25 simp3l ⊢ P ∈ ℙ ∧ N ≠ 0 ∧ x ∈ ℤ ∧ y ∈ ℕ ∧ N = x y ∧ z = S − T ∧ s ∈ ℤ ∧ t ∈ ℕ ∧ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → N = s t
26 1 2 18 19 20 21 22 23 24 25 pceulem ⊢ P ∈ ℙ ∧ N ≠ 0 ∧ x ∈ ℤ ∧ y ∈ ℕ ∧ N = x y ∧ z = S − T ∧ s ∈ ℤ ∧ t ∈ ℕ ∧ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → S − T = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ <
27 simp13r ⊢ P ∈ ℙ ∧ N ≠ 0 ∧ x ∈ ℤ ∧ y ∈ ℕ ∧ N = x y ∧ z = S − T ∧ s ∈ ℤ ∧ t ∈ ℕ ∧ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → z = S − T
28 simp3r ⊢ P ∈ ℙ ∧ N ≠ 0 ∧ x ∈ ℤ ∧ y ∈ ℕ ∧ N = x y ∧ z = S − T ∧ s ∈ ℤ ∧ t ∈ ℕ ∧ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ <
29 26 27 28 3eqtr4d ⊢ P ∈ ℙ ∧ N ≠ 0 ∧ x ∈ ℤ ∧ y ∈ ℕ ∧ N = x y ∧ z = S − T ∧ s ∈ ℤ ∧ t ∈ ℕ ∧ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → z = w
30 29 3exp ⊢ P ∈ ℙ ∧ N ≠ 0 ∧ x ∈ ℤ ∧ y ∈ ℕ ∧ N = x y ∧ z = S − T → s ∈ ℤ ∧ t ∈ ℕ → N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → z = w
31 30 rexlimdvv ⊢ P ∈ ℙ ∧ N ≠ 0 ∧ x ∈ ℤ ∧ y ∈ ℕ ∧ N = x y ∧ z = S − T → ∃ s ∈ ℤ ∃ t ∈ ℕ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → z = w
32 31 3exp ⊢ P ∈ ℙ ∧ N ≠ 0 → x ∈ ℤ ∧ y ∈ ℕ → N = x y ∧ z = S − T → ∃ s ∈ ℤ ∃ t ∈ ℕ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → z = w
33 32 adantrl ⊢ P ∈ ℙ ∧ N ∈ ℚ ∧ N ≠ 0 → x ∈ ℤ ∧ y ∈ ℕ → N = x y ∧ z = S − T → ∃ s ∈ ℤ ∃ t ∈ ℕ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → z = w
34 33 rexlimdvv ⊢ P ∈ ℙ ∧ N ∈ ℚ ∧ N ≠ 0 → ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ z = S − T → ∃ s ∈ ℤ ∃ t ∈ ℕ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → z = w
35 34 impd ⊢ P ∈ ℙ ∧ N ∈ ℚ ∧ N ≠ 0 → ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ z = S − T ∧ ∃ s ∈ ℤ ∃ t ∈ ℕ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → z = w
36 35 alrimivv ⊢ P ∈ ℙ ∧ N ∈ ℚ ∧ N ≠ 0 → ∀ z ∀ w ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ z = S − T ∧ ∃ s ∈ ℤ ∃ t ∈ ℕ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → z = w
37 eqeq1 ⊢ z = w → z = S − T ↔ w = S − T
38 37 anbi2d ⊢ z = w → N = x y ∧ z = S − T ↔ N = x y ∧ w = S − T
39 38 2rexbidv ⊢ z = w → ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ z = S − T ↔ ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ w = S − T
40 oveq1 ⊢ x = s → x y = s y
41 40 eqeq2d ⊢ x = s → N = x y ↔ N = s y
42 breq2 ⊢ x = s → P n ∥ x ↔ P n ∥ s
43 42 rabbidv ⊢ x = s → n ∈ ℕ 0 | P n ∥ x = n ∈ ℕ 0 | P n ∥ s
44 43 supeq1d ⊢ x = s → sup n ∈ ℕ 0 | P n ∥ x ℝ < = sup n ∈ ℕ 0 | P n ∥ s ℝ <
45 1 44 eqtrid ⊢ x = s → S = sup n ∈ ℕ 0 | P n ∥ s ℝ <
46 45 oveq1d ⊢ x = s → S − T = sup n ∈ ℕ 0 | P n ∥ s ℝ < − T
47 46 eqeq2d ⊢ x = s → w = S − T ↔ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − T
48 41 47 anbi12d ⊢ x = s → N = x y ∧ w = S − T ↔ N = s y ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − T
49 48 rexbidv ⊢ x = s → ∃ y ∈ ℕ N = x y ∧ w = S − T ↔ ∃ y ∈ ℕ N = s y ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − T
50 oveq2 ⊢ y = t → s y = s t
51 50 eqeq2d ⊢ y = t → N = s y ↔ N = s t
52 breq2 ⊢ y = t → P n ∥ y ↔ P n ∥ t
53 52 rabbidv ⊢ y = t → n ∈ ℕ 0 | P n ∥ y = n ∈ ℕ 0 | P n ∥ t
54 53 supeq1d ⊢ y = t → sup n ∈ ℕ 0 | P n ∥ y ℝ < = sup n ∈ ℕ 0 | P n ∥ t ℝ <
55 2 54 eqtrid ⊢ y = t → T = sup n ∈ ℕ 0 | P n ∥ t ℝ <
56 55 oveq2d ⊢ y = t → sup n ∈ ℕ 0 | P n ∥ s ℝ < − T = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ <
57 56 eqeq2d ⊢ y = t → w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − T ↔ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ <
58 51 57 anbi12d ⊢ y = t → N = s y ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − T ↔ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ <
59 58 cbvrexvw ⊢ ∃ y ∈ ℕ N = s y ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − T ↔ ∃ t ∈ ℕ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ <
60 49 59 bitrdi ⊢ x = s → ∃ y ∈ ℕ N = x y ∧ w = S − T ↔ ∃ t ∈ ℕ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ <
61 60 cbvrexvw ⊢ ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ w = S − T ↔ ∃ s ∈ ℤ ∃ t ∈ ℕ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ <
62 39 61 bitrdi ⊢ z = w → ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ z = S − T ↔ ∃ s ∈ ℤ ∃ t ∈ ℕ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ <
63 62 eu4 ⊢ ∃! z ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ z = S − T ↔ ∃ z ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ z = S − T ∧ ∀ z ∀ w ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ z = S − T ∧ ∃ s ∈ ℤ ∃ t ∈ ℕ N = s t ∧ w = sup n ∈ ℕ 0 | P n ∥ s ℝ < − sup n ∈ ℕ 0 | P n ∥ t ℝ < → z = w
64 17 36 63 sylanbrc ⊢ P ∈ ℙ ∧ N ∈ ℚ ∧ N ≠ 0 → ∃! z ∃ x ∈ ℤ ∃ y ∈ ℕ N = x y ∧ z = S − T