Metamath Proof Explorer


Theorem div4p1lem1div2

Description: An integer greater than 5, divided by 4 and increased by 1, is less than or equal to the half of the integer minus 1. (Contributed by AV, 8-Jul-2021)

Ref Expression
Assertion div4p1lem1div2 ( ( ๐‘ โˆˆ โ„ โˆง 6 โ‰ค ๐‘ ) โ†’ ( ( ๐‘ / 4 ) + 1 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) )

Proof

Step Hyp Ref Expression
1 6re โŠข 6 โˆˆ โ„
2 1 a1i โŠข ( ๐‘ โˆˆ โ„ โ†’ 6 โˆˆ โ„ )
3 id โŠข ( ๐‘ โˆˆ โ„ โ†’ ๐‘ โˆˆ โ„ )
4 2 3 3 leadd2d โŠข ( ๐‘ โˆˆ โ„ โ†’ ( 6 โ‰ค ๐‘ โ†” ( ๐‘ + 6 ) โ‰ค ( ๐‘ + ๐‘ ) ) )
5 4 biimpa โŠข ( ( ๐‘ โˆˆ โ„ โˆง 6 โ‰ค ๐‘ ) โ†’ ( ๐‘ + 6 ) โ‰ค ( ๐‘ + ๐‘ ) )
6 recn โŠข ( ๐‘ โˆˆ โ„ โ†’ ๐‘ โˆˆ โ„‚ )
7 6 times2d โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ๐‘ ยท 2 ) = ( ๐‘ + ๐‘ ) )
8 7 adantr โŠข ( ( ๐‘ โˆˆ โ„ โˆง 6 โ‰ค ๐‘ ) โ†’ ( ๐‘ ยท 2 ) = ( ๐‘ + ๐‘ ) )
9 5 8 breqtrrd โŠข ( ( ๐‘ โˆˆ โ„ โˆง 6 โ‰ค ๐‘ ) โ†’ ( ๐‘ + 6 ) โ‰ค ( ๐‘ ยท 2 ) )
10 4cn โŠข 4 โˆˆ โ„‚
11 10 a1i โŠข ( ๐‘ โˆˆ โ„ โ†’ 4 โˆˆ โ„‚ )
12 2cn โŠข 2 โˆˆ โ„‚
13 12 a1i โŠข ( ๐‘ โˆˆ โ„ โ†’ 2 โˆˆ โ„‚ )
14 6 11 13 addassd โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ๐‘ + 4 ) + 2 ) = ( ๐‘ + ( 4 + 2 ) ) )
15 4p2e6 โŠข ( 4 + 2 ) = 6
16 15 oveq2i โŠข ( ๐‘ + ( 4 + 2 ) ) = ( ๐‘ + 6 )
17 14 16 eqtrdi โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ๐‘ + 4 ) + 2 ) = ( ๐‘ + 6 ) )
18 17 breq1d โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ( ๐‘ + 4 ) + 2 ) โ‰ค ( ๐‘ ยท 2 ) โ†” ( ๐‘ + 6 ) โ‰ค ( ๐‘ ยท 2 ) ) )
19 18 adantr โŠข ( ( ๐‘ โˆˆ โ„ โˆง 6 โ‰ค ๐‘ ) โ†’ ( ( ( ๐‘ + 4 ) + 2 ) โ‰ค ( ๐‘ ยท 2 ) โ†” ( ๐‘ + 6 ) โ‰ค ( ๐‘ ยท 2 ) ) )
20 9 19 mpbird โŠข ( ( ๐‘ โˆˆ โ„ โˆง 6 โ‰ค ๐‘ ) โ†’ ( ( ๐‘ + 4 ) + 2 ) โ‰ค ( ๐‘ ยท 2 ) )
21 4re โŠข 4 โˆˆ โ„
22 21 a1i โŠข ( ๐‘ โˆˆ โ„ โ†’ 4 โˆˆ โ„ )
23 4ne0 โŠข 4 โ‰  0
24 23 a1i โŠข ( ๐‘ โˆˆ โ„ โ†’ 4 โ‰  0 )
25 3 22 24 redivcld โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ๐‘ / 4 ) โˆˆ โ„ )
26 peano2re โŠข ( ( ๐‘ / 4 ) โˆˆ โ„ โ†’ ( ( ๐‘ / 4 ) + 1 ) โˆˆ โ„ )
27 25 26 syl โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ๐‘ / 4 ) + 1 ) โˆˆ โ„ )
28 peano2rem โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ๐‘ โˆ’ 1 ) โˆˆ โ„ )
29 28 rehalfcld โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ๐‘ โˆ’ 1 ) / 2 ) โˆˆ โ„ )
30 4pos โŠข 0 < 4
31 21 30 pm3.2i โŠข ( 4 โˆˆ โ„ โˆง 0 < 4 )
32 31 a1i โŠข ( ๐‘ โˆˆ โ„ โ†’ ( 4 โˆˆ โ„ โˆง 0 < 4 ) )
33 lemul1 โŠข ( ( ( ( ๐‘ / 4 ) + 1 ) โˆˆ โ„ โˆง ( ( ๐‘ โˆ’ 1 ) / 2 ) โˆˆ โ„ โˆง ( 4 โˆˆ โ„ โˆง 0 < 4 ) ) โ†’ ( ( ( ๐‘ / 4 ) + 1 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) โ†” ( ( ( ๐‘ / 4 ) + 1 ) ยท 4 ) โ‰ค ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท 4 ) ) )
34 27 29 32 33 syl3anc โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ( ๐‘ / 4 ) + 1 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) โ†” ( ( ( ๐‘ / 4 ) + 1 ) ยท 4 ) โ‰ค ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท 4 ) ) )
35 25 recnd โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ๐‘ / 4 ) โˆˆ โ„‚ )
36 1cnd โŠข ( ๐‘ โˆˆ โ„ โ†’ 1 โˆˆ โ„‚ )
37 6 11 24 divcan1d โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ๐‘ / 4 ) ยท 4 ) = ๐‘ )
38 10 mullidi โŠข ( 1 ยท 4 ) = 4
39 38 a1i โŠข ( ๐‘ โˆˆ โ„ โ†’ ( 1 ยท 4 ) = 4 )
40 37 39 oveq12d โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ( ๐‘ / 4 ) ยท 4 ) + ( 1 ยท 4 ) ) = ( ๐‘ + 4 ) )
41 35 11 36 40 joinlmuladdmuld โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ( ๐‘ / 4 ) + 1 ) ยท 4 ) = ( ๐‘ + 4 ) )
42 2t2e4 โŠข ( 2 ยท 2 ) = 4
43 42 eqcomi โŠข 4 = ( 2 ยท 2 )
44 43 a1i โŠข ( ๐‘ โˆˆ โ„ โ†’ 4 = ( 2 ยท 2 ) )
45 44 oveq2d โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท 4 ) = ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท ( 2 ยท 2 ) ) )
46 29 recnd โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ๐‘ โˆ’ 1 ) / 2 ) โˆˆ โ„‚ )
47 mulass โŠข ( ( ( ( ๐‘ โˆ’ 1 ) / 2 ) โˆˆ โ„‚ โˆง 2 โˆˆ โ„‚ โˆง 2 โˆˆ โ„‚ ) โ†’ ( ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท 2 ) ยท 2 ) = ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท ( 2 ยท 2 ) ) )
48 47 eqcomd โŠข ( ( ( ( ๐‘ โˆ’ 1 ) / 2 ) โˆˆ โ„‚ โˆง 2 โˆˆ โ„‚ โˆง 2 โˆˆ โ„‚ ) โ†’ ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท ( 2 ยท 2 ) ) = ( ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท 2 ) ยท 2 ) )
49 46 13 13 48 syl3anc โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท ( 2 ยท 2 ) ) = ( ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท 2 ) ยท 2 ) )
50 28 recnd โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ๐‘ โˆ’ 1 ) โˆˆ โ„‚ )
51 2ne0 โŠข 2 โ‰  0
52 51 a1i โŠข ( ๐‘ โˆˆ โ„ โ†’ 2 โ‰  0 )
53 50 13 52 divcan1d โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท 2 ) = ( ๐‘ โˆ’ 1 ) )
54 53 oveq1d โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท 2 ) ยท 2 ) = ( ( ๐‘ โˆ’ 1 ) ยท 2 ) )
55 6 36 13 subdird โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ๐‘ โˆ’ 1 ) ยท 2 ) = ( ( ๐‘ ยท 2 ) โˆ’ ( 1 ยท 2 ) ) )
56 12 mullidi โŠข ( 1 ยท 2 ) = 2
57 56 a1i โŠข ( ๐‘ โˆˆ โ„ โ†’ ( 1 ยท 2 ) = 2 )
58 57 oveq2d โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ๐‘ ยท 2 ) โˆ’ ( 1 ยท 2 ) ) = ( ( ๐‘ ยท 2 ) โˆ’ 2 ) )
59 54 55 58 3eqtrd โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท 2 ) ยท 2 ) = ( ( ๐‘ ยท 2 ) โˆ’ 2 ) )
60 45 49 59 3eqtrd โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท 4 ) = ( ( ๐‘ ยท 2 ) โˆ’ 2 ) )
61 41 60 breq12d โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ( ( ๐‘ / 4 ) + 1 ) ยท 4 ) โ‰ค ( ( ( ๐‘ โˆ’ 1 ) / 2 ) ยท 4 ) โ†” ( ๐‘ + 4 ) โ‰ค ( ( ๐‘ ยท 2 ) โˆ’ 2 ) ) )
62 3 22 readdcld โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ๐‘ + 4 ) โˆˆ โ„ )
63 2re โŠข 2 โˆˆ โ„
64 63 a1i โŠข ( ๐‘ โˆˆ โ„ โ†’ 2 โˆˆ โ„ )
65 3 64 remulcld โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ๐‘ ยท 2 ) โˆˆ โ„ )
66 leaddsub โŠข ( ( ( ๐‘ + 4 ) โˆˆ โ„ โˆง 2 โˆˆ โ„ โˆง ( ๐‘ ยท 2 ) โˆˆ โ„ ) โ†’ ( ( ( ๐‘ + 4 ) + 2 ) โ‰ค ( ๐‘ ยท 2 ) โ†” ( ๐‘ + 4 ) โ‰ค ( ( ๐‘ ยท 2 ) โˆ’ 2 ) ) )
67 66 bicomd โŠข ( ( ( ๐‘ + 4 ) โˆˆ โ„ โˆง 2 โˆˆ โ„ โˆง ( ๐‘ ยท 2 ) โˆˆ โ„ ) โ†’ ( ( ๐‘ + 4 ) โ‰ค ( ( ๐‘ ยท 2 ) โˆ’ 2 ) โ†” ( ( ๐‘ + 4 ) + 2 ) โ‰ค ( ๐‘ ยท 2 ) ) )
68 62 64 65 67 syl3anc โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ๐‘ + 4 ) โ‰ค ( ( ๐‘ ยท 2 ) โˆ’ 2 ) โ†” ( ( ๐‘ + 4 ) + 2 ) โ‰ค ( ๐‘ ยท 2 ) ) )
69 34 61 68 3bitrd โŠข ( ๐‘ โˆˆ โ„ โ†’ ( ( ( ๐‘ / 4 ) + 1 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) โ†” ( ( ๐‘ + 4 ) + 2 ) โ‰ค ( ๐‘ ยท 2 ) ) )
70 69 adantr โŠข ( ( ๐‘ โˆˆ โ„ โˆง 6 โ‰ค ๐‘ ) โ†’ ( ( ( ๐‘ / 4 ) + 1 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) โ†” ( ( ๐‘ + 4 ) + 2 ) โ‰ค ( ๐‘ ยท 2 ) ) )
71 20 70 mpbird โŠข ( ( ๐‘ โˆˆ โ„ โˆง 6 โ‰ค ๐‘ ) โ†’ ( ( ๐‘ / 4 ) + 1 ) โ‰ค ( ( ๐‘ โˆ’ 1 ) / 2 ) )