Metamath Proof Explorer


Theorem ppiub

Description: An upper bound on the prime-counting function ppi , which counts the number of primes less than N . (Contributed by Mario Carneiro, 13-Mar-2014)

Ref Expression
Assertion ppiub ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โ†’ ( ฯ€ โ€˜ ๐‘ ) โ‰ค ( ( ๐‘ / 3 ) + 2 ) )

Proof

Step Hyp Ref Expression
1 3re โŠข 3 โˆˆ โ„
2 1 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โ†’ 3 โˆˆ โ„ )
3 simpl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โ†’ ๐‘ โˆˆ โ„ )
4 ppicl โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ฯ€ โ€˜ ๐‘ ) โˆˆ โ„•0 )
5 4 nn0red โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ฯ€ โ€˜ ๐‘ ) โˆˆ โ„ )
6 5 adantr โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ฯ€ โ€˜ ๐‘ ) โˆˆ โ„ )
7 2re โŠข 2 โˆˆ โ„
8 resubcl โŠข ( ( ( ฯ€ โ€˜ ๐‘ ) โˆˆ โ„ โˆง 2 โˆˆ โ„ ) โ†’ ( ( ฯ€ โ€˜ ๐‘ ) โˆ’ 2 ) โˆˆ โ„ )
9 6 7 8 sylancl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ฯ€ โ€˜ ๐‘ ) โˆ’ 2 ) โˆˆ โ„ )
10 fzfi โŠข ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆˆ Fin
11 ssrab2 โŠข { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } โŠ† ( 4 ... ( โŒŠ โ€˜ ๐‘ ) )
12 ssfi โŠข ( ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆˆ Fin โˆง { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } โŠ† ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) ) โ†’ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } โˆˆ Fin )
13 10 11 12 mp2an โŠข { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } โˆˆ Fin
14 hashcl โŠข ( { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } โˆˆ Fin โ†’ ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } ) โˆˆ โ„•0 )
15 13 14 ax-mp โŠข ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } ) โˆˆ โ„•0
16 15 nn0rei โŠข ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } ) โˆˆ โ„
17 16 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } ) โˆˆ โ„ )
18 3nn โŠข 3 โˆˆ โ„•
19 nndivre โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โˆˆ โ„• ) โ†’ ( ๐‘ / 3 ) โˆˆ โ„ )
20 18 19 mpan2 โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ๐‘ / 3 ) โˆˆ โ„ )
21 20 adantr โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ๐‘ / 3 ) โˆˆ โ„ )
22 ppifl โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ฯ€ โ€˜ ( โŒŠ โ€˜ ๐‘ ) ) = ( ฯ€ โ€˜ ๐‘ ) )
23 22 adantr โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ฯ€ โ€˜ ( โŒŠ โ€˜ ๐‘ ) ) = ( ฯ€ โ€˜ ๐‘ ) )
24 ppi3 โŠข ( ฯ€ โ€˜ 3 ) = 2
25 24 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ฯ€ โ€˜ 3 ) = 2 )
26 23 25 oveq12d โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ฯ€ โ€˜ ( โŒŠ โ€˜ ๐‘ ) ) โˆ’ ( ฯ€ โ€˜ 3 ) ) = ( ( ฯ€ โ€˜ ๐‘ ) โˆ’ 2 ) )
27 3z โŠข 3 โˆˆ โ„ค
28 27 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ 3 โˆˆ โ„ค )
29 flcl โŠข ( ๐‘ โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ๐‘ ) โˆˆ โ„ค )
30 29 adantr โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ๐‘ ) โˆˆ โ„ค )
31 flge โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โˆˆ โ„ค ) โ†’ ( 3 โ‰ค ๐‘ โ†” 3 โ‰ค ( โŒŠ โ€˜ ๐‘ ) ) )
32 27 31 mpan2 โŠข ( ๐‘ โˆˆ โ„ โ†’ ( 3 โ‰ค ๐‘ โ†” 3 โ‰ค ( โŒŠ โ€˜ ๐‘ ) ) )
33 32 biimpa โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ 3 โ‰ค ( โŒŠ โ€˜ ๐‘ ) )
34 eluz2 โŠข ( ( โŒŠ โ€˜ ๐‘ ) โˆˆ ( โ„คโ‰ฅ โ€˜ 3 ) โ†” ( 3 โˆˆ โ„ค โˆง ( โŒŠ โ€˜ ๐‘ ) โˆˆ โ„ค โˆง 3 โ‰ค ( โŒŠ โ€˜ ๐‘ ) ) )
35 28 30 33 34 syl3anbrc โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ๐‘ ) โˆˆ ( โ„คโ‰ฅ โ€˜ 3 ) )
36 ppidif โŠข ( ( โŒŠ โ€˜ ๐‘ ) โˆˆ ( โ„คโ‰ฅ โ€˜ 3 ) โ†’ ( ( ฯ€ โ€˜ ( โŒŠ โ€˜ ๐‘ ) ) โˆ’ ( ฯ€ โ€˜ 3 ) ) = ( โ™ฏ โ€˜ ( ( ( 3 + 1 ) ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) ) )
37 35 36 syl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ฯ€ โ€˜ ( โŒŠ โ€˜ ๐‘ ) ) โˆ’ ( ฯ€ โ€˜ 3 ) ) = ( โ™ฏ โ€˜ ( ( ( 3 + 1 ) ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) ) )
38 df-4 โŠข 4 = ( 3 + 1 )
39 38 oveq1i โŠข ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) = ( ( 3 + 1 ) ... ( โŒŠ โ€˜ ๐‘ ) )
40 39 ineq1i โŠข ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) = ( ( ( 3 + 1 ) ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ )
41 40 fveq2i โŠข ( โ™ฏ โ€˜ ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) ) = ( โ™ฏ โ€˜ ( ( ( 3 + 1 ) ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) )
42 37 41 eqtr4di โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ฯ€ โ€˜ ( โŒŠ โ€˜ ๐‘ ) ) โˆ’ ( ฯ€ โ€˜ 3 ) ) = ( โ™ฏ โ€˜ ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) ) )
43 26 42 eqtr3d โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ฯ€ โ€˜ ๐‘ ) โˆ’ 2 ) = ( โ™ฏ โ€˜ ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) ) )
44 dfin5 โŠข ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) = { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ๐‘˜ โˆˆ โ„™ }
45 elfzle1 โŠข ( ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โ†’ 4 โ‰ค ๐‘˜ )
46 ppiublem2 โŠข ( ( ๐‘˜ โˆˆ โ„™ โˆง 4 โ‰ค ๐‘˜ ) โ†’ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } )
47 46 expcom โŠข ( 4 โ‰ค ๐‘˜ โ†’ ( ๐‘˜ โˆˆ โ„™ โ†’ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } ) )
48 45 47 syl โŠข ( ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โ†’ ( ๐‘˜ โˆˆ โ„™ โ†’ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } ) )
49 48 ss2rabi โŠข { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ๐‘˜ โˆˆ โ„™ } โŠ† { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } }
50 44 49 eqsstri โŠข ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) โŠ† { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } }
51 ssdomg โŠข ( { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } โˆˆ Fin โ†’ ( ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) โŠ† { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } โ†’ ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) โ‰ผ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } ) )
52 13 50 51 mp2 โŠข ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) โ‰ผ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } }
53 inss1 โŠข ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) โŠ† ( 4 ... ( โŒŠ โ€˜ ๐‘ ) )
54 ssfi โŠข ( ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆˆ Fin โˆง ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) โŠ† ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) ) โ†’ ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) โˆˆ Fin )
55 10 53 54 mp2an โŠข ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) โˆˆ Fin
56 hashdom โŠข ( ( ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) โˆˆ Fin โˆง { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } โˆˆ Fin ) โ†’ ( ( โ™ฏ โ€˜ ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) ) โ‰ค ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } ) โ†” ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) โ‰ผ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } ) )
57 55 13 56 mp2an โŠข ( ( โ™ฏ โ€˜ ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) ) โ‰ค ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } ) โ†” ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) โ‰ผ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } )
58 52 57 mpbir โŠข ( โ™ฏ โ€˜ ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฉ โ„™ ) ) โ‰ค ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } )
59 43 58 eqbrtrdi โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ฯ€ โ€˜ ๐‘ ) โˆ’ 2 ) โ‰ค ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } ) )
60 reflcl โŠข ( ๐‘ โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ๐‘ ) โˆˆ โ„ )
61 60 adantr โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ๐‘ ) โˆˆ โ„ )
62 peano2rem โŠข ( ( โŒŠ โ€˜ ๐‘ ) โˆˆ โ„ โ†’ ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) โˆˆ โ„ )
63 61 62 syl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) โˆˆ โ„ )
64 6nn โŠข 6 โˆˆ โ„•
65 nndivre โŠข ( ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) โˆˆ โ„ โˆง 6 โˆˆ โ„• ) โ†’ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) โˆˆ โ„ )
66 63 64 65 sylancl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) โˆˆ โ„ )
67 reflcl โŠข ( ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) โˆˆ โ„ )
68 66 67 syl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) โˆˆ โ„ )
69 5re โŠข 5 โˆˆ โ„
70 resubcl โŠข ( ( ( โŒŠ โ€˜ ๐‘ ) โˆˆ โ„ โˆง 5 โˆˆ โ„ ) โ†’ ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) โˆˆ โ„ )
71 61 69 70 sylancl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) โˆˆ โ„ )
72 nndivre โŠข ( ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) โˆˆ โ„ โˆง 6 โˆˆ โ„• ) โ†’ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) โˆˆ โ„ )
73 71 64 72 sylancl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) โˆˆ โ„ )
74 reflcl โŠข ( ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โˆˆ โ„ )
75 73 74 syl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โˆˆ โ„ )
76 peano2re โŠข ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โˆˆ โ„ โ†’ ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) + 1 ) โˆˆ โ„ )
77 75 76 syl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) + 1 ) โˆˆ โ„ )
78 peano2rem โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ๐‘ โˆ’ 1 ) โˆˆ โ„ )
79 78 adantr โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ๐‘ โˆ’ 1 ) โˆˆ โ„ )
80 nndivre โŠข ( ( ( ๐‘ โˆ’ 1 ) โˆˆ โ„ โˆง 6 โˆˆ โ„• ) โ†’ ( ( ๐‘ โˆ’ 1 ) / 6 ) โˆˆ โ„ )
81 79 64 80 sylancl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ๐‘ โˆ’ 1 ) / 6 ) โˆˆ โ„ )
82 simpl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ๐‘ โˆˆ โ„ )
83 resubcl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 5 โˆˆ โ„ ) โ†’ ( ๐‘ โˆ’ 5 ) โˆˆ โ„ )
84 82 69 83 sylancl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ๐‘ โˆ’ 5 ) โˆˆ โ„ )
85 nndivre โŠข ( ( ( ๐‘ โˆ’ 5 ) โˆˆ โ„ โˆง 6 โˆˆ โ„• ) โ†’ ( ( ๐‘ โˆ’ 5 ) / 6 ) โˆˆ โ„ )
86 84 64 85 sylancl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ๐‘ โˆ’ 5 ) / 6 ) โˆˆ โ„ )
87 peano2re โŠข ( ( ( ๐‘ โˆ’ 5 ) / 6 ) โˆˆ โ„ โ†’ ( ( ( ๐‘ โˆ’ 5 ) / 6 ) + 1 ) โˆˆ โ„ )
88 86 87 syl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( ๐‘ โˆ’ 5 ) / 6 ) + 1 ) โˆˆ โ„ )
89 flle โŠข ( ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) โ‰ค ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) )
90 66 89 syl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) โ‰ค ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) )
91 1re โŠข 1 โˆˆ โ„
92 91 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ 1 โˆˆ โ„ )
93 flle โŠข ( ๐‘ โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ๐‘ ) โ‰ค ๐‘ )
94 93 adantr โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ๐‘ ) โ‰ค ๐‘ )
95 61 82 92 94 lesub1dd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) โ‰ค ( ๐‘ โˆ’ 1 ) )
96 6re โŠข 6 โˆˆ โ„
97 96 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ 6 โˆˆ โ„ )
98 6pos โŠข 0 < 6
99 98 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ 0 < 6 )
100 lediv1 โŠข ( ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) โˆˆ โ„ โˆง ( ๐‘ โˆ’ 1 ) โˆˆ โ„ โˆง ( 6 โˆˆ โ„ โˆง 0 < 6 ) ) โ†’ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) โ‰ค ( ๐‘ โˆ’ 1 ) โ†” ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 6 ) ) )
101 63 79 97 99 100 syl112anc โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) โ‰ค ( ๐‘ โˆ’ 1 ) โ†” ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 6 ) ) )
102 95 101 mpbid โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 6 ) )
103 68 66 81 90 102 letrd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 6 ) )
104 flle โŠข ( ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โ‰ค ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) )
105 73 104 syl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โ‰ค ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) )
106 69 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ 5 โˆˆ โ„ )
107 61 82 106 94 lesub1dd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) โ‰ค ( ๐‘ โˆ’ 5 ) )
108 lediv1 โŠข ( ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) โˆˆ โ„ โˆง ( ๐‘ โˆ’ 5 ) โˆˆ โ„ โˆง ( 6 โˆˆ โ„ โˆง 0 < 6 ) ) โ†’ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) โ‰ค ( ๐‘ โˆ’ 5 ) โ†” ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) โ‰ค ( ( ๐‘ โˆ’ 5 ) / 6 ) ) )
109 71 84 97 99 108 syl112anc โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) โ‰ค ( ๐‘ โˆ’ 5 ) โ†” ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) โ‰ค ( ( ๐‘ โˆ’ 5 ) / 6 ) ) )
110 107 109 mpbid โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) โ‰ค ( ( ๐‘ โˆ’ 5 ) / 6 ) )
111 75 73 86 105 110 letrd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โ‰ค ( ( ๐‘ โˆ’ 5 ) / 6 ) )
112 75 86 92 111 leadd1dd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) + 1 ) โ‰ค ( ( ( ๐‘ โˆ’ 5 ) / 6 ) + 1 ) )
113 68 77 81 88 103 112 le2addd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) + ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) + 1 ) ) โ‰ค ( ( ( ๐‘ โˆ’ 1 ) / 6 ) + ( ( ( ๐‘ โˆ’ 5 ) / 6 ) + 1 ) ) )
114 ovex โŠข ( ๐‘˜ mod 6 ) โˆˆ V
115 114 elpr โŠข ( ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } โ†” ( ( ๐‘˜ mod 6 ) = 1 โˆจ ( ๐‘˜ mod 6 ) = 5 ) )
116 115 rabbii โŠข { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } = { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ( ๐‘˜ mod 6 ) = 1 โˆจ ( ๐‘˜ mod 6 ) = 5 ) }
117 unrab โŠข ( { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } โˆช { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) = { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ( ๐‘˜ mod 6 ) = 1 โˆจ ( ๐‘˜ mod 6 ) = 5 ) }
118 116 117 eqtr4i โŠข { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } = ( { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } โˆช { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } )
119 118 fveq2i โŠข ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } ) = ( โ™ฏ โ€˜ ( { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } โˆช { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) )
120 ssrab2 โŠข { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } โŠ† ( 4 ... ( โŒŠ โ€˜ ๐‘ ) )
121 ssfi โŠข ( ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆˆ Fin โˆง { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } โŠ† ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) ) โ†’ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } โˆˆ Fin )
122 10 120 121 mp2an โŠข { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } โˆˆ Fin
123 ssrab2 โŠข { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } โŠ† ( 4 ... ( โŒŠ โ€˜ ๐‘ ) )
124 ssfi โŠข ( ( ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆˆ Fin โˆง { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } โŠ† ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) ) โ†’ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } โˆˆ Fin )
125 10 123 124 mp2an โŠข { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } โˆˆ Fin
126 inrab โŠข ( { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } โˆฉ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) = { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ( ๐‘˜ mod 6 ) = 1 โˆง ( ๐‘˜ mod 6 ) = 5 ) }
127 rabeq0 โŠข ( { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ( ๐‘˜ mod 6 ) = 1 โˆง ( ๐‘˜ mod 6 ) = 5 ) } = โˆ… โ†” โˆ€ ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) ยฌ ( ( ๐‘˜ mod 6 ) = 1 โˆง ( ๐‘˜ mod 6 ) = 5 ) )
128 1lt5 โŠข 1 < 5
129 91 128 ltneii โŠข 1 โ‰  5
130 eqtr2 โŠข ( ( ( ๐‘˜ mod 6 ) = 1 โˆง ( ๐‘˜ mod 6 ) = 5 ) โ†’ 1 = 5 )
131 130 necon3ai โŠข ( 1 โ‰  5 โ†’ ยฌ ( ( ๐‘˜ mod 6 ) = 1 โˆง ( ๐‘˜ mod 6 ) = 5 ) )
132 129 131 ax-mp โŠข ยฌ ( ( ๐‘˜ mod 6 ) = 1 โˆง ( ๐‘˜ mod 6 ) = 5 )
133 132 a1i โŠข ( ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โ†’ ยฌ ( ( ๐‘˜ mod 6 ) = 1 โˆง ( ๐‘˜ mod 6 ) = 5 ) )
134 127 133 mprgbir โŠข { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ( ๐‘˜ mod 6 ) = 1 โˆง ( ๐‘˜ mod 6 ) = 5 ) } = โˆ…
135 126 134 eqtri โŠข ( { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } โˆฉ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) = โˆ…
136 hashun โŠข ( ( { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } โˆˆ Fin โˆง { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } โˆˆ Fin โˆง ( { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } โˆฉ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) = โˆ… ) โ†’ ( โ™ฏ โ€˜ ( { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } โˆช { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) ) = ( ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } ) + ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) ) )
137 122 125 135 136 mp3an โŠข ( โ™ฏ โ€˜ ( { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } โˆช { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) ) = ( ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } ) + ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) )
138 119 137 eqtri โŠข ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } ) = ( ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } ) + ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) )
139 elfzelz โŠข ( ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โ†’ ๐‘˜ โˆˆ โ„ค )
140 nnrp โŠข ( 6 โˆˆ โ„• โ†’ 6 โˆˆ โ„+ )
141 64 140 ax-mp โŠข 6 โˆˆ โ„+
142 0le1 โŠข 0 โ‰ค 1
143 1lt6 โŠข 1 < 6
144 modid โŠข ( ( ( 1 โˆˆ โ„ โˆง 6 โˆˆ โ„+ ) โˆง ( 0 โ‰ค 1 โˆง 1 < 6 ) ) โ†’ ( 1 mod 6 ) = 1 )
145 91 141 142 143 144 mp4an โŠข ( 1 mod 6 ) = 1
146 145 eqeq2i โŠข ( ( ๐‘˜ mod 6 ) = ( 1 mod 6 ) โ†” ( ๐‘˜ mod 6 ) = 1 )
147 1z โŠข 1 โˆˆ โ„ค
148 moddvds โŠข ( ( 6 โˆˆ โ„• โˆง ๐‘˜ โˆˆ โ„ค โˆง 1 โˆˆ โ„ค ) โ†’ ( ( ๐‘˜ mod 6 ) = ( 1 mod 6 ) โ†” 6 โˆฅ ( ๐‘˜ โˆ’ 1 ) ) )
149 64 147 148 mp3an13 โŠข ( ๐‘˜ โˆˆ โ„ค โ†’ ( ( ๐‘˜ mod 6 ) = ( 1 mod 6 ) โ†” 6 โˆฅ ( ๐‘˜ โˆ’ 1 ) ) )
150 146 149 bitr3id โŠข ( ๐‘˜ โˆˆ โ„ค โ†’ ( ( ๐‘˜ mod 6 ) = 1 โ†” 6 โˆฅ ( ๐‘˜ โˆ’ 1 ) ) )
151 139 150 syl โŠข ( ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โ†’ ( ( ๐‘˜ mod 6 ) = 1 โ†” 6 โˆฅ ( ๐‘˜ โˆ’ 1 ) ) )
152 151 rabbiia โŠข { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } = { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ 6 โˆฅ ( ๐‘˜ โˆ’ 1 ) }
153 152 fveq2i โŠข ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } ) = ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ 6 โˆฅ ( ๐‘˜ โˆ’ 1 ) } )
154 64 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ 6 โˆˆ โ„• )
155 4z โŠข 4 โˆˆ โ„ค
156 155 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ 4 โˆˆ โ„ค )
157 4m1e3 โŠข ( 4 โˆ’ 1 ) = 3
158 157 fveq2i โŠข ( โ„คโ‰ฅ โ€˜ ( 4 โˆ’ 1 ) ) = ( โ„คโ‰ฅ โ€˜ 3 )
159 35 158 eleqtrrdi โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ๐‘ ) โˆˆ ( โ„คโ‰ฅ โ€˜ ( 4 โˆ’ 1 ) ) )
160 147 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ 1 โˆˆ โ„ค )
161 154 156 159 160 hashdvds โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ 6 โˆฅ ( ๐‘˜ โˆ’ 1 ) } ) = ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) โˆ’ ( โŒŠ โ€˜ ( ( ( 4 โˆ’ 1 ) โˆ’ 1 ) / 6 ) ) ) )
162 153 161 eqtrid โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } ) = ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) โˆ’ ( โŒŠ โ€˜ ( ( ( 4 โˆ’ 1 ) โˆ’ 1 ) / 6 ) ) ) )
163 2cn โŠข 2 โˆˆ โ„‚
164 ax-1cn โŠข 1 โˆˆ โ„‚
165 df-3 โŠข 3 = ( 2 + 1 )
166 157 165 eqtri โŠข ( 4 โˆ’ 1 ) = ( 2 + 1 )
167 163 164 166 mvrraddi โŠข ( ( 4 โˆ’ 1 ) โˆ’ 1 ) = 2
168 167 oveq1i โŠข ( ( ( 4 โˆ’ 1 ) โˆ’ 1 ) / 6 ) = ( 2 / 6 )
169 168 fveq2i โŠข ( โŒŠ โ€˜ ( ( ( 4 โˆ’ 1 ) โˆ’ 1 ) / 6 ) ) = ( โŒŠ โ€˜ ( 2 / 6 ) )
170 0re โŠข 0 โˆˆ โ„
171 64 nnne0i โŠข 6 โ‰  0
172 7 96 171 redivcli โŠข ( 2 / 6 ) โˆˆ โ„
173 2pos โŠข 0 < 2
174 7 96 173 98 divgt0ii โŠข 0 < ( 2 / 6 )
175 170 172 174 ltleii โŠข 0 โ‰ค ( 2 / 6 )
176 2lt6 โŠข 2 < 6
177 6cn โŠข 6 โˆˆ โ„‚
178 177 mulridi โŠข ( 6 ยท 1 ) = 6
179 176 178 breqtrri โŠข 2 < ( 6 ยท 1 )
180 96 98 pm3.2i โŠข ( 6 โˆˆ โ„ โˆง 0 < 6 )
181 ltdivmul โŠข ( ( 2 โˆˆ โ„ โˆง 1 โˆˆ โ„ โˆง ( 6 โˆˆ โ„ โˆง 0 < 6 ) ) โ†’ ( ( 2 / 6 ) < 1 โ†” 2 < ( 6 ยท 1 ) ) )
182 7 91 180 181 mp3an โŠข ( ( 2 / 6 ) < 1 โ†” 2 < ( 6 ยท 1 ) )
183 179 182 mpbir โŠข ( 2 / 6 ) < 1
184 1e0p1 โŠข 1 = ( 0 + 1 )
185 183 184 breqtri โŠข ( 2 / 6 ) < ( 0 + 1 )
186 0z โŠข 0 โˆˆ โ„ค
187 flbi โŠข ( ( ( 2 / 6 ) โˆˆ โ„ โˆง 0 โˆˆ โ„ค ) โ†’ ( ( โŒŠ โ€˜ ( 2 / 6 ) ) = 0 โ†” ( 0 โ‰ค ( 2 / 6 ) โˆง ( 2 / 6 ) < ( 0 + 1 ) ) ) )
188 172 186 187 mp2an โŠข ( ( โŒŠ โ€˜ ( 2 / 6 ) ) = 0 โ†” ( 0 โ‰ค ( 2 / 6 ) โˆง ( 2 / 6 ) < ( 0 + 1 ) ) )
189 175 185 188 mpbir2an โŠข ( โŒŠ โ€˜ ( 2 / 6 ) ) = 0
190 169 189 eqtri โŠข ( โŒŠ โ€˜ ( ( ( 4 โˆ’ 1 ) โˆ’ 1 ) / 6 ) ) = 0
191 190 oveq2i โŠข ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) โˆ’ ( โŒŠ โ€˜ ( ( ( 4 โˆ’ 1 ) โˆ’ 1 ) / 6 ) ) ) = ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) โˆ’ 0 )
192 66 flcld โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) โˆˆ โ„ค )
193 192 zcnd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) โˆˆ โ„‚ )
194 193 subid1d โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) โˆ’ 0 ) = ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) )
195 191 194 eqtrid โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) โˆ’ ( โŒŠ โ€˜ ( ( ( 4 โˆ’ 1 ) โˆ’ 1 ) / 6 ) ) ) = ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) )
196 162 195 eqtrd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } ) = ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) )
197 5pos โŠข 0 < 5
198 170 69 197 ltleii โŠข 0 โ‰ค 5
199 5lt6 โŠข 5 < 6
200 modid โŠข ( ( ( 5 โˆˆ โ„ โˆง 6 โˆˆ โ„+ ) โˆง ( 0 โ‰ค 5 โˆง 5 < 6 ) ) โ†’ ( 5 mod 6 ) = 5 )
201 69 141 198 199 200 mp4an โŠข ( 5 mod 6 ) = 5
202 201 eqeq2i โŠข ( ( ๐‘˜ mod 6 ) = ( 5 mod 6 ) โ†” ( ๐‘˜ mod 6 ) = 5 )
203 5nn โŠข 5 โˆˆ โ„•
204 203 nnzi โŠข 5 โˆˆ โ„ค
205 moddvds โŠข ( ( 6 โˆˆ โ„• โˆง ๐‘˜ โˆˆ โ„ค โˆง 5 โˆˆ โ„ค ) โ†’ ( ( ๐‘˜ mod 6 ) = ( 5 mod 6 ) โ†” 6 โˆฅ ( ๐‘˜ โˆ’ 5 ) ) )
206 64 204 205 mp3an13 โŠข ( ๐‘˜ โˆˆ โ„ค โ†’ ( ( ๐‘˜ mod 6 ) = ( 5 mod 6 ) โ†” 6 โˆฅ ( ๐‘˜ โˆ’ 5 ) ) )
207 202 206 bitr3id โŠข ( ๐‘˜ โˆˆ โ„ค โ†’ ( ( ๐‘˜ mod 6 ) = 5 โ†” 6 โˆฅ ( ๐‘˜ โˆ’ 5 ) ) )
208 139 207 syl โŠข ( ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โ†’ ( ( ๐‘˜ mod 6 ) = 5 โ†” 6 โˆฅ ( ๐‘˜ โˆ’ 5 ) ) )
209 208 rabbiia โŠข { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } = { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ 6 โˆฅ ( ๐‘˜ โˆ’ 5 ) }
210 209 fveq2i โŠข ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) = ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ 6 โˆฅ ( ๐‘˜ โˆ’ 5 ) } )
211 204 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ 5 โˆˆ โ„ค )
212 154 156 159 211 hashdvds โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ 6 โˆฅ ( ๐‘˜ โˆ’ 5 ) } ) = ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โˆ’ ( โŒŠ โ€˜ ( ( ( 4 โˆ’ 1 ) โˆ’ 5 ) / 6 ) ) ) )
213 210 212 eqtrid โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) = ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โˆ’ ( โŒŠ โ€˜ ( ( ( 4 โˆ’ 1 ) โˆ’ 5 ) / 6 ) ) ) )
214 157 oveq1i โŠข ( ( 4 โˆ’ 1 ) โˆ’ 5 ) = ( 3 โˆ’ 5 )
215 5cn โŠข 5 โˆˆ โ„‚
216 3cn โŠข 3 โˆˆ โ„‚
217 215 216 negsubdi2i โŠข - ( 5 โˆ’ 3 ) = ( 3 โˆ’ 5 )
218 3p2e5 โŠข ( 3 + 2 ) = 5
219 218 oveq1i โŠข ( ( 3 + 2 ) โˆ’ 3 ) = ( 5 โˆ’ 3 )
220 pncan2 โŠข ( ( 3 โˆˆ โ„‚ โˆง 2 โˆˆ โ„‚ ) โ†’ ( ( 3 + 2 ) โˆ’ 3 ) = 2 )
221 216 163 220 mp2an โŠข ( ( 3 + 2 ) โˆ’ 3 ) = 2
222 219 221 eqtr3i โŠข ( 5 โˆ’ 3 ) = 2
223 222 negeqi โŠข - ( 5 โˆ’ 3 ) = - 2
224 214 217 223 3eqtr2i โŠข ( ( 4 โˆ’ 1 ) โˆ’ 5 ) = - 2
225 224 oveq1i โŠข ( ( ( 4 โˆ’ 1 ) โˆ’ 5 ) / 6 ) = ( - 2 / 6 )
226 divneg โŠข ( ( 2 โˆˆ โ„‚ โˆง 6 โˆˆ โ„‚ โˆง 6 โ‰  0 ) โ†’ - ( 2 / 6 ) = ( - 2 / 6 ) )
227 163 177 171 226 mp3an โŠข - ( 2 / 6 ) = ( - 2 / 6 )
228 225 227 eqtr4i โŠข ( ( ( 4 โˆ’ 1 ) โˆ’ 5 ) / 6 ) = - ( 2 / 6 )
229 228 fveq2i โŠข ( โŒŠ โ€˜ ( ( ( 4 โˆ’ 1 ) โˆ’ 5 ) / 6 ) ) = ( โŒŠ โ€˜ - ( 2 / 6 ) )
230 172 91 183 ltleii โŠข ( 2 / 6 ) โ‰ค 1
231 172 91 lenegi โŠข ( ( 2 / 6 ) โ‰ค 1 โ†” - 1 โ‰ค - ( 2 / 6 ) )
232 230 231 mpbi โŠข - 1 โ‰ค - ( 2 / 6 )
233 170 172 ltnegi โŠข ( 0 < ( 2 / 6 ) โ†” - ( 2 / 6 ) < - 0 )
234 174 233 mpbi โŠข - ( 2 / 6 ) < - 0
235 neg0 โŠข - 0 = 0
236 1pneg1e0 โŠข ( 1 + - 1 ) = 0
237 235 236 eqtr4i โŠข - 0 = ( 1 + - 1 )
238 neg1cn โŠข - 1 โˆˆ โ„‚
239 238 164 addcomi โŠข ( - 1 + 1 ) = ( 1 + - 1 )
240 237 239 eqtr4i โŠข - 0 = ( - 1 + 1 )
241 234 240 breqtri โŠข - ( 2 / 6 ) < ( - 1 + 1 )
242 172 renegcli โŠข - ( 2 / 6 ) โˆˆ โ„
243 neg1z โŠข - 1 โˆˆ โ„ค
244 flbi โŠข ( ( - ( 2 / 6 ) โˆˆ โ„ โˆง - 1 โˆˆ โ„ค ) โ†’ ( ( โŒŠ โ€˜ - ( 2 / 6 ) ) = - 1 โ†” ( - 1 โ‰ค - ( 2 / 6 ) โˆง - ( 2 / 6 ) < ( - 1 + 1 ) ) ) )
245 242 243 244 mp2an โŠข ( ( โŒŠ โ€˜ - ( 2 / 6 ) ) = - 1 โ†” ( - 1 โ‰ค - ( 2 / 6 ) โˆง - ( 2 / 6 ) < ( - 1 + 1 ) ) )
246 232 241 245 mpbir2an โŠข ( โŒŠ โ€˜ - ( 2 / 6 ) ) = - 1
247 229 246 eqtri โŠข ( โŒŠ โ€˜ ( ( ( 4 โˆ’ 1 ) โˆ’ 5 ) / 6 ) ) = - 1
248 247 oveq2i โŠข ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โˆ’ ( โŒŠ โ€˜ ( ( ( 4 โˆ’ 1 ) โˆ’ 5 ) / 6 ) ) ) = ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โˆ’ - 1 )
249 73 flcld โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โˆˆ โ„ค )
250 249 zcnd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โˆˆ โ„‚ )
251 subneg โŠข ( ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚ ) โ†’ ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โˆ’ - 1 ) = ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) + 1 ) )
252 250 164 251 sylancl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โˆ’ - 1 ) = ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) + 1 ) )
253 248 252 eqtrid โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) โˆ’ ( โŒŠ โ€˜ ( ( ( 4 โˆ’ 1 ) โˆ’ 5 ) / 6 ) ) ) = ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) + 1 ) )
254 213 253 eqtrd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) = ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) + 1 ) )
255 196 254 oveq12d โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 1 } ) + ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) = 5 } ) ) = ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) + ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) + 1 ) ) )
256 138 255 eqtrid โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } ) = ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 1 ) / 6 ) ) + ( ( โŒŠ โ€˜ ( ( ( โŒŠ โ€˜ ๐‘ ) โˆ’ 5 ) / 6 ) ) + 1 ) ) )
257 82 recnd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ๐‘ โˆˆ โ„‚ )
258 257 2timesd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( 2 ยท ๐‘ ) = ( ๐‘ + ๐‘ ) )
259 df-6 โŠข 6 = ( 5 + 1 )
260 215 164 addcomi โŠข ( 5 + 1 ) = ( 1 + 5 )
261 259 260 eqtri โŠข 6 = ( 1 + 5 )
262 261 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ 6 = ( 1 + 5 ) )
263 258 262 oveq12d โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( 2 ยท ๐‘ ) โˆ’ 6 ) = ( ( ๐‘ + ๐‘ ) โˆ’ ( 1 + 5 ) ) )
264 addsub4 โŠข ( ( ( ๐‘ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ ) โˆง ( 1 โˆˆ โ„‚ โˆง 5 โˆˆ โ„‚ ) ) โ†’ ( ( ๐‘ + ๐‘ ) โˆ’ ( 1 + 5 ) ) = ( ( ๐‘ โˆ’ 1 ) + ( ๐‘ โˆ’ 5 ) ) )
265 164 215 264 mpanr12 โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ ) โ†’ ( ( ๐‘ + ๐‘ ) โˆ’ ( 1 + 5 ) ) = ( ( ๐‘ โˆ’ 1 ) + ( ๐‘ โˆ’ 5 ) ) )
266 257 257 265 syl2anc โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ๐‘ + ๐‘ ) โˆ’ ( 1 + 5 ) ) = ( ( ๐‘ โˆ’ 1 ) + ( ๐‘ โˆ’ 5 ) ) )
267 263 266 eqtrd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( 2 ยท ๐‘ ) โˆ’ 6 ) = ( ( ๐‘ โˆ’ 1 ) + ( ๐‘ โˆ’ 5 ) ) )
268 267 oveq1d โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( 2 ยท ๐‘ ) โˆ’ 6 ) / 6 ) = ( ( ( ๐‘ โˆ’ 1 ) + ( ๐‘ โˆ’ 5 ) ) / 6 ) )
269 mulcl โŠข ( ( 2 โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„‚ ) โ†’ ( 2 ยท ๐‘ ) โˆˆ โ„‚ )
270 163 257 269 sylancr โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( 2 ยท ๐‘ ) โˆˆ โ„‚ )
271 177 171 pm3.2i โŠข ( 6 โˆˆ โ„‚ โˆง 6 โ‰  0 )
272 divsubdir โŠข ( ( ( 2 ยท ๐‘ ) โˆˆ โ„‚ โˆง 6 โˆˆ โ„‚ โˆง ( 6 โˆˆ โ„‚ โˆง 6 โ‰  0 ) ) โ†’ ( ( ( 2 ยท ๐‘ ) โˆ’ 6 ) / 6 ) = ( ( ( 2 ยท ๐‘ ) / 6 ) โˆ’ ( 6 / 6 ) ) )
273 177 271 272 mp3an23 โŠข ( ( 2 ยท ๐‘ ) โˆˆ โ„‚ โ†’ ( ( ( 2 ยท ๐‘ ) โˆ’ 6 ) / 6 ) = ( ( ( 2 ยท ๐‘ ) / 6 ) โˆ’ ( 6 / 6 ) ) )
274 270 273 syl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( 2 ยท ๐‘ ) โˆ’ 6 ) / 6 ) = ( ( ( 2 ยท ๐‘ ) / 6 ) โˆ’ ( 6 / 6 ) ) )
275 3t2e6 โŠข ( 3 ยท 2 ) = 6
276 216 163 mulcomi โŠข ( 3 ยท 2 ) = ( 2 ยท 3 )
277 275 276 eqtr3i โŠข 6 = ( 2 ยท 3 )
278 277 oveq2i โŠข ( ( 2 ยท ๐‘ ) / 6 ) = ( ( 2 ยท ๐‘ ) / ( 2 ยท 3 ) )
279 3ne0 โŠข 3 โ‰  0
280 216 279 pm3.2i โŠข ( 3 โˆˆ โ„‚ โˆง 3 โ‰  0 )
281 2cnne0 โŠข ( 2 โˆˆ โ„‚ โˆง 2 โ‰  0 )
282 divcan5 โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง ( 3 โˆˆ โ„‚ โˆง 3 โ‰  0 ) โˆง ( 2 โˆˆ โ„‚ โˆง 2 โ‰  0 ) ) โ†’ ( ( 2 ยท ๐‘ ) / ( 2 ยท 3 ) ) = ( ๐‘ / 3 ) )
283 280 281 282 mp3an23 โŠข ( ๐‘ โˆˆ โ„‚ โ†’ ( ( 2 ยท ๐‘ ) / ( 2 ยท 3 ) ) = ( ๐‘ / 3 ) )
284 257 283 syl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( 2 ยท ๐‘ ) / ( 2 ยท 3 ) ) = ( ๐‘ / 3 ) )
285 278 284 eqtrid โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( 2 ยท ๐‘ ) / 6 ) = ( ๐‘ / 3 ) )
286 177 171 dividi โŠข ( 6 / 6 ) = 1
287 286 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( 6 / 6 ) = 1 )
288 285 287 oveq12d โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( 2 ยท ๐‘ ) / 6 ) โˆ’ ( 6 / 6 ) ) = ( ( ๐‘ / 3 ) โˆ’ 1 ) )
289 274 288 eqtrd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( 2 ยท ๐‘ ) โˆ’ 6 ) / 6 ) = ( ( ๐‘ / 3 ) โˆ’ 1 ) )
290 79 recnd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ๐‘ โˆ’ 1 ) โˆˆ โ„‚ )
291 84 recnd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ๐‘ โˆ’ 5 ) โˆˆ โ„‚ )
292 divdir โŠข ( ( ( ๐‘ โˆ’ 1 ) โˆˆ โ„‚ โˆง ( ๐‘ โˆ’ 5 ) โˆˆ โ„‚ โˆง ( 6 โˆˆ โ„‚ โˆง 6 โ‰  0 ) ) โ†’ ( ( ( ๐‘ โˆ’ 1 ) + ( ๐‘ โˆ’ 5 ) ) / 6 ) = ( ( ( ๐‘ โˆ’ 1 ) / 6 ) + ( ( ๐‘ โˆ’ 5 ) / 6 ) ) )
293 271 292 mp3an3 โŠข ( ( ( ๐‘ โˆ’ 1 ) โˆˆ โ„‚ โˆง ( ๐‘ โˆ’ 5 ) โˆˆ โ„‚ ) โ†’ ( ( ( ๐‘ โˆ’ 1 ) + ( ๐‘ โˆ’ 5 ) ) / 6 ) = ( ( ( ๐‘ โˆ’ 1 ) / 6 ) + ( ( ๐‘ โˆ’ 5 ) / 6 ) ) )
294 290 291 293 syl2anc โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( ๐‘ โˆ’ 1 ) + ( ๐‘ โˆ’ 5 ) ) / 6 ) = ( ( ( ๐‘ โˆ’ 1 ) / 6 ) + ( ( ๐‘ โˆ’ 5 ) / 6 ) ) )
295 268 289 294 3eqtr3d โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ๐‘ / 3 ) โˆ’ 1 ) = ( ( ( ๐‘ โˆ’ 1 ) / 6 ) + ( ( ๐‘ โˆ’ 5 ) / 6 ) ) )
296 295 oveq1d โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( ๐‘ / 3 ) โˆ’ 1 ) + 1 ) = ( ( ( ( ๐‘ โˆ’ 1 ) / 6 ) + ( ( ๐‘ โˆ’ 5 ) / 6 ) ) + 1 ) )
297 21 recnd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ๐‘ / 3 ) โˆˆ โ„‚ )
298 npcan โŠข ( ( ( ๐‘ / 3 ) โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚ ) โ†’ ( ( ( ๐‘ / 3 ) โˆ’ 1 ) + 1 ) = ( ๐‘ / 3 ) )
299 297 164 298 sylancl โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( ๐‘ / 3 ) โˆ’ 1 ) + 1 ) = ( ๐‘ / 3 ) )
300 81 recnd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ๐‘ โˆ’ 1 ) / 6 ) โˆˆ โ„‚ )
301 86 recnd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ๐‘ โˆ’ 5 ) / 6 ) โˆˆ โ„‚ )
302 164 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ 1 โˆˆ โ„‚ )
303 300 301 302 addassd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( ( ๐‘ โˆ’ 1 ) / 6 ) + ( ( ๐‘ โˆ’ 5 ) / 6 ) ) + 1 ) = ( ( ( ๐‘ โˆ’ 1 ) / 6 ) + ( ( ( ๐‘ โˆ’ 5 ) / 6 ) + 1 ) ) )
304 296 299 303 3eqtr3d โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ๐‘ / 3 ) = ( ( ( ๐‘ โˆ’ 1 ) / 6 ) + ( ( ( ๐‘ โˆ’ 5 ) / 6 ) + 1 ) ) )
305 113 256 304 3brtr4d โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( โ™ฏ โ€˜ { ๐‘˜ โˆˆ ( 4 ... ( โŒŠ โ€˜ ๐‘ ) ) โˆฃ ( ๐‘˜ mod 6 ) โˆˆ { 1 , 5 } } ) โ‰ค ( ๐‘ / 3 ) )
306 9 17 21 59 305 letrd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ฯ€ โ€˜ ๐‘ ) โˆ’ 2 ) โ‰ค ( ๐‘ / 3 ) )
307 7 a1i โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ 2 โˆˆ โ„ )
308 6 307 21 lesubaddd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ( ( ฯ€ โ€˜ ๐‘ ) โˆ’ 2 ) โ‰ค ( ๐‘ / 3 ) โ†” ( ฯ€ โ€˜ ๐‘ ) โ‰ค ( ( ๐‘ / 3 ) + 2 ) ) )
309 306 308 mpbid โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โ‰ค ๐‘ ) โ†’ ( ฯ€ โ€˜ ๐‘ ) โ‰ค ( ( ๐‘ / 3 ) + 2 ) )
310 309 adantlr โŠข ( ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โˆง 3 โ‰ค ๐‘ ) โ†’ ( ฯ€ โ€˜ ๐‘ ) โ‰ค ( ( ๐‘ / 3 ) + 2 ) )
311 5 ad2antrr โŠข ( ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โˆง ๐‘ โ‰ค 3 ) โ†’ ( ฯ€ โ€˜ ๐‘ ) โˆˆ โ„ )
312 7 a1i โŠข ( ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โˆง ๐‘ โ‰ค 3 ) โ†’ 2 โˆˆ โ„ )
313 20 ad2antrr โŠข ( ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โˆง ๐‘ โ‰ค 3 ) โ†’ ( ๐‘ / 3 ) โˆˆ โ„ )
314 readdcl โŠข ( ( ( ๐‘ / 3 ) โˆˆ โ„ โˆง 2 โˆˆ โ„ ) โ†’ ( ( ๐‘ / 3 ) + 2 ) โˆˆ โ„ )
315 313 7 314 sylancl โŠข ( ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โˆง ๐‘ โ‰ค 3 ) โ†’ ( ( ๐‘ / 3 ) + 2 ) โˆˆ โ„ )
316 ppiwordi โŠข ( ( ๐‘ โˆˆ โ„ โˆง 3 โˆˆ โ„ โˆง ๐‘ โ‰ค 3 ) โ†’ ( ฯ€ โ€˜ ๐‘ ) โ‰ค ( ฯ€ โ€˜ 3 ) )
317 1 316 mp3an2 โŠข ( ( ๐‘ โˆˆ โ„ โˆง ๐‘ โ‰ค 3 ) โ†’ ( ฯ€ โ€˜ ๐‘ ) โ‰ค ( ฯ€ โ€˜ 3 ) )
318 317 adantlr โŠข ( ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โˆง ๐‘ โ‰ค 3 ) โ†’ ( ฯ€ โ€˜ ๐‘ ) โ‰ค ( ฯ€ โ€˜ 3 ) )
319 318 24 breqtrdi โŠข ( ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โˆง ๐‘ โ‰ค 3 ) โ†’ ( ฯ€ โ€˜ ๐‘ ) โ‰ค 2 )
320 3pos โŠข 0 < 3
321 divge0 โŠข ( ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โˆง ( 3 โˆˆ โ„ โˆง 0 < 3 ) ) โ†’ 0 โ‰ค ( ๐‘ / 3 ) )
322 1 320 321 mpanr12 โŠข ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โ†’ 0 โ‰ค ( ๐‘ / 3 ) )
323 322 adantr โŠข ( ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โˆง ๐‘ โ‰ค 3 ) โ†’ 0 โ‰ค ( ๐‘ / 3 ) )
324 addge02 โŠข ( ( 2 โˆˆ โ„ โˆง ( ๐‘ / 3 ) โˆˆ โ„ ) โ†’ ( 0 โ‰ค ( ๐‘ / 3 ) โ†” 2 โ‰ค ( ( ๐‘ / 3 ) + 2 ) ) )
325 7 313 324 sylancr โŠข ( ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โˆง ๐‘ โ‰ค 3 ) โ†’ ( 0 โ‰ค ( ๐‘ / 3 ) โ†” 2 โ‰ค ( ( ๐‘ / 3 ) + 2 ) ) )
326 323 325 mpbid โŠข ( ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โˆง ๐‘ โ‰ค 3 ) โ†’ 2 โ‰ค ( ( ๐‘ / 3 ) + 2 ) )
327 311 312 315 319 326 letrd โŠข ( ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โˆง ๐‘ โ‰ค 3 ) โ†’ ( ฯ€ โ€˜ ๐‘ ) โ‰ค ( ( ๐‘ / 3 ) + 2 ) )
328 2 3 310 327 lecasei โŠข ( ( ๐‘ โˆˆ โ„ โˆง 0 โ‰ค ๐‘ ) โ†’ ( ฯ€ โ€˜ ๐‘ ) โ‰ค ( ( ๐‘ / 3 ) + 2 ) )