Metamath Proof Explorer


Theorem flmulnn0

Description: Move a nonnegative integer in and out of a floor. (Contributed by NM, 2-Jan-2009) (Proof shortened by Fan Zheng, 7-Jun-2016)

Ref Expression
Assertion flmulnn0 ( ( ๐‘ โˆˆ โ„•0 โˆง ๐ด โˆˆ โ„ ) โ†’ ( ๐‘ ยท ( โŒŠ โ€˜ ๐ด ) ) โ‰ค ( โŒŠ โ€˜ ( ๐‘ ยท ๐ด ) ) )

Proof

Step Hyp Ref Expression
1 reflcl โŠข ( ๐ด โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ๐ด ) โˆˆ โ„ )
2 1 adantl โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐ด โˆˆ โ„ ) โ†’ ( โŒŠ โ€˜ ๐ด ) โˆˆ โ„ )
3 simpr โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐ด โˆˆ โ„ ) โ†’ ๐ด โˆˆ โ„ )
4 simpl โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐ด โˆˆ โ„ ) โ†’ ๐‘ โˆˆ โ„•0 )
5 4 nn0red โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐ด โˆˆ โ„ ) โ†’ ๐‘ โˆˆ โ„ )
6 4 nn0ge0d โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐ด โˆˆ โ„ ) โ†’ 0 โ‰ค ๐‘ )
7 flle โŠข ( ๐ด โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ๐ด ) โ‰ค ๐ด )
8 7 adantl โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐ด โˆˆ โ„ ) โ†’ ( โŒŠ โ€˜ ๐ด ) โ‰ค ๐ด )
9 2 3 5 6 8 lemul2ad โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐ด โˆˆ โ„ ) โ†’ ( ๐‘ ยท ( โŒŠ โ€˜ ๐ด ) ) โ‰ค ( ๐‘ ยท ๐ด ) )
10 5 3 remulcld โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐ด โˆˆ โ„ ) โ†’ ( ๐‘ ยท ๐ด ) โˆˆ โ„ )
11 nn0z โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ๐‘ โˆˆ โ„ค )
12 flcl โŠข ( ๐ด โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ๐ด ) โˆˆ โ„ค )
13 zmulcl โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ( โŒŠ โ€˜ ๐ด ) โˆˆ โ„ค ) โ†’ ( ๐‘ ยท ( โŒŠ โ€˜ ๐ด ) ) โˆˆ โ„ค )
14 11 12 13 syl2an โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐ด โˆˆ โ„ ) โ†’ ( ๐‘ ยท ( โŒŠ โ€˜ ๐ด ) ) โˆˆ โ„ค )
15 flge โŠข ( ( ( ๐‘ ยท ๐ด ) โˆˆ โ„ โˆง ( ๐‘ ยท ( โŒŠ โ€˜ ๐ด ) ) โˆˆ โ„ค ) โ†’ ( ( ๐‘ ยท ( โŒŠ โ€˜ ๐ด ) ) โ‰ค ( ๐‘ ยท ๐ด ) โ†” ( ๐‘ ยท ( โŒŠ โ€˜ ๐ด ) ) โ‰ค ( โŒŠ โ€˜ ( ๐‘ ยท ๐ด ) ) ) )
16 10 14 15 syl2anc โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐ด โˆˆ โ„ ) โ†’ ( ( ๐‘ ยท ( โŒŠ โ€˜ ๐ด ) ) โ‰ค ( ๐‘ ยท ๐ด ) โ†” ( ๐‘ ยท ( โŒŠ โ€˜ ๐ด ) ) โ‰ค ( โŒŠ โ€˜ ( ๐‘ ยท ๐ด ) ) ) )
17 9 16 mpbid โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐ด โˆˆ โ„ ) โ†’ ( ๐‘ ยท ( โŒŠ โ€˜ ๐ด ) ) โ‰ค ( โŒŠ โ€˜ ( ๐‘ ยท ๐ด ) ) )