Metamath Proof Explorer


Theorem fldiv4lem1div2uz2

Description: The floor of an integer greater than 1, divided by 4 is less than or equal to the half of the integer minus 1. (Contributed by AV, 5-Jul-2021) (Proof shortened by AV, 9-Jul-2022)

Ref Expression
Assertion fldiv4lem1div2uz2 ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( โŒŠ โ€˜ ( ๐‘ / 4 ) ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) )

Proof

Step Hyp Ref Expression
1 eluzelz โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ๐‘ โˆˆ โ„ค )
2 zre โŠข ( ๐‘ โˆˆ โ„ค โ†’ ๐‘ โˆˆ โ„ )
3 id โŠข ( ๐‘ โˆˆ โ„ โ†’ ๐‘ โˆˆ โ„ )
4 4re โŠข 4 โˆˆ โ„
5 4 a1i โŠข ( ๐‘ โˆˆ โ„ โ†’ 4 โˆˆ โ„ )
6 4ne0 โŠข 4 โ‰  0
7 6 a1i โŠข ( ๐‘ โˆˆ โ„ โ†’ 4 โ‰  0 )
8 3 5 7 redivcld โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ๐‘ / 4 ) โˆˆ โ„ )
9 2 8 syl โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ๐‘ / 4 ) โˆˆ โ„ )
10 flle โŠข ( ( ๐‘ / 4 ) โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ( ๐‘ / 4 ) ) โ‰ค ( ๐‘ / 4 ) )
11 1 9 10 3syl โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( โŒŠ โ€˜ ( ๐‘ / 4 ) ) โ‰ค ( ๐‘ / 4 ) )
12 1red โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ 1 โˆˆ โ„ )
13 eluzelre โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ๐‘ โˆˆ โ„ )
14 rehalfcl โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ๐‘ / 2 ) โˆˆ โ„ )
15 1 2 14 3syl โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐‘ / 2 ) โˆˆ โ„ )
16 2rp โŠข 2 โˆˆ โ„+
17 16 a1i โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ 2 โˆˆ โ„+ )
18 eluzle โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ 2 โ‰ค ๐‘ )
19 divge1 โŠข ( ( 2 โˆˆ โ„+ โˆง ๐‘ โˆˆ โ„ โˆง 2 โ‰ค ๐‘ ) โ†’ 1 โ‰ค ( ๐‘ / 2 ) )
20 17 13 18 19 syl3anc โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ 1 โ‰ค ( ๐‘ / 2 ) )
21 eluzelcn โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ๐‘ โˆˆ โ„‚ )
22 subhalfhalf โŠข ( ๐‘ โˆˆ โ„‚ โ†’ ( ๐‘ โˆ’ ( ๐‘ / 2 ) ) = ( ๐‘ / 2 ) )
23 21 22 syl โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐‘ โˆ’ ( ๐‘ / 2 ) ) = ( ๐‘ / 2 ) )
24 20 23 breqtrrd โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ 1 โ‰ค ( ๐‘ โˆ’ ( ๐‘ / 2 ) ) )
25 12 13 15 24 lesubd โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐‘ / 2 ) โ‰ค ( ๐‘ โˆ’ 1 ) )
26 2t2e4 โŠข ( 2 ยท 2 ) = 4
27 26 eqcomi โŠข 4 = ( 2 ยท 2 )
28 27 a1i โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ 4 = ( 2 ยท 2 ) )
29 28 oveq2d โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐‘ / 4 ) = ( ๐‘ / ( 2 ยท 2 ) ) )
30 2cnne0 โŠข ( 2 โˆˆ โ„‚ โˆง 2 โ‰  0 )
31 30 a1i โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( 2 โˆˆ โ„‚ โˆง 2 โ‰  0 ) )
32 divdiv1 โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง ( 2 โˆˆ โ„‚ โˆง 2 โ‰  0 ) โˆง ( 2 โˆˆ โ„‚ โˆง 2 โ‰  0 ) ) โ†’ ( ( ๐‘ / 2 ) / 2 ) = ( ๐‘ / ( 2 ยท 2 ) ) )
33 21 31 31 32 syl3anc โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ( ๐‘ / 2 ) / 2 ) = ( ๐‘ / ( 2 ยท 2 ) ) )
34 29 33 eqtr4d โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐‘ / 4 ) = ( ( ๐‘ / 2 ) / 2 ) )
35 34 breq1d โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ( ๐‘ / 4 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) โ†” ( ( ๐‘ / 2 ) / 2 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) ) )
36 peano2rem โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ๐‘ โˆ’ 1 ) โˆˆ โ„ )
37 13 36 syl โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐‘ โˆ’ 1 ) โˆˆ โ„ )
38 15 37 17 lediv1d โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ( ๐‘ / 2 ) โ‰ค ( ๐‘ โˆ’ 1 ) โ†” ( ( ๐‘ / 2 ) / 2 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) ) )
39 35 38 bitr4d โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ( ๐‘ / 4 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) โ†” ( ๐‘ / 2 ) โ‰ค ( ๐‘ โˆ’ 1 ) ) )
40 25 39 mpbird โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ๐‘ / 4 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) )
41 8 flcld โŠข ( ๐‘ โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ( ๐‘ / 4 ) ) โˆˆ โ„ค )
42 41 zred โŠข ( ๐‘ โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ( ๐‘ / 4 ) ) โˆˆ โ„ )
43 36 rehalfcld โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ๐‘ โˆ’ 1 ) / 2 ) โˆˆ โ„ )
44 42 8 43 3jca โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( โŒŠ โ€˜ ( ๐‘ / 4 ) ) โˆˆ โ„ โˆง ( ๐‘ / 4 ) โˆˆ โ„ โˆง ( ( ๐‘ โˆ’ 1 ) / 2 ) โˆˆ โ„ ) )
45 1 2 44 3syl โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ( โŒŠ โ€˜ ( ๐‘ / 4 ) ) โˆˆ โ„ โˆง ( ๐‘ / 4 ) โˆˆ โ„ โˆง ( ( ๐‘ โˆ’ 1 ) / 2 ) โˆˆ โ„ ) )
46 letr โŠข ( ( ( โŒŠ โ€˜ ( ๐‘ / 4 ) ) โˆˆ โ„ โˆง ( ๐‘ / 4 ) โˆˆ โ„ โˆง ( ( ๐‘ โˆ’ 1 ) / 2 ) โˆˆ โ„ ) โ†’ ( ( ( โŒŠ โ€˜ ( ๐‘ / 4 ) ) โ‰ค ( ๐‘ / 4 ) โˆง ( ๐‘ / 4 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) ) โ†’ ( โŒŠ โ€˜ ( ๐‘ / 4 ) ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) ) )
47 45 46 syl โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( ( ( โŒŠ โ€˜ ( ๐‘ / 4 ) ) โ‰ค ( ๐‘ / 4 ) โˆง ( ๐‘ / 4 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) ) โ†’ ( โŒŠ โ€˜ ( ๐‘ / 4 ) ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) ) )
48 11 40 47 mp2and โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 2 ) โ†’ ( โŒŠ โ€˜ ( ๐‘ / 4 ) ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) )