Metamath Proof Explorer


Theorem flpmodeq

Description: Partition of a division into its integer part and the remainder. (Contributed by Alexander van der Vekens, 14-Apr-2018)

Ref Expression
Assertion flpmodeq ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ( ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) ยท ๐ต ) + ( ๐ด mod ๐ต ) ) = ๐ด )

Proof

Step Hyp Ref Expression
1 modvalr โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ๐ด mod ๐ต ) = ( ๐ด โˆ’ ( ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) ยท ๐ต ) ) )
2 1 eqcomd โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ๐ด โˆ’ ( ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) ยท ๐ต ) ) = ( ๐ด mod ๐ต ) )
3 recn โŠข ( ๐ด โˆˆ โ„ โ†’ ๐ด โˆˆ โ„‚ )
4 3 adantr โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ๐ด โˆˆ โ„‚ )
5 rerpdivcl โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ๐ด / ๐ต ) โˆˆ โ„ )
6 flcl โŠข ( ( ๐ด / ๐ต ) โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) โˆˆ โ„ค )
7 6 zcnd โŠข ( ( ๐ด / ๐ต ) โˆˆ โ„ โ†’ ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) โˆˆ โ„‚ )
8 5 7 syl โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) โˆˆ โ„‚ )
9 rpcn โŠข ( ๐ต โˆˆ โ„+ โ†’ ๐ต โˆˆ โ„‚ )
10 9 adantl โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ๐ต โˆˆ โ„‚ )
11 8 10 mulcld โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) ยท ๐ต ) โˆˆ โ„‚ )
12 modcl โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ๐ด mod ๐ต ) โˆˆ โ„ )
13 12 recnd โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ๐ด mod ๐ต ) โˆˆ โ„‚ )
14 4 11 13 subaddd โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ( ๐ด โˆ’ ( ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) ยท ๐ต ) ) = ( ๐ด mod ๐ต ) โ†” ( ( ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) ยท ๐ต ) + ( ๐ด mod ๐ต ) ) = ๐ด ) )
15 2 14 mpbid โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ( ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) ยท ๐ต ) + ( ๐ด mod ๐ต ) ) = ๐ด )