Metamath Proof Explorer


Theorem halfleoddlt

Description: An integer is greater than half of an odd number iff it is greater than or equal to the half of the odd number. (Contributed by AV, 1-Jul-2021)

Ref Expression
Assertion halfleoddlt ( ( ๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ( ๐‘ / 2 ) โ‰ค ๐‘€ โ†” ( ๐‘ / 2 ) < ๐‘€ ) )

Proof

Step Hyp Ref Expression
1 odd2np1 โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ยฌ 2 โˆฅ ๐‘ โ†” โˆƒ ๐‘› โˆˆ โ„ค ( ( 2 ยท ๐‘› ) + 1 ) = ๐‘ ) )
2 0xr โŠข 0 โˆˆ โ„*
3 1xr โŠข 1 โˆˆ โ„*
4 halfre โŠข ( 1 / 2 ) โˆˆ โ„
5 4 rexri โŠข ( 1 / 2 ) โˆˆ โ„*
6 2 3 5 3pm3.2i โŠข ( 0 โˆˆ โ„* โˆง 1 โˆˆ โ„* โˆง ( 1 / 2 ) โˆˆ โ„* )
7 halfgt0 โŠข 0 < ( 1 / 2 )
8 halflt1 โŠข ( 1 / 2 ) < 1
9 7 8 pm3.2i โŠข ( 0 < ( 1 / 2 ) โˆง ( 1 / 2 ) < 1 )
10 elioo3g โŠข ( ( 1 / 2 ) โˆˆ ( 0 (,) 1 ) โ†” ( ( 0 โˆˆ โ„* โˆง 1 โˆˆ โ„* โˆง ( 1 / 2 ) โˆˆ โ„* ) โˆง ( 0 < ( 1 / 2 ) โˆง ( 1 / 2 ) < 1 ) ) )
11 6 9 10 mpbir2an โŠข ( 1 / 2 ) โˆˆ ( 0 (,) 1 )
12 zltaddlt1le โŠข ( ( ๐‘› โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ( 1 / 2 ) โˆˆ ( 0 (,) 1 ) ) โ†’ ( ( ๐‘› + ( 1 / 2 ) ) < ๐‘€ โ†” ( ๐‘› + ( 1 / 2 ) ) โ‰ค ๐‘€ ) )
13 11 12 mp3an3 โŠข ( ( ๐‘› โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ( ๐‘› + ( 1 / 2 ) ) < ๐‘€ โ†” ( ๐‘› + ( 1 / 2 ) ) โ‰ค ๐‘€ ) )
14 zcn โŠข ( ๐‘› โˆˆ โ„ค โ†’ ๐‘› โˆˆ โ„‚ )
15 14 adantr โŠข ( ( ๐‘› โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ๐‘› โˆˆ โ„‚ )
16 1cnd โŠข ( ( ๐‘› โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ 1 โˆˆ โ„‚ )
17 2cnne0 โŠข ( 2 โˆˆ โ„‚ โˆง 2 โ‰  0 )
18 17 a1i โŠข ( ( ๐‘› โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( 2 โˆˆ โ„‚ โˆง 2 โ‰  0 ) )
19 muldivdir โŠข ( ( ๐‘› โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚ โˆง ( 2 โˆˆ โ„‚ โˆง 2 โ‰  0 ) ) โ†’ ( ( ( 2 ยท ๐‘› ) + 1 ) / 2 ) = ( ๐‘› + ( 1 / 2 ) ) )
20 15 16 18 19 syl3anc โŠข ( ( ๐‘› โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ( ( 2 ยท ๐‘› ) + 1 ) / 2 ) = ( ๐‘› + ( 1 / 2 ) ) )
21 20 breq1d โŠข ( ( ๐‘› โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ( ( ( 2 ยท ๐‘› ) + 1 ) / 2 ) < ๐‘€ โ†” ( ๐‘› + ( 1 / 2 ) ) < ๐‘€ ) )
22 20 breq1d โŠข ( ( ๐‘› โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ( ( ( 2 ยท ๐‘› ) + 1 ) / 2 ) โ‰ค ๐‘€ โ†” ( ๐‘› + ( 1 / 2 ) ) โ‰ค ๐‘€ ) )
23 13 21 22 3bitr4rd โŠข ( ( ๐‘› โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ( ( ( 2 ยท ๐‘› ) + 1 ) / 2 ) โ‰ค ๐‘€ โ†” ( ( ( 2 ยท ๐‘› ) + 1 ) / 2 ) < ๐‘€ ) )
24 oveq1 โŠข ( ( ( 2 ยท ๐‘› ) + 1 ) = ๐‘ โ†’ ( ( ( 2 ยท ๐‘› ) + 1 ) / 2 ) = ( ๐‘ / 2 ) )
25 24 breq1d โŠข ( ( ( 2 ยท ๐‘› ) + 1 ) = ๐‘ โ†’ ( ( ( ( 2 ยท ๐‘› ) + 1 ) / 2 ) โ‰ค ๐‘€ โ†” ( ๐‘ / 2 ) โ‰ค ๐‘€ ) )
26 24 breq1d โŠข ( ( ( 2 ยท ๐‘› ) + 1 ) = ๐‘ โ†’ ( ( ( ( 2 ยท ๐‘› ) + 1 ) / 2 ) < ๐‘€ โ†” ( ๐‘ / 2 ) < ๐‘€ ) )
27 25 26 bibi12d โŠข ( ( ( 2 ยท ๐‘› ) + 1 ) = ๐‘ โ†’ ( ( ( ( ( 2 ยท ๐‘› ) + 1 ) / 2 ) โ‰ค ๐‘€ โ†” ( ( ( 2 ยท ๐‘› ) + 1 ) / 2 ) < ๐‘€ ) โ†” ( ( ๐‘ / 2 ) โ‰ค ๐‘€ โ†” ( ๐‘ / 2 ) < ๐‘€ ) ) )
28 23 27 syl5ibcom โŠข ( ( ๐‘› โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ( ( 2 ยท ๐‘› ) + 1 ) = ๐‘ โ†’ ( ( ๐‘ / 2 ) โ‰ค ๐‘€ โ†” ( ๐‘ / 2 ) < ๐‘€ ) ) )
29 28 ex โŠข ( ๐‘› โˆˆ โ„ค โ†’ ( ๐‘€ โˆˆ โ„ค โ†’ ( ( ( 2 ยท ๐‘› ) + 1 ) = ๐‘ โ†’ ( ( ๐‘ / 2 ) โ‰ค ๐‘€ โ†” ( ๐‘ / 2 ) < ๐‘€ ) ) ) )
30 29 adantl โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘› โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆˆ โ„ค โ†’ ( ( ( 2 ยท ๐‘› ) + 1 ) = ๐‘ โ†’ ( ( ๐‘ / 2 ) โ‰ค ๐‘€ โ†” ( ๐‘ / 2 ) < ๐‘€ ) ) ) )
31 30 com23 โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘› โˆˆ โ„ค ) โ†’ ( ( ( 2 ยท ๐‘› ) + 1 ) = ๐‘ โ†’ ( ๐‘€ โˆˆ โ„ค โ†’ ( ( ๐‘ / 2 ) โ‰ค ๐‘€ โ†” ( ๐‘ / 2 ) < ๐‘€ ) ) ) )
32 31 rexlimdva โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( โˆƒ ๐‘› โˆˆ โ„ค ( ( 2 ยท ๐‘› ) + 1 ) = ๐‘ โ†’ ( ๐‘€ โˆˆ โ„ค โ†’ ( ( ๐‘ / 2 ) โ‰ค ๐‘€ โ†” ( ๐‘ / 2 ) < ๐‘€ ) ) ) )
33 1 32 sylbid โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ยฌ 2 โˆฅ ๐‘ โ†’ ( ๐‘€ โˆˆ โ„ค โ†’ ( ( ๐‘ / 2 ) โ‰ค ๐‘€ โ†” ( ๐‘ / 2 ) < ๐‘€ ) ) ) )
34 33 3imp โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ยฌ 2 โˆฅ ๐‘ โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ( ๐‘ / 2 ) โ‰ค ๐‘€ โ†” ( ๐‘ / 2 ) < ๐‘€ ) )