Metamath Proof Explorer


Theorem dvds0lem

Description: A lemma to assist theorems of || with no antecedents. (Contributed by Paul Chapman, 21-Mar-2011)

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

Proof

Step Hyp Ref Expression
1 oveq1 โŠข ( ๐‘ฅ = ๐พ โ†’ ( ๐‘ฅ ยท ๐‘€ ) = ( ๐พ ยท ๐‘€ ) )
2 1 eqeq1d โŠข ( ๐‘ฅ = ๐พ โ†’ ( ( ๐‘ฅ ยท ๐‘€ ) = ๐‘ โ†” ( ๐พ ยท ๐‘€ ) = ๐‘ ) )
3 2 rspcev โŠข ( ( ๐พ โˆˆ โ„ค โˆง ( ๐พ ยท ๐‘€ ) = ๐‘ ) โ†’ โˆƒ ๐‘ฅ โˆˆ โ„ค ( ๐‘ฅ ยท ๐‘€ ) = ๐‘ )
4 3 adantl โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ( ๐พ โˆˆ โ„ค โˆง ( ๐พ ยท ๐‘€ ) = ๐‘ ) ) โ†’ โˆƒ ๐‘ฅ โˆˆ โ„ค ( ๐‘ฅ ยท ๐‘€ ) = ๐‘ )
5 divides โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆฅ ๐‘ โ†” โˆƒ ๐‘ฅ โˆˆ โ„ค ( ๐‘ฅ ยท ๐‘€ ) = ๐‘ ) )
6 5 adantr โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ( ๐พ โˆˆ โ„ค โˆง ( ๐พ ยท ๐‘€ ) = ๐‘ ) ) โ†’ ( ๐‘€ โˆฅ ๐‘ โ†” โˆƒ ๐‘ฅ โˆˆ โ„ค ( ๐‘ฅ ยท ๐‘€ ) = ๐‘ ) )
7 4 6 mpbird โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ( ๐พ โˆˆ โ„ค โˆง ( ๐พ ยท ๐‘€ ) = ๐‘ ) ) โ†’ ๐‘€ โˆฅ ๐‘ )
8 7 expr โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) = ๐‘ โ†’ ๐‘€ โˆฅ ๐‘ ) )
9 8 3impa โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) = ๐‘ โ†’ ๐‘€ โˆฅ ๐‘ ) )
10 9 3comr โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) = ๐‘ โ†’ ๐‘€ โˆฅ ๐‘ ) )
11 10 imp โŠข ( ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ( ๐พ ยท ๐‘€ ) = ๐‘ ) โ†’ ๐‘€ โˆฅ ๐‘ )