Step | Hyp | Ref
| Expression |
1 | | sylow1.f |
. . . . 5
β’ (π β π β Fin) |
2 | | sylow1.p |
. . . . . . . 8
β’ (π β π β β) |
3 | | prmnn 16607 |
. . . . . . . 8
β’ (π β β β π β
β) |
4 | 2, 3 | syl 17 |
. . . . . . 7
β’ (π β π β β) |
5 | | sylow1.n |
. . . . . . 7
β’ (π β π β
β0) |
6 | 4, 5 | nnexpcld 14204 |
. . . . . 6
β’ (π β (πβπ) β β) |
7 | 6 | nnzd 12581 |
. . . . 5
β’ (π β (πβπ) β β€) |
8 | | hashbc 14408 |
. . . . 5
β’ ((π β Fin β§ (πβπ) β β€) β
((β―βπ)C(πβπ)) = (β―β{π β π« π β£ (β―βπ ) = (πβπ)})) |
9 | 1, 7, 8 | syl2anc 584 |
. . . 4
β’ (π β ((β―βπ)C(πβπ)) = (β―β{π β π« π β£ (β―βπ ) = (πβπ)})) |
10 | | sylow1lem.s |
. . . . 5
β’ π = {π β π« π β£ (β―βπ ) = (πβπ)} |
11 | 10 | fveq2i 6891 |
. . . 4
β’
(β―βπ) =
(β―β{π β
π« π β£
(β―βπ ) = (πβπ)}) |
12 | 9, 11 | eqtr4di 2790 |
. . 3
β’ (π β ((β―βπ)C(πβπ)) = (β―βπ)) |
13 | | sylow1.d |
. . . . . 6
β’ (π β (πβπ) β₯ (β―βπ)) |
14 | | sylow1.g |
. . . . . . . . . 10
β’ (π β πΊ β Grp) |
15 | | sylow1.x |
. . . . . . . . . . 11
β’ π = (BaseβπΊ) |
16 | 15 | grpbn0 18847 |
. . . . . . . . . 10
β’ (πΊ β Grp β π β β
) |
17 | 14, 16 | syl 17 |
. . . . . . . . 9
β’ (π β π β β
) |
18 | | hasheq0 14319 |
. . . . . . . . . . 11
β’ (π β Fin β
((β―βπ) = 0
β π =
β
)) |
19 | 1, 18 | syl 17 |
. . . . . . . . . 10
β’ (π β ((β―βπ) = 0 β π = β
)) |
20 | 19 | necon3bbid 2978 |
. . . . . . . . 9
β’ (π β (Β¬
(β―βπ) = 0
β π β
β
)) |
21 | 17, 20 | mpbird 256 |
. . . . . . . 8
β’ (π β Β¬ (β―βπ) = 0) |
22 | | hashcl 14312 |
. . . . . . . . . . 11
β’ (π β Fin β
(β―βπ) β
β0) |
23 | 1, 22 | syl 17 |
. . . . . . . . . 10
β’ (π β (β―βπ) β
β0) |
24 | | elnn0 12470 |
. . . . . . . . . 10
β’
((β―βπ)
β β0 β ((β―βπ) β β β¨ (β―βπ) = 0)) |
25 | 23, 24 | sylib 217 |
. . . . . . . . 9
β’ (π β ((β―βπ) β β β¨
(β―βπ) =
0)) |
26 | 25 | ord 862 |
. . . . . . . 8
β’ (π β (Β¬
(β―βπ) β
β β (β―βπ) = 0)) |
27 | 21, 26 | mt3d 148 |
. . . . . . 7
β’ (π β (β―βπ) β
β) |
28 | | dvdsle 16249 |
. . . . . . 7
β’ (((πβπ) β β€ β§ (β―βπ) β β) β ((πβπ) β₯ (β―βπ) β (πβπ) β€ (β―βπ))) |
29 | 7, 27, 28 | syl2anc 584 |
. . . . . 6
β’ (π β ((πβπ) β₯ (β―βπ) β (πβπ) β€ (β―βπ))) |
30 | 13, 29 | mpd 15 |
. . . . 5
β’ (π β (πβπ) β€ (β―βπ)) |
31 | 6 | nnnn0d 12528 |
. . . . . . 7
β’ (π β (πβπ) β
β0) |
32 | | nn0uz 12860 |
. . . . . . 7
β’
β0 = (β€β₯β0) |
33 | 31, 32 | eleqtrdi 2843 |
. . . . . 6
β’ (π β (πβπ) β
(β€β₯β0)) |
34 | 23 | nn0zd 12580 |
. . . . . 6
β’ (π β (β―βπ) β
β€) |
35 | | elfz5 13489 |
. . . . . 6
β’ (((πβπ) β (β€β₯β0)
β§ (β―βπ)
β β€) β ((πβπ) β (0...(β―βπ)) β (πβπ) β€ (β―βπ))) |
36 | 33, 34, 35 | syl2anc 584 |
. . . . 5
β’ (π β ((πβπ) β (0...(β―βπ)) β (πβπ) β€ (β―βπ))) |
37 | 30, 36 | mpbird 256 |
. . . 4
β’ (π β (πβπ) β (0...(β―βπ))) |
38 | | bccl2 14279 |
. . . 4
β’ ((πβπ) β (0...(β―βπ)) β ((β―βπ)C(πβπ)) β β) |
39 | 37, 38 | syl 17 |
. . 3
β’ (π β ((β―βπ)C(πβπ)) β β) |
40 | 12, 39 | eqeltrrd 2834 |
. 2
β’ (π β (β―βπ) β
β) |
41 | | nnuz 12861 |
. . . . . . . . . . 11
β’ β =
(β€β₯β1) |
42 | 6, 41 | eleqtrdi 2843 |
. . . . . . . . . 10
β’ (π β (πβπ) β
(β€β₯β1)) |
43 | | elfz5 13489 |
. . . . . . . . . 10
β’ (((πβπ) β (β€β₯β1)
β§ (β―βπ)
β β€) β ((πβπ) β (1...(β―βπ)) β (πβπ) β€ (β―βπ))) |
44 | 42, 34, 43 | syl2anc 584 |
. . . . . . . . 9
β’ (π β ((πβπ) β (1...(β―βπ)) β (πβπ) β€ (β―βπ))) |
45 | 30, 44 | mpbird 256 |
. . . . . . . 8
β’ (π β (πβπ) β (1...(β―βπ))) |
46 | | 1zzd 12589 |
. . . . . . . . 9
β’ (π β 1 β
β€) |
47 | | fzsubel 13533 |
. . . . . . . . 9
β’ (((1
β β€ β§ (β―βπ) β β€) β§ ((πβπ) β β€ β§ 1 β β€))
β ((πβπ) β
(1...(β―βπ))
β ((πβπ) β 1) β ((1 β
1)...((β―βπ)
β 1)))) |
48 | 46, 34, 7, 46, 47 | syl22anc 837 |
. . . . . . . 8
β’ (π β ((πβπ) β (1...(β―βπ)) β ((πβπ) β 1) β ((1 β
1)...((β―βπ)
β 1)))) |
49 | 45, 48 | mpbid 231 |
. . . . . . 7
β’ (π β ((πβπ) β 1) β ((1 β
1)...((β―βπ)
β 1))) |
50 | | 1m1e0 12280 |
. . . . . . . 8
β’ (1
β 1) = 0 |
51 | 50 | oveq1i 7415 |
. . . . . . 7
β’ ((1
β 1)...((β―βπ) β 1)) = (0...((β―βπ) β 1)) |
52 | 49, 51 | eleqtrdi 2843 |
. . . . . 6
β’ (π β ((πβπ) β 1) β
(0...((β―βπ)
β 1))) |
53 | | bcp1nk 14273 |
. . . . . 6
β’ (((πβπ) β 1) β
(0...((β―βπ)
β 1)) β ((((β―βπ) β 1) + 1)C(((πβπ) β 1) + 1)) = ((((β―βπ) β 1)C((πβπ) β 1)) Β·
((((β―βπ)
β 1) + 1) / (((πβπ) β 1) + 1)))) |
54 | 52, 53 | syl 17 |
. . . . 5
β’ (π β ((((β―βπ) β 1) + 1)C(((πβπ) β 1) + 1)) = ((((β―βπ) β 1)C((πβπ) β 1)) Β·
((((β―βπ)
β 1) + 1) / (((πβπ) β 1) + 1)))) |
55 | 23 | nn0cnd 12530 |
. . . . . . 7
β’ (π β (β―βπ) β
β) |
56 | | ax-1cn 11164 |
. . . . . . 7
β’ 1 β
β |
57 | | npcan 11465 |
. . . . . . 7
β’
(((β―βπ)
β β β§ 1 β β) β (((β―βπ) β 1) + 1) =
(β―βπ)) |
58 | 55, 56, 57 | sylancl 586 |
. . . . . 6
β’ (π β (((β―βπ) β 1) + 1) =
(β―βπ)) |
59 | 6 | nncnd 12224 |
. . . . . . 7
β’ (π β (πβπ) β β) |
60 | | npcan 11465 |
. . . . . . 7
β’ (((πβπ) β β β§ 1 β β)
β (((πβπ) β 1) + 1) = (πβπ)) |
61 | 59, 56, 60 | sylancl 586 |
. . . . . 6
β’ (π β (((πβπ) β 1) + 1) = (πβπ)) |
62 | 58, 61 | oveq12d 7423 |
. . . . 5
β’ (π β ((((β―βπ) β 1) + 1)C(((πβπ) β 1) + 1)) = ((β―βπ)C(πβπ))) |
63 | 58, 61 | oveq12d 7423 |
. . . . . 6
β’ (π β ((((β―βπ) β 1) + 1) / (((πβπ) β 1) + 1)) = ((β―βπ) / (πβπ))) |
64 | 63 | oveq2d 7421 |
. . . . 5
β’ (π β ((((β―βπ) β 1)C((πβπ) β 1)) Β·
((((β―βπ)
β 1) + 1) / (((πβπ) β 1) + 1))) =
((((β―βπ)
β 1)C((πβπ) β 1)) Β·
((β―βπ) / (πβπ)))) |
65 | 54, 62, 64 | 3eqtr3d 2780 |
. . . 4
β’ (π β ((β―βπ)C(πβπ)) = ((((β―βπ) β 1)C((πβπ) β 1)) Β· ((β―βπ) / (πβπ)))) |
66 | 65 | oveq2d 7421 |
. . 3
β’ (π β (π pCnt ((β―βπ)C(πβπ))) = (π pCnt ((((β―βπ) β 1)C((πβπ) β 1)) Β· ((β―βπ) / (πβπ))))) |
67 | 12 | oveq2d 7421 |
. . 3
β’ (π β (π pCnt ((β―βπ)C(πβπ))) = (π pCnt (β―βπ))) |
68 | | bccl2 14279 |
. . . . . . 7
β’ (((πβπ) β 1) β
(0...((β―βπ)
β 1)) β (((β―βπ) β 1)C((πβπ) β 1)) β
β) |
69 | 52, 68 | syl 17 |
. . . . . 6
β’ (π β (((β―βπ) β 1)C((πβπ) β 1)) β
β) |
70 | 69 | nnzd 12581 |
. . . . 5
β’ (π β (((β―βπ) β 1)C((πβπ) β 1)) β
β€) |
71 | 69 | nnne0d 12258 |
. . . . 5
β’ (π β (((β―βπ) β 1)C((πβπ) β 1)) β 0) |
72 | 6 | nnne0d 12258 |
. . . . . . 7
β’ (π β (πβπ) β 0) |
73 | | dvdsval2 16196 |
. . . . . . 7
β’ (((πβπ) β β€ β§ (πβπ) β 0 β§ (β―βπ) β β€) β ((πβπ) β₯ (β―βπ) β ((β―βπ) / (πβπ)) β β€)) |
74 | 7, 72, 34, 73 | syl3anc 1371 |
. . . . . 6
β’ (π β ((πβπ) β₯ (β―βπ) β ((β―βπ) / (πβπ)) β β€)) |
75 | 13, 74 | mpbid 231 |
. . . . 5
β’ (π β ((β―βπ) / (πβπ)) β β€) |
76 | 27 | nnne0d 12258 |
. . . . . 6
β’ (π β (β―βπ) β 0) |
77 | 55, 59, 76, 72 | divne0d 12002 |
. . . . 5
β’ (π β ((β―βπ) / (πβπ)) β 0) |
78 | | pcmul 16780 |
. . . . 5
β’ ((π β β β§
((((β―βπ)
β 1)C((πβπ) β 1)) β β€
β§ (((β―βπ)
β 1)C((πβπ) β 1)) β 0) β§
(((β―βπ) /
(πβπ)) β β€ β§
((β―βπ) / (πβπ)) β 0)) β (π pCnt ((((β―βπ) β 1)C((πβπ) β 1)) Β· ((β―βπ) / (πβπ)))) = ((π pCnt (((β―βπ) β 1)C((πβπ) β 1))) + (π pCnt ((β―βπ) / (πβπ))))) |
79 | 2, 70, 71, 75, 77, 78 | syl122anc 1379 |
. . . 4
β’ (π β (π pCnt ((((β―βπ) β 1)C((πβπ) β 1)) Β· ((β―βπ) / (πβπ)))) = ((π pCnt (((β―βπ) β 1)C((πβπ) β 1))) + (π pCnt ((β―βπ) / (πβπ))))) |
80 | | 1cnd 11205 |
. . . . . . . . 9
β’ (π β 1 β
β) |
81 | 55, 59, 80 | npncand 11591 |
. . . . . . . 8
β’ (π β (((β―βπ) β (πβπ)) + ((πβπ) β 1)) = ((β―βπ) β 1)) |
82 | 81 | oveq1d 7420 |
. . . . . . 7
β’ (π β ((((β―βπ) β (πβπ)) + ((πβπ) β 1))C((πβπ) β 1)) = (((β―βπ) β 1)C((πβπ) β 1))) |
83 | 82 | oveq2d 7421 |
. . . . . 6
β’ (π β (π pCnt ((((β―βπ) β (πβπ)) + ((πβπ) β 1))C((πβπ) β 1))) = (π pCnt (((β―βπ) β 1)C((πβπ) β 1)))) |
84 | 6 | nnred 12223 |
. . . . . . . 8
β’ (π β (πβπ) β β) |
85 | 84 | ltm1d 12142 |
. . . . . . 7
β’ (π β ((πβπ) β 1) < (πβπ)) |
86 | | nnm1nn0 12509 |
. . . . . . . . 9
β’ ((πβπ) β β β ((πβπ) β 1) β
β0) |
87 | 6, 86 | syl 17 |
. . . . . . . 8
β’ (π β ((πβπ) β 1) β
β0) |
88 | | breq1 5150 |
. . . . . . . . . . 11
β’ (π₯ = 0 β (π₯ < (πβπ) β 0 < (πβπ))) |
89 | | bcxmaslem1 15776 |
. . . . . . . . . . . . 13
β’ (π₯ = 0 β
((((β―βπ)
β (πβπ)) + π₯)Cπ₯) = ((((β―βπ) β (πβπ)) + 0)C0)) |
90 | 89 | oveq2d 7421 |
. . . . . . . . . . . 12
β’ (π₯ = 0 β (π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = (π pCnt ((((β―βπ) β (πβπ)) + 0)C0))) |
91 | 90 | eqeq1d 2734 |
. . . . . . . . . . 11
β’ (π₯ = 0 β ((π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = 0 β (π pCnt ((((β―βπ) β (πβπ)) + 0)C0)) = 0)) |
92 | 88, 91 | imbi12d 344 |
. . . . . . . . . 10
β’ (π₯ = 0 β ((π₯ < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = 0) β (0 < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + 0)C0)) = 0))) |
93 | 92 | imbi2d 340 |
. . . . . . . . 9
β’ (π₯ = 0 β ((π β (π₯ < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = 0)) β (π β (0 < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + 0)C0)) = 0)))) |
94 | | breq1 5150 |
. . . . . . . . . . 11
β’ (π₯ = π β (π₯ < (πβπ) β π < (πβπ))) |
95 | | bcxmaslem1 15776 |
. . . . . . . . . . . . 13
β’ (π₯ = π β ((((β―βπ) β (πβπ)) + π₯)Cπ₯) = ((((β―βπ) β (πβπ)) + π)Cπ)) |
96 | 95 | oveq2d 7421 |
. . . . . . . . . . . 12
β’ (π₯ = π β (π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = (π pCnt ((((β―βπ) β (πβπ)) + π)Cπ))) |
97 | 96 | eqeq1d 2734 |
. . . . . . . . . . 11
β’ (π₯ = π β ((π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = 0 β (π pCnt ((((β―βπ) β (πβπ)) + π)Cπ)) = 0)) |
98 | 94, 97 | imbi12d 344 |
. . . . . . . . . 10
β’ (π₯ = π β ((π₯ < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = 0) β (π < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + π)Cπ)) = 0))) |
99 | 98 | imbi2d 340 |
. . . . . . . . 9
β’ (π₯ = π β ((π β (π₯ < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = 0)) β (π β (π < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + π)Cπ)) = 0)))) |
100 | | breq1 5150 |
. . . . . . . . . . 11
β’ (π₯ = (π + 1) β (π₯ < (πβπ) β (π + 1) < (πβπ))) |
101 | | bcxmaslem1 15776 |
. . . . . . . . . . . . 13
β’ (π₯ = (π + 1) β ((((β―βπ) β (πβπ)) + π₯)Cπ₯) = ((((β―βπ) β (πβπ)) + (π + 1))C(π + 1))) |
102 | 101 | oveq2d 7421 |
. . . . . . . . . . . 12
β’ (π₯ = (π + 1) β (π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = (π pCnt ((((β―βπ) β (πβπ)) + (π + 1))C(π + 1)))) |
103 | 102 | eqeq1d 2734 |
. . . . . . . . . . 11
β’ (π₯ = (π + 1) β ((π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = 0 β (π pCnt ((((β―βπ) β (πβπ)) + (π + 1))C(π + 1))) = 0)) |
104 | 100, 103 | imbi12d 344 |
. . . . . . . . . 10
β’ (π₯ = (π + 1) β ((π₯ < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = 0) β ((π + 1) < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + (π + 1))C(π + 1))) = 0))) |
105 | 104 | imbi2d 340 |
. . . . . . . . 9
β’ (π₯ = (π + 1) β ((π β (π₯ < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = 0)) β (π β ((π + 1) < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + (π + 1))C(π + 1))) = 0)))) |
106 | | breq1 5150 |
. . . . . . . . . . 11
β’ (π₯ = ((πβπ) β 1) β (π₯ < (πβπ) β ((πβπ) β 1) < (πβπ))) |
107 | | bcxmaslem1 15776 |
. . . . . . . . . . . . 13
β’ (π₯ = ((πβπ) β 1) β ((((β―βπ) β (πβπ)) + π₯)Cπ₯) = ((((β―βπ) β (πβπ)) + ((πβπ) β 1))C((πβπ) β 1))) |
108 | 107 | oveq2d 7421 |
. . . . . . . . . . . 12
β’ (π₯ = ((πβπ) β 1) β (π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = (π pCnt ((((β―βπ) β (πβπ)) + ((πβπ) β 1))C((πβπ) β 1)))) |
109 | 108 | eqeq1d 2734 |
. . . . . . . . . . 11
β’ (π₯ = ((πβπ) β 1) β ((π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = 0 β (π pCnt ((((β―βπ) β (πβπ)) + ((πβπ) β 1))C((πβπ) β 1))) = 0)) |
110 | 106, 109 | imbi12d 344 |
. . . . . . . . . 10
β’ (π₯ = ((πβπ) β 1) β ((π₯ < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = 0) β (((πβπ) β 1) < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + ((πβπ) β 1))C((πβπ) β 1))) = 0))) |
111 | 110 | imbi2d 340 |
. . . . . . . . 9
β’ (π₯ = ((πβπ) β 1) β ((π β (π₯ < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + π₯)Cπ₯)) = 0)) β (π β (((πβπ) β 1) < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + ((πβπ) β 1))C((πβπ) β 1))) = 0)))) |
112 | | znn0sub 12605 |
. . . . . . . . . . . . . . . 16
β’ (((πβπ) β β€ β§ (β―βπ) β β€) β ((πβπ) β€ (β―βπ) β ((β―βπ) β (πβπ)) β
β0)) |
113 | 7, 34, 112 | syl2anc 584 |
. . . . . . . . . . . . . . 15
β’ (π β ((πβπ) β€ (β―βπ) β ((β―βπ) β (πβπ)) β
β0)) |
114 | 30, 113 | mpbid 231 |
. . . . . . . . . . . . . 14
β’ (π β ((β―βπ) β (πβπ)) β
β0) |
115 | | 0nn0 12483 |
. . . . . . . . . . . . . 14
β’ 0 β
β0 |
116 | | nn0addcl 12503 |
. . . . . . . . . . . . . 14
β’
((((β―βπ)
β (πβπ)) β β0
β§ 0 β β0) β (((β―βπ) β (πβπ)) + 0) β
β0) |
117 | 114, 115,
116 | sylancl 586 |
. . . . . . . . . . . . 13
β’ (π β (((β―βπ) β (πβπ)) + 0) β
β0) |
118 | | bcn0 14266 |
. . . . . . . . . . . . 13
β’
((((β―βπ)
β (πβπ)) + 0) β
β0 β ((((β―βπ) β (πβπ)) + 0)C0) = 1) |
119 | 117, 118 | syl 17 |
. . . . . . . . . . . 12
β’ (π β ((((β―βπ) β (πβπ)) + 0)C0) = 1) |
120 | 119 | oveq2d 7421 |
. . . . . . . . . . 11
β’ (π β (π pCnt ((((β―βπ) β (πβπ)) + 0)C0)) = (π pCnt 1)) |
121 | | pc1 16784 |
. . . . . . . . . . . 12
β’ (π β β β (π pCnt 1) = 0) |
122 | 2, 121 | syl 17 |
. . . . . . . . . . 11
β’ (π β (π pCnt 1) = 0) |
123 | 120, 122 | eqtrd 2772 |
. . . . . . . . . 10
β’ (π β (π pCnt ((((β―βπ) β (πβπ)) + 0)C0)) = 0) |
124 | 123 | a1d 25 |
. . . . . . . . 9
β’ (π β (0 < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + 0)C0)) = 0)) |
125 | | nn0re 12477 |
. . . . . . . . . . . . . 14
β’ (π β β0
β π β
β) |
126 | 125 | ad2antrl 726 |
. . . . . . . . . . . . 13
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β π β β) |
127 | | nn0p1nn 12507 |
. . . . . . . . . . . . . . 15
β’ (π β β0
β (π + 1) β
β) |
128 | 127 | ad2antrl 726 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π + 1) β β) |
129 | 128 | nnred 12223 |
. . . . . . . . . . . . 13
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π + 1) β β) |
130 | 6 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (πβπ) β β) |
131 | 130 | nnred 12223 |
. . . . . . . . . . . . 13
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (πβπ) β β) |
132 | 126 | ltp1d 12140 |
. . . . . . . . . . . . 13
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β π < (π + 1)) |
133 | | simprr 771 |
. . . . . . . . . . . . 13
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π + 1) < (πβπ)) |
134 | 126, 129,
131, 132, 133 | lttrd 11371 |
. . . . . . . . . . . 12
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β π < (πβπ)) |
135 | 134 | expr 457 |
. . . . . . . . . . 11
β’ ((π β§ π β β0) β ((π + 1) < (πβπ) β π < (πβπ))) |
136 | 135 | imim1d 82 |
. . . . . . . . . 10
β’ ((π β§ π β β0) β ((π < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + π)Cπ)) = 0) β ((π + 1) < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + π)Cπ)) = 0))) |
137 | | oveq1 7412 |
. . . . . . . . . . 11
β’ ((π pCnt ((((β―βπ) β (πβπ)) + π)Cπ)) = 0 β ((π pCnt ((((β―βπ) β (πβπ)) + π)Cπ)) + (π pCnt (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)))) = (0 + (π pCnt (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1))))) |
138 | 114 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((β―βπ) β (πβπ)) β
β0) |
139 | 138 | nn0cnd 12530 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((β―βπ) β (πβπ)) β β) |
140 | | nn0cn 12478 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β0
β π β
β) |
141 | 140 | ad2antrl 726 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β π β β) |
142 | | 1cnd 11205 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β 1 β
β) |
143 | 139, 141,
142 | addassd 11232 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((((β―βπ) β (πβπ)) + π) + 1) = (((β―βπ) β (πβπ)) + (π + 1))) |
144 | 143 | oveq1d 7420 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (((((β―βπ) β (πβπ)) + π) + 1)C(π + 1)) = ((((β―βπ) β (πβπ)) + (π + 1))C(π + 1))) |
145 | | nn0addge2 12515 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β β β§
((β―βπ) β
(πβπ)) β β0) β π β€ (((β―βπ) β (πβπ)) + π)) |
146 | 126, 138,
145 | syl2anc 584 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β π β€ (((β―βπ) β (πβπ)) + π)) |
147 | | simprl 769 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β π β β0) |
148 | 147, 32 | eleqtrdi 2843 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β π β
(β€β₯β0)) |
149 | 138, 147 | nn0addcld 12532 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (((β―βπ) β (πβπ)) + π) β
β0) |
150 | 149 | nn0zd 12580 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (((β―βπ) β (πβπ)) + π) β β€) |
151 | | elfz5 13489 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β
(β€β₯β0) β§ (((β―βπ) β (πβπ)) + π) β β€) β (π β (0...(((β―βπ) β (πβπ)) + π)) β π β€ (((β―βπ) β (πβπ)) + π))) |
152 | 148, 150,
151 | syl2anc 584 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π β (0...(((β―βπ) β (πβπ)) + π)) β π β€ (((β―βπ) β (πβπ)) + π))) |
153 | 146, 152 | mpbird 256 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β π β (0...(((β―βπ) β (πβπ)) + π))) |
154 | | bcp1nk 14273 |
. . . . . . . . . . . . . . . 16
β’ (π β
(0...(((β―βπ)
β (πβπ)) + π)) β (((((β―βπ) β (πβπ)) + π) + 1)C(π + 1)) = (((((β―βπ) β (πβπ)) + π)Cπ) Β· (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)))) |
155 | 153, 154 | syl 17 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (((((β―βπ) β (πβπ)) + π) + 1)C(π + 1)) = (((((β―βπ) β (πβπ)) + π)Cπ) Β· (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)))) |
156 | 144, 155 | eqtr3d 2774 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((((β―βπ) β (πβπ)) + (π + 1))C(π + 1)) = (((((β―βπ) β (πβπ)) + π)Cπ) Β· (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)))) |
157 | 156 | oveq2d 7421 |
. . . . . . . . . . . . 13
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π pCnt ((((β―βπ) β (πβπ)) + (π + 1))C(π + 1))) = (π pCnt (((((β―βπ) β (πβπ)) + π)Cπ) Β· (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1))))) |
158 | 2 | adantr 481 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β π β β) |
159 | | bccl2 14279 |
. . . . . . . . . . . . . . . 16
β’ (π β
(0...(((β―βπ)
β (πβπ)) + π)) β ((((β―βπ) β (πβπ)) + π)Cπ) β β) |
160 | 153, 159 | syl 17 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((((β―βπ) β (πβπ)) + π)Cπ) β β) |
161 | | nnq 12942 |
. . . . . . . . . . . . . . 15
β’
(((((β―βπ) β (πβπ)) + π)Cπ) β β β
((((β―βπ)
β (πβπ)) + π)Cπ) β β) |
162 | 160, 161 | syl 17 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((((β―βπ) β (πβπ)) + π)Cπ) β β) |
163 | 160 | nnne0d 12258 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((((β―βπ) β (πβπ)) + π)Cπ) β 0) |
164 | 150 | peano2zd 12665 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((((β―βπ) β (πβπ)) + π) + 1) β β€) |
165 | | znq 12932 |
. . . . . . . . . . . . . . 15
β’
((((((β―βπ) β (πβπ)) + π) + 1) β β€ β§ (π + 1) β β) β
(((((β―βπ)
β (πβπ)) + π) + 1) / (π + 1)) β β) |
166 | 164, 128,
165 | syl2anc 584 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)) β β) |
167 | | nn0p1nn 12507 |
. . . . . . . . . . . . . . . . 17
β’
((((β―βπ)
β (πβπ)) + π) β β0 β
((((β―βπ)
β (πβπ)) + π) + 1) β β) |
168 | 149, 167 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((((β―βπ) β (πβπ)) + π) + 1) β β) |
169 | | nnrp 12981 |
. . . . . . . . . . . . . . . . 17
β’
(((((β―βπ) β (πβπ)) + π) + 1) β β β
((((β―βπ)
β (πβπ)) + π) + 1) β
β+) |
170 | | nnrp 12981 |
. . . . . . . . . . . . . . . . 17
β’ ((π + 1) β β β
(π + 1) β
β+) |
171 | | rpdivcl 12995 |
. . . . . . . . . . . . . . . . 17
β’
((((((β―βπ) β (πβπ)) + π) + 1) β β+ β§
(π + 1) β
β+) β (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)) β
β+) |
172 | 169, 170,
171 | syl2an 596 |
. . . . . . . . . . . . . . . 16
β’
((((((β―βπ) β (πβπ)) + π) + 1) β β β§ (π + 1) β β) β
(((((β―βπ)
β (πβπ)) + π) + 1) / (π + 1)) β
β+) |
173 | 168, 128,
172 | syl2anc 584 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)) β
β+) |
174 | 173 | rpne0d 13017 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)) β 0) |
175 | | pcqmul 16782 |
. . . . . . . . . . . . . 14
β’ ((π β β β§
(((((β―βπ)
β (πβπ)) + π)Cπ) β β β§
((((β―βπ)
β (πβπ)) + π)Cπ) β 0) β§ ((((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)) β β β§
(((((β―βπ)
β (πβπ)) + π) + 1) / (π + 1)) β 0)) β (π pCnt (((((β―βπ) β (πβπ)) + π)Cπ) Β· (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)))) = ((π pCnt ((((β―βπ) β (πβπ)) + π)Cπ)) + (π pCnt (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1))))) |
176 | 158, 162,
163, 166, 174, 175 | syl122anc 1379 |
. . . . . . . . . . . . 13
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π pCnt (((((β―βπ) β (πβπ)) + π)Cπ) Β· (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)))) = ((π pCnt ((((β―βπ) β (πβπ)) + π)Cπ)) + (π pCnt (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1))))) |
177 | 157, 176 | eqtrd 2772 |
. . . . . . . . . . . 12
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π pCnt ((((β―βπ) β (πβπ)) + (π + 1))C(π + 1))) = ((π pCnt ((((β―βπ) β (πβπ)) + π)Cπ)) + (π pCnt (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1))))) |
178 | 168 | nnne0d 12258 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((((β―βπ) β (πβπ)) + π) + 1) β 0) |
179 | | pcdiv 16781 |
. . . . . . . . . . . . . . . 16
β’ ((π β β β§
(((((β―βπ)
β (πβπ)) + π) + 1) β β€ β§
((((β―βπ)
β (πβπ)) + π) + 1) β 0) β§ (π + 1) β β) β (π pCnt (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1))) = ((π pCnt ((((β―βπ) β (πβπ)) + π) + 1)) β (π pCnt (π + 1)))) |
180 | 158, 164,
178, 128, 179 | syl121anc 1375 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π pCnt (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1))) = ((π pCnt ((((β―βπ) β (πβπ)) + π) + 1)) β (π pCnt (π + 1)))) |
181 | 128 | nncnd 12224 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π + 1) β β) |
182 | 139, 181,
143 | comraddd 11424 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((((β―βπ) β (πβπ)) + π) + 1) = ((π + 1) + ((β―βπ) β (πβπ)))) |
183 | 182 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π pCnt ((((β―βπ) β (πβπ)) + π) + 1)) = (π pCnt ((π + 1) + ((β―βπ) β (πβπ))))) |
184 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) = 0) β ((β―βπ) β (πβπ)) = 0) |
185 | 184 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) = 0) β ((π + 1) + ((β―βπ) β (πβπ))) = ((π + 1) + 0)) |
186 | 181 | addridd 11410 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((π + 1) + 0) = (π + 1)) |
187 | 186 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) = 0) β ((π + 1) + 0) = (π + 1)) |
188 | 185, 187 | eqtr2d 2773 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) = 0) β (π + 1) = ((π + 1) + ((β―βπ) β (πβπ)))) |
189 | 188 | oveq2d 7421 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) = 0) β (π pCnt (π + 1)) = (π pCnt ((π + 1) + ((β―βπ) β (πβπ))))) |
190 | 2 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β π β β) |
191 | | nnq 12942 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π + 1) β β β
(π + 1) β
β) |
192 | 128, 191 | syl 17 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π + 1) β β) |
193 | 192 | adantr 481 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β (π + 1) β β) |
194 | 138 | nn0zd 12580 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((β―βπ) β (πβπ)) β β€) |
195 | | zq 12934 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(((β―βπ)
β (πβπ)) β β€ β
((β―βπ) β
(πβπ)) β β) |
196 | 194, 195 | syl 17 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((β―βπ) β (πβπ)) β β) |
197 | 196 | adantr 481 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β ((β―βπ) β (πβπ)) β β) |
198 | 158, 128 | pccld 16779 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π pCnt (π + 1)) β
β0) |
199 | 198 | nn0red 12529 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π pCnt (π + 1)) β β) |
200 | 199 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β (π pCnt (π + 1)) β β) |
201 | 5 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β π β
β0) |
202 | 201 | nn0red 12529 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β π β β) |
203 | 202 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β π β β) |
204 | | simpr 485 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β ((β―βπ) β (πβπ)) β 0) |
205 | 204 | neneqd 2945 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β Β¬
((β―βπ) β
(πβπ)) = 0) |
206 | 114 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β ((β―βπ) β (πβπ)) β
β0) |
207 | | elnn0 12470 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’
(((β―βπ)
β (πβπ)) β β0
β (((β―βπ)
β (πβπ)) β β β¨
((β―βπ) β
(πβπ)) = 0)) |
208 | 206, 207 | sylib 217 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β (((β―βπ) β (πβπ)) β β β¨ ((β―βπ) β (πβπ)) = 0)) |
209 | 208 | ord 862 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β (Β¬
((β―βπ) β
(πβπ)) β β β
((β―βπ) β
(πβπ)) = 0)) |
210 | 205, 209 | mt3d 148 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β ((β―βπ) β (πβπ)) β β) |
211 | 190, 210 | pccld 16779 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β (π pCnt ((β―βπ) β (πβπ))) β
β0) |
212 | 211 | nn0red 12529 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β (π pCnt ((β―βπ) β (πβπ))) β β) |
213 | 128 | nnzd 12581 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π + 1) β β€) |
214 | | pcdvdsb 16798 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((π β β β§ (π + 1) β β€ β§ π β β0)
β (π β€ (π pCnt (π + 1)) β (πβπ) β₯ (π + 1))) |
215 | 158, 213,
201, 214 | syl3anc 1371 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π β€ (π pCnt (π + 1)) β (πβπ) β₯ (π + 1))) |
216 | 7 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (πβπ) β β€) |
217 | | dvdsle 16249 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (((πβπ) β β€ β§ (π + 1) β β) β ((πβπ) β₯ (π + 1) β (πβπ) β€ (π + 1))) |
218 | 216, 128,
217 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((πβπ) β₯ (π + 1) β (πβπ) β€ (π + 1))) |
219 | 215, 218 | sylbid 239 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π β€ (π pCnt (π + 1)) β (πβπ) β€ (π + 1))) |
220 | 202, 199 | lenltd 11356 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π β€ (π pCnt (π + 1)) β Β¬ (π pCnt (π + 1)) < π)) |
221 | 131, 129 | lenltd 11356 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((πβπ) β€ (π + 1) β Β¬ (π + 1) < (πβπ))) |
222 | 219, 220,
221 | 3imtr3d 292 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (Β¬ (π pCnt (π + 1)) < π β Β¬ (π + 1) < (πβπ))) |
223 | 133, 222 | mt4d 117 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π pCnt (π + 1)) < π) |
224 | 223 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β (π pCnt (π + 1)) < π) |
225 | | dvdssubr 16244 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (((πβπ) β β€ β§ (β―βπ) β β€) β ((πβπ) β₯ (β―βπ) β (πβπ) β₯ ((β―βπ) β (πβπ)))) |
226 | 7, 34, 225 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π β ((πβπ) β₯ (β―βπ) β (πβπ) β₯ ((β―βπ) β (πβπ)))) |
227 | 13, 226 | mpbid 231 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π β (πβπ) β₯ ((β―βπ) β (πβπ))) |
228 | 227 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β (πβπ) β₯ ((β―βπ) β (πβπ))) |
229 | 206 | nn0zd 12580 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β ((β―βπ) β (πβπ)) β β€) |
230 | 5 | ad2antrr 724 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β π β
β0) |
231 | | pcdvdsb 16798 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π β β β§
((β―βπ) β
(πβπ)) β β€ β§ π β β0) β (π β€ (π pCnt ((β―βπ) β (πβπ))) β (πβπ) β₯ ((β―βπ) β (πβπ)))) |
232 | 190, 229,
230, 231 | syl3anc 1371 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β (π β€ (π pCnt ((β―βπ) β (πβπ))) β (πβπ) β₯ ((β―βπ) β (πβπ)))) |
233 | 228, 232 | mpbird 256 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β π β€ (π pCnt ((β―βπ) β (πβπ)))) |
234 | 200, 203,
212, 224, 233 | ltletrd 11370 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β (π pCnt (π + 1)) < (π pCnt ((β―βπ) β (πβπ)))) |
235 | 190, 193,
197, 234 | pcadd2 16819 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π β§ (π β β0 β§ (π + 1) < (πβπ))) β§ ((β―βπ) β (πβπ)) β 0) β (π pCnt (π + 1)) = (π pCnt ((π + 1) + ((β―βπ) β (πβπ))))) |
236 | 189, 235 | pm2.61dane 3029 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π pCnt (π + 1)) = (π pCnt ((π + 1) + ((β―βπ) β (πβπ))))) |
237 | 183, 236 | eqtr4d 2775 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π pCnt ((((β―βπ) β (πβπ)) + π) + 1)) = (π pCnt (π + 1))) |
238 | 198 | nn0cnd 12530 |
. . . . . . . . . . . . . . . . 17
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π pCnt (π + 1)) β β) |
239 | 237, 238 | eqeltrd 2833 |
. . . . . . . . . . . . . . . 16
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π pCnt ((((β―βπ) β (πβπ)) + π) + 1)) β β) |
240 | 239, 237 | subeq0bd 11636 |
. . . . . . . . . . . . . . 15
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((π pCnt ((((β―βπ) β (πβπ)) + π) + 1)) β (π pCnt (π + 1))) = 0) |
241 | 180, 240 | eqtrd 2772 |
. . . . . . . . . . . . . 14
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (π pCnt (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1))) = 0) |
242 | 241 | oveq2d 7421 |
. . . . . . . . . . . . 13
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β (0 + (π pCnt (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)))) = (0 + 0)) |
243 | | 00id 11385 |
. . . . . . . . . . . . 13
β’ (0 + 0) =
0 |
244 | 242, 243 | eqtr2di 2789 |
. . . . . . . . . . . 12
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β 0 = (0 + (π pCnt (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1))))) |
245 | 177, 244 | eqeq12d 2748 |
. . . . . . . . . . 11
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((π pCnt ((((β―βπ) β (πβπ)) + (π + 1))C(π + 1))) = 0 β ((π pCnt ((((β―βπ) β (πβπ)) + π)Cπ)) + (π pCnt (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)))) = (0 + (π pCnt (((((β―βπ) β (πβπ)) + π) + 1) / (π + 1)))))) |
246 | 137, 245 | imbitrrid 245 |
. . . . . . . . . 10
β’ ((π β§ (π β β0 β§ (π + 1) < (πβπ))) β ((π pCnt ((((β―βπ) β (πβπ)) + π)Cπ)) = 0 β (π pCnt ((((β―βπ) β (πβπ)) + (π + 1))C(π + 1))) = 0)) |
247 | 136, 246 | animpimp2impd 844 |
. . . . . . . . 9
β’ (π β β0
β ((π β (π < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + π)Cπ)) = 0)) β (π β ((π + 1) < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + (π + 1))C(π + 1))) = 0)))) |
248 | 93, 99, 105, 111, 124, 247 | nn0ind 12653 |
. . . . . . . 8
β’ (((πβπ) β 1) β β0
β (π β (((πβπ) β 1) < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + ((πβπ) β 1))C((πβπ) β 1))) = 0))) |
249 | 87, 248 | mpcom 38 |
. . . . . . 7
β’ (π β (((πβπ) β 1) < (πβπ) β (π pCnt ((((β―βπ) β (πβπ)) + ((πβπ) β 1))C((πβπ) β 1))) = 0)) |
250 | 85, 249 | mpd 15 |
. . . . . 6
β’ (π β (π pCnt ((((β―βπ) β (πβπ)) + ((πβπ) β 1))C((πβπ) β 1))) = 0) |
251 | 83, 250 | eqtr3d 2774 |
. . . . 5
β’ (π β (π pCnt (((β―βπ) β 1)C((πβπ) β 1))) = 0) |
252 | | pcdiv 16781 |
. . . . . . 7
β’ ((π β β β§
((β―βπ) β
β€ β§ (β―βπ) β 0) β§ (πβπ) β β) β (π pCnt ((β―βπ) / (πβπ))) = ((π pCnt (β―βπ)) β (π pCnt (πβπ)))) |
253 | 2, 34, 76, 6, 252 | syl121anc 1375 |
. . . . . 6
β’ (π β (π pCnt ((β―βπ) / (πβπ))) = ((π pCnt (β―βπ)) β (π pCnt (πβπ)))) |
254 | 5 | nn0zd 12580 |
. . . . . . . 8
β’ (π β π β β€) |
255 | | pcid 16802 |
. . . . . . . 8
β’ ((π β β β§ π β β€) β (π pCnt (πβπ)) = π) |
256 | 2, 254, 255 | syl2anc 584 |
. . . . . . 7
β’ (π β (π pCnt (πβπ)) = π) |
257 | 256 | oveq2d 7421 |
. . . . . 6
β’ (π β ((π pCnt (β―βπ)) β (π pCnt (πβπ))) = ((π pCnt (β―βπ)) β π)) |
258 | 253, 257 | eqtrd 2772 |
. . . . 5
β’ (π β (π pCnt ((β―βπ) / (πβπ))) = ((π pCnt (β―βπ)) β π)) |
259 | 251, 258 | oveq12d 7423 |
. . . 4
β’ (π β ((π pCnt (((β―βπ) β 1)C((πβπ) β 1))) + (π pCnt ((β―βπ) / (πβπ)))) = (0 + ((π pCnt (β―βπ)) β π))) |
260 | 2, 27 | pccld 16779 |
. . . . . . . 8
β’ (π β (π pCnt (β―βπ)) β
β0) |
261 | 260 | nn0zd 12580 |
. . . . . . 7
β’ (π β (π pCnt (β―βπ)) β β€) |
262 | 261, 254 | zsubcld 12667 |
. . . . . 6
β’ (π β ((π pCnt (β―βπ)) β π) β β€) |
263 | 262 | zcnd 12663 |
. . . . 5
β’ (π β ((π pCnt (β―βπ)) β π) β β) |
264 | 263 | addlidd 11411 |
. . . 4
β’ (π β (0 + ((π pCnt (β―βπ)) β π)) = ((π pCnt (β―βπ)) β π)) |
265 | 79, 259, 264 | 3eqtrd 2776 |
. . 3
β’ (π β (π pCnt ((((β―βπ) β 1)C((πβπ) β 1)) Β· ((β―βπ) / (πβπ)))) = ((π pCnt (β―βπ)) β π)) |
266 | 66, 67, 265 | 3eqtr3d 2780 |
. 2
β’ (π β (π pCnt (β―βπ)) = ((π pCnt (β―βπ)) β π)) |
267 | 40, 266 | jca 512 |
1
β’ (π β ((β―βπ) β β β§ (π pCnt (β―βπ)) = ((π pCnt (β―βπ)) β π))) |