Metamath Proof Explorer


Theorem muldvds2

Description: If a product divides an integer, so does one of its factors. (Contributed by Paul Chapman, 21-Mar-2011)

Ref Expression
Assertion muldvds2 ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) โˆฅ ๐‘ โ†’ ๐‘€ โˆฅ ๐‘ ) )

Proof

Step Hyp Ref Expression
1 zmulcl โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ๐‘€ ) โˆˆ โ„ค )
2 1 anim1i โŠข ( ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) )
3 2 3impa โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) )
4 3simpc โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) )
5 zmulcl โŠข ( ( ๐‘ฅ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ๐‘ฅ ยท ๐พ ) โˆˆ โ„ค )
6 5 ancoms โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ๐‘ฅ ยท ๐พ ) โˆˆ โ„ค )
7 6 3ad2antl1 โŠข ( ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ๐‘ฅ ยท ๐พ ) โˆˆ โ„ค )
8 zcn โŠข ( ๐‘ฅ โˆˆ โ„ค โ†’ ๐‘ฅ โˆˆ โ„‚ )
9 zcn โŠข ( ๐พ โˆˆ โ„ค โ†’ ๐พ โˆˆ โ„‚ )
10 zcn โŠข ( ๐‘€ โˆˆ โ„ค โ†’ ๐‘€ โˆˆ โ„‚ )
11 mulass โŠข ( ( ๐‘ฅ โˆˆ โ„‚ โˆง ๐พ โˆˆ โ„‚ โˆง ๐‘€ โˆˆ โ„‚ ) โ†’ ( ( ๐‘ฅ ยท ๐พ ) ยท ๐‘€ ) = ( ๐‘ฅ ยท ( ๐พ ยท ๐‘€ ) ) )
12 8 9 10 11 syl3an โŠข ( ( ๐‘ฅ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ( ( ๐‘ฅ ยท ๐พ ) ยท ๐‘€ ) = ( ๐‘ฅ ยท ( ๐พ ยท ๐‘€ ) ) )
13 12 3coml โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ( ๐‘ฅ ยท ๐พ ) ยท ๐‘€ ) = ( ๐‘ฅ ยท ( ๐พ ยท ๐‘€ ) ) )
14 13 3expa โŠข ( ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ( ๐‘ฅ ยท ๐พ ) ยท ๐‘€ ) = ( ๐‘ฅ ยท ( ๐พ ยท ๐‘€ ) ) )
15 14 3adantl3 โŠข ( ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ( ๐‘ฅ ยท ๐พ ) ยท ๐‘€ ) = ( ๐‘ฅ ยท ( ๐พ ยท ๐‘€ ) ) )
16 15 eqeq1d โŠข ( ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ( ( ๐‘ฅ ยท ๐พ ) ยท ๐‘€ ) = ๐‘ โ†” ( ๐‘ฅ ยท ( ๐พ ยท ๐‘€ ) ) = ๐‘ ) )
17 16 biimprd โŠข ( ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐‘ฅ โˆˆ โ„ค ) โ†’ ( ( ๐‘ฅ ยท ( ๐พ ยท ๐‘€ ) ) = ๐‘ โ†’ ( ( ๐‘ฅ ยท ๐พ ) ยท ๐‘€ ) = ๐‘ ) )
18 3 4 7 17 dvds1lem โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) โˆฅ ๐‘ โ†’ ๐‘€ โˆฅ ๐‘ ) )