Metamath Proof Explorer


Theorem sylow1lem1

Description: Lemma for sylow1 . The p-adic valuation of the size of S is equal to the number of excess powers of P in ( #X ) / ( P ^ N ) . (Contributed by Mario Carneiro, 15-Jan-2015)

Ref Expression
Hypotheses sylow1.x ⊢ X = Base G
sylow1.g ⊢ φ → G ∈ Grp
sylow1.f ⊢ φ → X ∈ Fin
sylow1.p ⊢ φ → P ∈ ℙ
sylow1.n ⊢ φ → N ∈ ℕ 0
sylow1.d ⊢ φ → P N ∥ X
sylow1lem.a ⊢ + ˙ = + G
sylow1lem.s ⊢ S = s ∈ 𝒫 X | s = P N
Assertion sylow1lem1 ⊢ φ → S ∈ ℕ ∧ P pCnt S = P pCnt X − N

Proof

Step Hyp Ref Expression
1 sylow1.x ⊢ X = Base G
2 sylow1.g ⊢ φ → G ∈ Grp
3 sylow1.f ⊢ φ → X ∈ Fin
4 sylow1.p ⊢ φ → P ∈ ℙ
5 sylow1.n ⊢ φ → N ∈ ℕ 0
6 sylow1.d ⊢ φ → P N ∥ X
7 sylow1lem.a ⊢ + ˙ = + G
8 sylow1lem.s ⊢ S = s ∈ 𝒫 X | s = P N
9 prmnn ⊢ P ∈ ℙ → P ∈ ℕ
10 4 9 syl ⊢ φ → P ∈ ℕ
11 10 5 nnexpcld ⊢ φ → P N ∈ ℕ
12 11 nnzd ⊢ φ → P N ∈ ℤ
13 hashbc ⊢ X ∈ Fin ∧ P N ∈ ℤ → ( X P N ) = s ∈ 𝒫 X | s = P N
14 3 12 13 syl2anc ⊢ φ → ( X P N ) = s ∈ 𝒫 X | s = P N
15 8 fveq2i ⊢ S = s ∈ 𝒫 X | s = P N
16 14 15 eqtr4di ⊢ φ → ( X P N ) = S
17 1 grpbn0 ⊢ G ∈ Grp → X ≠ ∅
18 2 17 syl ⊢ φ → X ≠ ∅
19 hasheq0 ⊢ X ∈ Fin → X = 0 ↔ X = ∅
20 3 19 syl ⊢ φ → X = 0 ↔ X = ∅
21 20 necon3bbid ⊢ φ → ¬ X = 0 ↔ X ≠ ∅
22 18 21 mpbird ⊢ φ → ¬ X = 0
23 hashcl ⊢ X ∈ Fin → X ∈ ℕ 0
24 3 23 syl ⊢ φ → X ∈ ℕ 0
25 elnn0 ⊢ X ∈ ℕ 0 ↔ X ∈ ℕ ∨ X = 0
26 24 25 sylib ⊢ φ → X ∈ ℕ ∨ X = 0
27 26 ord ⊢ φ → ¬ X ∈ ℕ → X = 0
28 22 27 mt3d ⊢ φ → X ∈ ℕ
29 dvdsle ⊢ P N ∈ ℤ ∧ X ∈ ℕ → P N ∥ X → P N ≤ X
30 12 28 29 syl2anc ⊢ φ → P N ∥ X → P N ≤ X
31 6 30 mpd ⊢ φ → P N ≤ X
32 11 nnnn0d ⊢ φ → P N ∈ ℕ 0
33 nn0uz ⊢ ℕ 0 = ℤ ≥ 0
34 32 33 eleqtrdi ⊢ φ → P N ∈ ℤ ≥ 0
35 24 nn0zd ⊢ φ → X ∈ ℤ
36 elfz5 ⊢ P N ∈ ℤ ≥ 0 ∧ X ∈ ℤ → P N ∈ 0 … X ↔ P N ≤ X
37 34 35 36 syl2anc ⊢ φ → P N ∈ 0 … X ↔ P N ≤ X
38 31 37 mpbird ⊢ φ → P N ∈ 0 … X
39 bccl2 ⊢ P N ∈ 0 … X → ( X P N ) ∈ ℕ
40 38 39 syl ⊢ φ → ( X P N ) ∈ ℕ
41 16 40 eqeltrrd ⊢ φ → S ∈ ℕ
42 nnuz ⊢ ℕ = ℤ ≥ 1
43 11 42 eleqtrdi ⊢ φ → P N ∈ ℤ ≥ 1
44 elfz5 ⊢ P N ∈ ℤ ≥ 1 ∧ X ∈ ℤ → P N ∈ 1 … X ↔ P N ≤ X
45 43 35 44 syl2anc ⊢ φ → P N ∈ 1 … X ↔ P N ≤ X
46 31 45 mpbird ⊢ φ → P N ∈ 1 … X
47 1zzd ⊢ φ → 1 ∈ ℤ
48 fzsubel ⊢ 1 ∈ ℤ ∧ X ∈ ℤ ∧ P N ∈ ℤ ∧ 1 ∈ ℤ → P N ∈ 1 … X ↔ P N − 1 ∈ 1 − 1 … X − 1
49 47 35 12 47 48 syl22anc ⊢ φ → P N ∈ 1 … X ↔ P N − 1 ∈ 1 − 1 … X − 1
50 46 49 mpbid ⊢ φ → P N − 1 ∈ 1 − 1 … X − 1
51 1m1e0 ⊢ 1 − 1 = 0
52 51 oveq1i ⊢ 1 − 1 … X − 1 = 0 … X − 1
53 50 52 eleqtrdi ⊢ φ → P N − 1 ∈ 0 … X − 1
54 bcp1nk ⊢ P N − 1 ∈ 0 … X − 1 → ( X - 1 + 1 P N - 1 + 1 ) = ( X − 1 P N − 1 ) ⁢ X - 1 + 1 P N - 1 + 1
55 53 54 syl ⊢ φ → ( X - 1 + 1 P N - 1 + 1 ) = ( X − 1 P N − 1 ) ⁢ X - 1 + 1 P N - 1 + 1
56 24 nn0cnd ⊢ φ → X ∈ ℂ
57 ax-1cn ⊢ 1 ∈ ℂ
58 npcan ⊢ X ∈ ℂ ∧ 1 ∈ ℂ → X - 1 + 1 = X
59 56 57 58 sylancl ⊢ φ → X - 1 + 1 = X
60 11 nncnd ⊢ φ → P N ∈ ℂ
61 npcan ⊢ P N ∈ ℂ ∧ 1 ∈ ℂ → P N - 1 + 1 = P N
62 60 57 61 sylancl ⊢ φ → P N - 1 + 1 = P N
63 59 62 oveq12d ⊢ φ → ( X - 1 + 1 P N - 1 + 1 ) = ( X P N )
64 59 62 oveq12d ⊢ φ → X - 1 + 1 P N - 1 + 1 = X P N
65 64 oveq2d ⊢ φ → ( X − 1 P N − 1 ) ⁢ X - 1 + 1 P N - 1 + 1 = ( X − 1 P N − 1 ) ⁢ X P N
66 55 63 65 3eqtr3d ⊢ φ → ( X P N ) = ( X − 1 P N − 1 ) ⁢ X P N
67 66 oveq2d ⊢ φ → P pCnt ( X P N ) = P pCnt ( X − 1 P N − 1 ) ⁢ X P N
68 16 oveq2d ⊢ φ → P pCnt ( X P N ) = P pCnt S
69 bccl2 ⊢ P N − 1 ∈ 0 … X − 1 → ( X − 1 P N − 1 ) ∈ ℕ
70 53 69 syl ⊢ φ → ( X − 1 P N − 1 ) ∈ ℕ
71 70 nnzd ⊢ φ → ( X − 1 P N − 1 ) ∈ ℤ
72 70 nnne0d ⊢ φ → ( X − 1 P N − 1 ) ≠ 0
73 11 nnne0d ⊢ φ → P N ≠ 0
74 dvdsval2 ⊢ P N ∈ ℤ ∧ P N ≠ 0 ∧ X ∈ ℤ → P N ∥ X ↔ X P N ∈ ℤ
75 12 73 35 74 syl3anc ⊢ φ → P N ∥ X ↔ X P N ∈ ℤ
76 6 75 mpbid ⊢ φ → X P N ∈ ℤ
77 28 nnne0d ⊢ φ → X ≠ 0
78 56 60 77 73 divne0d ⊢ φ → X P N ≠ 0
79 pcmul ⊢ P ∈ ℙ ∧ ( X − 1 P N − 1 ) ∈ ℤ ∧ ( X − 1 P N − 1 ) ≠ 0 ∧ X P N ∈ ℤ ∧ X P N ≠ 0 → P pCnt ( X − 1 P N − 1 ) ⁢ X P N = P pCnt ( X − 1 P N − 1 ) + P pCnt X P N
80 4 71 72 76 78 79 syl122anc ⊢ φ → P pCnt ( X − 1 P N − 1 ) ⁢ X P N = P pCnt ( X − 1 P N − 1 ) + P pCnt X P N
81 1cnd ⊢ φ → 1 ∈ ℂ
82 56 60 81 npncand ⊢ φ → X − P N + P N - 1 = X − 1
83 82 oveq1d ⊢ φ → ( X − P N + P N - 1 P N − 1 ) = ( X − 1 P N − 1 )
84 83 oveq2d ⊢ φ → P pCnt ( X − P N + P N - 1 P N − 1 ) = P pCnt ( X − 1 P N − 1 )
85 11 nnred ⊢ φ → P N ∈ ℝ
86 85 ltm1d ⊢ φ → P N − 1 < P N
87 nnm1nn0 ⊢ P N ∈ ℕ → P N − 1 ∈ ℕ 0
88 11 87 syl ⊢ φ → P N − 1 ∈ ℕ 0
89 breq1 ⊢ x = 0 → x < P N ↔ 0 < P N
90 bcxmaslem1 ⊢ x = 0 → ( X - P N + x x) = ( X - P N + 0 0 )
91 90 oveq2d ⊢ x = 0 → P pCnt ( X - P N + x x) = P pCnt ( X - P N + 0 0 )
92 91 eqeq1d ⊢ x = 0 → P pCnt ( X - P N + x x) = 0 ↔ P pCnt ( X - P N + 0 0 ) = 0
93 89 92 imbi12d ⊢ x = 0 → x < P N → P pCnt ( X - P N + x x) = 0 ↔ 0 < P N → P pCnt ( X - P N + 0 0 ) = 0
94 93 imbi2d ⊢ x = 0 → φ → x < P N → P pCnt ( X - P N + x x) = 0 ↔ φ → 0 < P N → P pCnt ( X - P N + 0 0 ) = 0
95 breq1 ⊢ x = n → x < P N ↔ n < P N
96 bcxmaslem1 ⊢ x = n → ( X - P N + x x) = ( X - P N + n n)
97 96 oveq2d ⊢ x = n → P pCnt ( X - P N + x x) = P pCnt ( X - P N + n n)
98 97 eqeq1d ⊢ x = n → P pCnt ( X - P N + x x) = 0 ↔ P pCnt ( X - P N + n n) = 0
99 95 98 imbi12d ⊢ x = n → x < P N → P pCnt ( X - P N + x x) = 0 ↔ n < P N → P pCnt ( X - P N + n n) = 0
100 99 imbi2d ⊢ x = n → φ → x < P N → P pCnt ( X - P N + x x) = 0 ↔ φ → n < P N → P pCnt ( X - P N + n n) = 0
101 breq1 ⊢ x = n + 1 → x < P N ↔ n + 1 < P N
102 bcxmaslem1 ⊢ x = n + 1 → ( X - P N + x x) = ( X − P N + n + 1 n + 1 )
103 102 oveq2d ⊢ x = n + 1 → P pCnt ( X - P N + x x) = P pCnt ( X − P N + n + 1 n + 1 )
104 103 eqeq1d ⊢ x = n + 1 → P pCnt ( X - P N + x x) = 0 ↔ P pCnt ( X − P N + n + 1 n + 1 ) = 0
105 101 104 imbi12d ⊢ x = n + 1 → x < P N → P pCnt ( X - P N + x x) = 0 ↔ n + 1 < P N → P pCnt ( X − P N + n + 1 n + 1 ) = 0
106 105 imbi2d ⊢ x = n + 1 → φ → x < P N → P pCnt ( X - P N + x x) = 0 ↔ φ → n + 1 < P N → P pCnt ( X − P N + n + 1 n + 1 ) = 0
107 breq1 ⊢ x = P N − 1 → x < P N ↔ P N − 1 < P N
108 bcxmaslem1 ⊢ x = P N − 1 → ( X - P N + x x) = ( X − P N + P N - 1 P N − 1 )
109 108 oveq2d ⊢ x = P N − 1 → P pCnt ( X - P N + x x) = P pCnt ( X − P N + P N - 1 P N − 1 )
110 109 eqeq1d ⊢ x = P N − 1 → P pCnt ( X - P N + x x) = 0 ↔ P pCnt ( X − P N + P N - 1 P N − 1 ) = 0
111 107 110 imbi12d ⊢ x = P N − 1 → x < P N → P pCnt ( X - P N + x x) = 0 ↔ P N − 1 < P N → P pCnt ( X − P N + P N - 1 P N − 1 ) = 0
112 111 imbi2d ⊢ x = P N − 1 → φ → x < P N → P pCnt ( X - P N + x x) = 0 ↔ φ → P N − 1 < P N → P pCnt ( X − P N + P N - 1 P N − 1 ) = 0
113 znn0sub ⊢ P N ∈ ℤ ∧ X ∈ ℤ → P N ≤ X ↔ X − P N ∈ ℕ 0
114 12 35 113 syl2anc ⊢ φ → P N ≤ X ↔ X − P N ∈ ℕ 0
115 31 114 mpbid ⊢ φ → X − P N ∈ ℕ 0
116 0nn0 ⊢ 0 ∈ ℕ 0
117 nn0addcl ⊢ X − P N ∈ ℕ 0 ∧ 0 ∈ ℕ 0 → X - P N + 0 ∈ ℕ 0
118 115 116 117 sylancl ⊢ φ → X - P N + 0 ∈ ℕ 0
119 bcn0 ⊢ X - P N + 0 ∈ ℕ 0 → ( X - P N + 0 0 ) = 1
120 118 119 syl ⊢ φ → ( X - P N + 0 0 ) = 1
121 120 oveq2d ⊢ φ → P pCnt ( X - P N + 0 0 ) = P pCnt 1
122 pc1 ⊢ P ∈ ℙ → P pCnt 1 = 0
123 4 122 syl ⊢ φ → P pCnt 1 = 0
124 121 123 eqtrd ⊢ φ → P pCnt ( X - P N + 0 0 ) = 0
125 124 a1d ⊢ φ → 0 < P N → P pCnt ( X - P N + 0 0 ) = 0
126 nn0re ⊢ n ∈ ℕ 0 → n ∈ ℝ
127 126 ad2antrl ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n ∈ ℝ
128 nn0p1nn ⊢ n ∈ ℕ 0 → n + 1 ∈ ℕ
129 128 ad2antrl ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n + 1 ∈ ℕ
130 129 nnred ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n + 1 ∈ ℝ
131 11 adantr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P N ∈ ℕ
132 131 nnred ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P N ∈ ℝ
133 127 ltp1d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n < n + 1
134 simprr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n + 1 < P N
135 127 130 132 133 134 lttrd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n < P N
136 135 expr ⊢ φ ∧ n ∈ ℕ 0 → n + 1 < P N → n < P N
137 136 imim1d ⊢ φ ∧ n ∈ ℕ 0 → n < P N → P pCnt ( X - P N + n n) = 0 → n + 1 < P N → P pCnt ( X - P N + n n) = 0
138 oveq1 ⊢ P pCnt ( X - P N + n n) = 0 → P pCnt ( X - P N + n n) + P pCnt X − P N + n + 1 n + 1 = 0 + P pCnt X − P N + n + 1 n + 1
139 115 adantr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X − P N ∈ ℕ 0
140 139 nn0cnd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X − P N ∈ ℂ
141 nn0cn ⊢ n ∈ ℕ 0 → n ∈ ℂ
142 141 ad2antrl ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n ∈ ℂ
143 1cnd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → 1 ∈ ℂ
144 140 142 143 addassd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X − P N + n + 1 = X − P N + n + 1
145 144 oveq1d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → ( X − P N + n + 1 n + 1 ) = ( X − P N + n + 1 n + 1 )
146 nn0addge2 ⊢ n ∈ ℝ ∧ X − P N ∈ ℕ 0 → n ≤ X - P N + n
147 127 139 146 syl2anc ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n ≤ X - P N + n
148 simprl ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n ∈ ℕ 0
149 148 33 eleqtrdi ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n ∈ ℤ ≥ 0
150 139 148 nn0addcld ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X - P N + n ∈ ℕ 0
151 150 nn0zd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X - P N + n ∈ ℤ
152 elfz5 ⊢ n ∈ ℤ ≥ 0 ∧ X - P N + n ∈ ℤ → n ∈ 0 … X - P N + n ↔ n ≤ X - P N + n
153 149 151 152 syl2anc ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n ∈ 0 … X - P N + n ↔ n ≤ X - P N + n
154 147 153 mpbird ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n ∈ 0 … X - P N + n
155 bcp1nk ⊢ n ∈ 0 … X - P N + n → ( X − P N + n + 1 n + 1 ) = ( X - P N + n n) ⁢ X − P N + n + 1 n + 1
156 154 155 syl ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → ( X − P N + n + 1 n + 1 ) = ( X - P N + n n) ⁢ X − P N + n + 1 n + 1
157 145 156 eqtr3d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → ( X − P N + n + 1 n + 1 ) = ( X - P N + n n) ⁢ X − P N + n + 1 n + 1
158 157 oveq2d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt ( X − P N + n + 1 n + 1 ) = P pCnt ( X - P N + n n) ⁢ X − P N + n + 1 n + 1
159 4 adantr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P ∈ ℙ
160 bccl2 ⊢ n ∈ 0 … X - P N + n → ( X - P N + n n) ∈ ℕ
161 154 160 syl ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → ( X - P N + n n) ∈ ℕ
162 nnq ⊢ ( X - P N + n n) ∈ ℕ → ( X - P N + n n) ∈ ℚ
163 161 162 syl ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → ( X - P N + n n) ∈ ℚ
164 161 nnne0d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → ( X - P N + n n) ≠ 0
165 151 peano2zd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X − P N + n + 1 ∈ ℤ
166 znq ⊢ X − P N + n + 1 ∈ ℤ ∧ n + 1 ∈ ℕ → X − P N + n + 1 n + 1 ∈ ℚ
167 165 129 166 syl2anc ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X − P N + n + 1 n + 1 ∈ ℚ
168 nn0p1nn ⊢ X - P N + n ∈ ℕ 0 → X − P N + n + 1 ∈ ℕ
169 150 168 syl ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X − P N + n + 1 ∈ ℕ
170 nnrp ⊢ X − P N + n + 1 ∈ ℕ → X − P N + n + 1 ∈ ℝ +
171 nnrp ⊢ n + 1 ∈ ℕ → n + 1 ∈ ℝ +
172 rpdivcl ⊢ X − P N + n + 1 ∈ ℝ + ∧ n + 1 ∈ ℝ + → X − P N + n + 1 n + 1 ∈ ℝ +
173 170 171 172 syl2an ⊢ X − P N + n + 1 ∈ ℕ ∧ n + 1 ∈ ℕ → X − P N + n + 1 n + 1 ∈ ℝ +
174 169 129 173 syl2anc ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X − P N + n + 1 n + 1 ∈ ℝ +
175 174 rpne0d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X − P N + n + 1 n + 1 ≠ 0
176 pcqmul ⊢ P ∈ ℙ ∧ ( X - P N + n n) ∈ ℚ ∧ ( X - P N + n n) ≠ 0 ∧ X − P N + n + 1 n + 1 ∈ ℚ ∧ X − P N + n + 1 n + 1 ≠ 0 → P pCnt ( X - P N + n n) ⁢ X − P N + n + 1 n + 1 = P pCnt ( X - P N + n n) + P pCnt X − P N + n + 1 n + 1
177 159 163 164 167 175 176 syl122anc ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt ( X - P N + n n) ⁢ X − P N + n + 1 n + 1 = P pCnt ( X - P N + n n) + P pCnt X − P N + n + 1 n + 1
178 158 177 eqtrd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt ( X − P N + n + 1 n + 1 ) = P pCnt ( X - P N + n n) + P pCnt X − P N + n + 1 n + 1
179 169 nnne0d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X − P N + n + 1 ≠ 0
180 pcdiv ⊢ P ∈ ℙ ∧ X − P N + n + 1 ∈ ℤ ∧ X − P N + n + 1 ≠ 0 ∧ n + 1 ∈ ℕ → P pCnt X − P N + n + 1 n + 1 = P pCnt X − P N + n + 1 − P pCnt n + 1
181 159 165 179 129 180 syl121anc ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt X − P N + n + 1 n + 1 = P pCnt X − P N + n + 1 − P pCnt n + 1
182 129 nncnd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n + 1 ∈ ℂ
183 140 182 144 comraddd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X − P N + n + 1 = n + 1 + X − P N
184 183 oveq2d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt X − P N + n + 1 = P pCnt n + 1 + X − P N
185 simpr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N = 0 → X − P N = 0
186 185 oveq2d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N = 0 → n + 1 + X − P N = n + 1 + 0
187 182 addridd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n + 1 + 0 = n + 1
188 187 adantr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N = 0 → n + 1 + 0 = n + 1
189 186 188 eqtr2d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N = 0 → n + 1 = n + 1 + X − P N
190 189 oveq2d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N = 0 → P pCnt n + 1 = P pCnt n + 1 + X − P N
191 4 ad2antrr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → P ∈ ℙ
192 nnq ⊢ n + 1 ∈ ℕ → n + 1 ∈ ℚ
193 129 192 syl ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n + 1 ∈ ℚ
194 193 adantr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → n + 1 ∈ ℚ
195 139 nn0zd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X − P N ∈ ℤ
196 zq ⊢ X − P N ∈ ℤ → X − P N ∈ ℚ
197 195 196 syl ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → X − P N ∈ ℚ
198 197 adantr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → X − P N ∈ ℚ
199 159 129 pccld ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt n + 1 ∈ ℕ 0
200 199 nn0red ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt n + 1 ∈ ℝ
201 200 adantr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → P pCnt n + 1 ∈ ℝ
202 5 adantr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → N ∈ ℕ 0
203 202 nn0red ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → N ∈ ℝ
204 203 adantr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → N ∈ ℝ
205 simpr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → X − P N ≠ 0
206 205 neneqd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → ¬ X − P N = 0
207 115 ad2antrr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → X − P N ∈ ℕ 0
208 elnn0 ⊢ X − P N ∈ ℕ 0 ↔ X − P N ∈ ℕ ∨ X − P N = 0
209 207 208 sylib ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → X − P N ∈ ℕ ∨ X − P N = 0
210 209 ord ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → ¬ X − P N ∈ ℕ → X − P N = 0
211 206 210 mt3d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → X − P N ∈ ℕ
212 191 211 pccld ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → P pCnt X − P N ∈ ℕ 0
213 212 nn0red ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → P pCnt X − P N ∈ ℝ
214 129 nnzd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → n + 1 ∈ ℤ
215 pcdvdsb ⊢ P ∈ ℙ ∧ n + 1 ∈ ℤ ∧ N ∈ ℕ 0 → N ≤ P pCnt n + 1 ↔ P N ∥ n + 1
216 159 214 202 215 syl3anc ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → N ≤ P pCnt n + 1 ↔ P N ∥ n + 1
217 12 adantr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P N ∈ ℤ
218 dvdsle ⊢ P N ∈ ℤ ∧ n + 1 ∈ ℕ → P N ∥ n + 1 → P N ≤ n + 1
219 217 129 218 syl2anc ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P N ∥ n + 1 → P N ≤ n + 1
220 216 219 sylbid ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → N ≤ P pCnt n + 1 → P N ≤ n + 1
221 203 200 lenltd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → N ≤ P pCnt n + 1 ↔ ¬ P pCnt n + 1 < N
222 132 130 lenltd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P N ≤ n + 1 ↔ ¬ n + 1 < P N
223 220 221 222 3imtr3d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → ¬ P pCnt n + 1 < N → ¬ n + 1 < P N
224 134 223 mt4d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt n + 1 < N
225 224 adantr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → P pCnt n + 1 < N
226 dvdssubr ⊢ P N ∈ ℤ ∧ X ∈ ℤ → P N ∥ X ↔ P N ∥ X − P N
227 12 35 226 syl2anc ⊢ φ → P N ∥ X ↔ P N ∥ X − P N
228 6 227 mpbid ⊢ φ → P N ∥ X − P N
229 228 ad2antrr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → P N ∥ X − P N
230 207 nn0zd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → X − P N ∈ ℤ
231 5 ad2antrr ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → N ∈ ℕ 0
232 pcdvdsb ⊢ P ∈ ℙ ∧ X − P N ∈ ℤ ∧ N ∈ ℕ 0 → N ≤ P pCnt X − P N ↔ P N ∥ X − P N
233 191 230 231 232 syl3anc ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → N ≤ P pCnt X − P N ↔ P N ∥ X − P N
234 229 233 mpbird ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → N ≤ P pCnt X − P N
235 201 204 213 225 234 ltletrd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → P pCnt n + 1 < P pCnt X − P N
236 191 194 198 235 pcadd2 ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N ∧ X − P N ≠ 0 → P pCnt n + 1 = P pCnt n + 1 + X − P N
237 190 236 pm2.61dane ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt n + 1 = P pCnt n + 1 + X − P N
238 184 237 eqtr4d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt X − P N + n + 1 = P pCnt n + 1
239 199 nn0cnd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt n + 1 ∈ ℂ
240 238 239 eqeltrd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt X − P N + n + 1 ∈ ℂ
241 240 238 subeq0bd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt X − P N + n + 1 − P pCnt n + 1 = 0
242 181 241 eqtrd ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt X − P N + n + 1 n + 1 = 0
243 242 oveq2d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → 0 + P pCnt X − P N + n + 1 n + 1 = 0 + 0
244 00id ⊢ 0 + 0 = 0
245 243 244 eqtr2di ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → 0 = 0 + P pCnt X − P N + n + 1 n + 1
246 178 245 eqeq12d ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt ( X − P N + n + 1 n + 1 ) = 0 ↔ P pCnt ( X - P N + n n) + P pCnt X − P N + n + 1 n + 1 = 0 + P pCnt X − P N + n + 1 n + 1
247 138 246 imbitrrid ⊢ φ ∧ n ∈ ℕ 0 ∧ n + 1 < P N → P pCnt ( X - P N + n n) = 0 → P pCnt ( X − P N + n + 1 n + 1 ) = 0
248 137 247 animpimp2impd ⊢ n ∈ ℕ 0 → φ → n < P N → P pCnt ( X - P N + n n) = 0 → φ → n + 1 < P N → P pCnt ( X − P N + n + 1 n + 1 ) = 0
249 94 100 106 112 125 248 nn0ind ⊢ P N − 1 ∈ ℕ 0 → φ → P N − 1 < P N → P pCnt ( X − P N + P N - 1 P N − 1 ) = 0
250 88 249 mpcom ⊢ φ → P N − 1 < P N → P pCnt ( X − P N + P N - 1 P N − 1 ) = 0
251 86 250 mpd ⊢ φ → P pCnt ( X − P N + P N - 1 P N − 1 ) = 0
252 84 251 eqtr3d ⊢ φ → P pCnt ( X − 1 P N − 1 ) = 0
253 pcdiv ⊢ P ∈ ℙ ∧ X ∈ ℤ ∧ X ≠ 0 ∧ P N ∈ ℕ → P pCnt X P N = P pCnt X − P pCnt P N
254 4 35 77 11 253 syl121anc ⊢ φ → P pCnt X P N = P pCnt X − P pCnt P N
255 5 nn0zd ⊢ φ → N ∈ ℤ
256 pcid ⊢ P ∈ ℙ ∧ N ∈ ℤ → P pCnt P N = N
257 4 255 256 syl2anc ⊢ φ → P pCnt P N = N
258 257 oveq2d ⊢ φ → P pCnt X − P pCnt P N = P pCnt X − N
259 254 258 eqtrd ⊢ φ → P pCnt X P N = P pCnt X − N
260 252 259 oveq12d ⊢ φ → P pCnt ( X − 1 P N − 1 ) + P pCnt X P N = 0 + P pCnt X - N
261 4 28 pccld ⊢ φ → P pCnt X ∈ ℕ 0
262 261 nn0zd ⊢ φ → P pCnt X ∈ ℤ
263 262 255 zsubcld ⊢ φ → P pCnt X − N ∈ ℤ
264 263 zcnd ⊢ φ → P pCnt X − N ∈ ℂ
265 264 addlidd ⊢ φ → 0 + P pCnt X - N = P pCnt X − N
266 80 260 265 3eqtrd ⊢ φ → P pCnt ( X − 1 P N − 1 ) ⁢ X P N = P pCnt X − N
267 67 68 266 3eqtr3d ⊢ φ → P pCnt S = P pCnt X − N
268 41 267 jca ⊢ φ → S ∈ ℕ ∧ P pCnt S = P pCnt X − N