Metamath Proof Explorer


Theorem modmulmodr

Description: The product of an integer and a real number modulo a positive real number equals the product of the integer and the real number modulo the positive real number. (Contributed by Alexander van der Vekens, 9-Jul-2021)

Ref Expression
Assertion modmulmodr ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ( ( ๐ด ยท ( ๐ต mod ๐‘€ ) ) mod ๐‘€ ) = ( ( ๐ด ยท ๐ต ) mod ๐‘€ ) )

Proof

Step Hyp Ref Expression
1 zcn โŠข ( ๐ด โˆˆ โ„ค โ†’ ๐ด โˆˆ โ„‚ )
2 1 3ad2ant1 โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ๐ด โˆˆ โ„‚ )
3 simp2 โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ๐ต โˆˆ โ„ )
4 simp3 โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ๐‘€ โˆˆ โ„+ )
5 3 4 modcld โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ( ๐ต mod ๐‘€ ) โˆˆ โ„ )
6 5 recnd โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ( ๐ต mod ๐‘€ ) โˆˆ โ„‚ )
7 2 6 mulcomd โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ( ๐ด ยท ( ๐ต mod ๐‘€ ) ) = ( ( ๐ต mod ๐‘€ ) ยท ๐ด ) )
8 7 oveq1d โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ( ( ๐ด ยท ( ๐ต mod ๐‘€ ) ) mod ๐‘€ ) = ( ( ( ๐ต mod ๐‘€ ) ยท ๐ด ) mod ๐‘€ ) )
9 modmulmod โŠข ( ( ๐ต โˆˆ โ„ โˆง ๐ด โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ( ( ( ๐ต mod ๐‘€ ) ยท ๐ด ) mod ๐‘€ ) = ( ( ๐ต ยท ๐ด ) mod ๐‘€ ) )
10 9 3com12 โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ( ( ( ๐ต mod ๐‘€ ) ยท ๐ด ) mod ๐‘€ ) = ( ( ๐ต ยท ๐ด ) mod ๐‘€ ) )
11 recn โŠข ( ๐ต โˆˆ โ„ โ†’ ๐ต โˆˆ โ„‚ )
12 1 11 anim12ci โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ ) โ†’ ( ๐ต โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) )
13 12 3adant3 โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ( ๐ต โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) )
14 mulcom โŠข ( ( ๐ต โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) โ†’ ( ๐ต ยท ๐ด ) = ( ๐ด ยท ๐ต ) )
15 13 14 syl โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ( ๐ต ยท ๐ด ) = ( ๐ด ยท ๐ต ) )
16 15 oveq1d โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ( ( ๐ต ยท ๐ด ) mod ๐‘€ ) = ( ( ๐ด ยท ๐ต ) mod ๐‘€ ) )
17 8 10 16 3eqtrd โŠข ( ( ๐ด โˆˆ โ„ค โˆง ๐ต โˆˆ โ„ โˆง ๐‘€ โˆˆ โ„+ ) โ†’ ( ( ๐ด ยท ( ๐ต mod ๐‘€ ) ) mod ๐‘€ ) = ( ( ๐ด ยท ๐ต ) mod ๐‘€ ) )