Metamath Proof Explorer


Theorem modcl

Description: Closure law for the modulo operation. (Contributed by NM, 10-Nov-2008)

Ref Expression
Assertion modcl ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ๐ด mod ๐ต ) โˆˆ โ„ )

Proof

Step Hyp Ref Expression
1 modval โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ๐ด mod ๐ต ) = ( ๐ด โˆ’ ( ๐ต ยท ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) ) ) )
2 rpre โŠข ( ๐ต โˆˆ โ„+ โ†’ ๐ต โˆˆ โ„ )
3 2 adantl โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ๐ต โˆˆ โ„ )
4 refldivcl โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) โˆˆ โ„ )
5 3 4 remulcld โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ๐ต ยท ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) ) โˆˆ โ„ )
6 resubcl โŠข ( ( ๐ด โˆˆ โ„ โˆง ( ๐ต ยท ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) ) โˆˆ โ„ ) โ†’ ( ๐ด โˆ’ ( ๐ต ยท ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) ) ) โˆˆ โ„ )
7 5 6 syldan โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ๐ด โˆ’ ( ๐ต ยท ( โŒŠ โ€˜ ( ๐ด / ๐ต ) ) ) ) โˆˆ โ„ )
8 1 7 eqeltrd โŠข ( ( ๐ด โˆˆ โ„ โˆง ๐ต โˆˆ โ„+ ) โ†’ ( ๐ด mod ๐ต ) โˆˆ โ„ )