Metamath Proof Explorer


Theorem fvprmselgcd1

Description: The greatest common divisor of two values of the prime selection function for different arguments is 1. (Contributed by AV, 19-Aug-2020)

Ref Expression
Hypothesis fvprmselelfz.f ⊢ F = m ∈ ℕ ⟼ if m ∈ ℙ m 1
Assertion fvprmselgcd1 ⊢ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = 1

Proof

Step Hyp Ref Expression
1 fvprmselelfz.f ⊢ F = m ∈ ℕ ⟼ if m ∈ ℙ m 1
2 eleq1 ⊢ m = X → m ∈ ℙ ↔ X ∈ ℙ
3 id ⊢ m = X → m = X
4 2 3 ifbieq1d ⊢ m = X → if m ∈ ℙ m 1 = if X ∈ ℙ X 1
5 iftrue ⊢ X ∈ ℙ → if X ∈ ℙ X 1 = X
6 5 ad2antrr ⊢ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → if X ∈ ℙ X 1 = X
7 4 6 sylan9eqr ⊢ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y ∧ m = X → if m ∈ ℙ m 1 = X
8 elfznn ⊢ X ∈ 1 … N → X ∈ ℕ
9 8 3ad2ant1 ⊢ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → X ∈ ℕ
10 9 adantl ⊢ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → X ∈ ℕ
11 1 7 10 10 fvmptd2 ⊢ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X = X
12 eleq1 ⊢ m = Y → m ∈ ℙ ↔ Y ∈ ℙ
13 id ⊢ m = Y → m = Y
14 12 13 ifbieq1d ⊢ m = Y → if m ∈ ℙ m 1 = if Y ∈ ℙ Y 1
15 iftrue ⊢ Y ∈ ℙ → if Y ∈ ℙ Y 1 = Y
16 15 ad2antlr ⊢ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → if Y ∈ ℙ Y 1 = Y
17 14 16 sylan9eqr ⊢ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y ∧ m = Y → if m ∈ ℙ m 1 = Y
18 elfznn ⊢ Y ∈ 1 … N → Y ∈ ℕ
19 18 3ad2ant2 ⊢ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → Y ∈ ℕ
20 19 adantl ⊢ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → Y ∈ ℕ
21 1 17 20 20 fvmptd2 ⊢ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ Y = Y
22 11 21 oveq12d ⊢ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = X gcd Y
23 prmrp ⊢ X ∈ ℙ ∧ Y ∈ ℙ → X gcd Y = 1 ↔ X ≠ Y
24 23 biimprcd ⊢ X ≠ Y → X ∈ ℙ ∧ Y ∈ ℙ → X gcd Y = 1
25 24 3ad2ant3 ⊢ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → X ∈ ℙ ∧ Y ∈ ℙ → X gcd Y = 1
26 25 impcom ⊢ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → X gcd Y = 1
27 22 26 eqtrd ⊢ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = 1
28 27 ex ⊢ X ∈ ℙ ∧ Y ∈ ℙ → X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = 1
29 5 ad2antrr ⊢ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → if X ∈ ℙ X 1 = X
30 4 29 sylan9eqr ⊢ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y ∧ m = X → if m ∈ ℙ m 1 = X
31 9 adantl ⊢ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → X ∈ ℕ
32 1 30 31 31 fvmptd2 ⊢ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X = X
33 iffalse ⊢ ¬ Y ∈ ℙ → if Y ∈ ℙ Y 1 = 1
34 33 ad2antlr ⊢ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → if Y ∈ ℙ Y 1 = 1
35 14 34 sylan9eqr ⊢ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y ∧ m = Y → if m ∈ ℙ m 1 = 1
36 19 adantl ⊢ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → Y ∈ ℕ
37 1nn ⊢ 1 ∈ ℕ
38 37 a1i ⊢ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → 1 ∈ ℕ
39 1 35 36 38 fvmptd2 ⊢ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ Y = 1
40 32 39 oveq12d ⊢ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = X gcd 1
41 prmz ⊢ X ∈ ℙ → X ∈ ℤ
42 gcd1 ⊢ X ∈ ℤ → X gcd 1 = 1
43 41 42 syl ⊢ X ∈ ℙ → X gcd 1 = 1
44 43 ad2antrr ⊢ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → X gcd 1 = 1
45 40 44 eqtrd ⊢ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = 1
46 45 ex ⊢ X ∈ ℙ ∧ ¬ Y ∈ ℙ → X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = 1
47 iffalse ⊢ ¬ X ∈ ℙ → if X ∈ ℙ X 1 = 1
48 47 ad2antrr ⊢ ¬ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → if X ∈ ℙ X 1 = 1
49 4 48 sylan9eqr ⊢ ¬ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y ∧ m = X → if m ∈ ℙ m 1 = 1
50 9 adantl ⊢ ¬ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → X ∈ ℕ
51 37 a1i ⊢ ¬ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → 1 ∈ ℕ
52 1 49 50 51 fvmptd2 ⊢ ¬ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X = 1
53 15 ad2antlr ⊢ ¬ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → if Y ∈ ℙ Y 1 = Y
54 14 53 sylan9eqr ⊢ ¬ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y ∧ m = Y → if m ∈ ℙ m 1 = Y
55 19 adantl ⊢ ¬ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → Y ∈ ℕ
56 1 54 55 55 fvmptd2 ⊢ ¬ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ Y = Y
57 52 56 oveq12d ⊢ ¬ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = 1 gcd Y
58 prmz ⊢ Y ∈ ℙ → Y ∈ ℤ
59 1gcd ⊢ Y ∈ ℤ → 1 gcd Y = 1
60 58 59 syl ⊢ Y ∈ ℙ → 1 gcd Y = 1
61 60 ad2antlr ⊢ ¬ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → 1 gcd Y = 1
62 57 61 eqtrd ⊢ ¬ X ∈ ℙ ∧ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = 1
63 62 ex ⊢ ¬ X ∈ ℙ ∧ Y ∈ ℙ → X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = 1
64 47 ad2antrr ⊢ ¬ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → if X ∈ ℙ X 1 = 1
65 4 64 sylan9eqr ⊢ ¬ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y ∧ m = X → if m ∈ ℙ m 1 = 1
66 9 adantl ⊢ ¬ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → X ∈ ℕ
67 37 a1i ⊢ ¬ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → 1 ∈ ℕ
68 1 65 66 67 fvmptd2 ⊢ ¬ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X = 1
69 33 ad2antlr ⊢ ¬ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → if Y ∈ ℙ Y 1 = 1
70 14 69 sylan9eqr ⊢ ¬ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y ∧ m = Y → if m ∈ ℙ m 1 = 1
71 19 adantl ⊢ ¬ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → Y ∈ ℕ
72 1 70 71 67 fvmptd2 ⊢ ¬ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ Y = 1
73 68 72 oveq12d ⊢ ¬ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = 1 gcd 1
74 1z ⊢ 1 ∈ ℤ
75 1gcd ⊢ 1 ∈ ℤ → 1 gcd 1 = 1
76 74 75 mp1i ⊢ ¬ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → 1 gcd 1 = 1
77 73 76 eqtrd ⊢ ¬ X ∈ ℙ ∧ ¬ Y ∈ ℙ ∧ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = 1
78 77 ex ⊢ ¬ X ∈ ℙ ∧ ¬ Y ∈ ℙ → X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = 1
79 28 46 63 78 4cases ⊢ X ∈ 1 … N ∧ Y ∈ 1 … N ∧ X ≠ Y → F ⁡ X gcd F ⁡ Y = 1