Metamath Proof Explorer


Theorem dvds2lem

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

Ref Expression
Hypotheses dvds2lem.1 โŠข ( ๐œ‘ โ†’ ( ๐ผ โˆˆ โ„ค โˆง ๐ฝ โˆˆ โ„ค ) )
dvds2lem.2 โŠข ( ๐œ‘ โ†’ ( ๐พ โˆˆ โ„ค โˆง ๐ฟ โˆˆ โ„ค ) )
dvds2lem.3 โŠข ( ๐œ‘ โ†’ ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) )
dvds2lem.4 โŠข ( ( ๐œ‘ โˆง ( ๐‘ฅ โˆˆ โ„ค โˆง ๐‘ฆ โˆˆ โ„ค ) ) โ†’ ๐‘ โˆˆ โ„ค )
dvds2lem.5 โŠข ( ( ๐œ‘ โˆง ( ๐‘ฅ โˆˆ โ„ค โˆง ๐‘ฆ โˆˆ โ„ค ) ) โ†’ ( ( ( ๐‘ฅ ยท ๐ผ ) = ๐ฝ โˆง ( ๐‘ฆ ยท ๐พ ) = ๐ฟ ) โ†’ ( ๐‘ ยท ๐‘€ ) = ๐‘ ) )
Assertion dvds2lem ( ๐œ‘ โ†’ ( ( ๐ผ โˆฅ ๐ฝ โˆง ๐พ โˆฅ ๐ฟ ) โ†’ ๐‘€ โˆฅ ๐‘ ) )

Proof

Step Hyp Ref Expression
1 dvds2lem.1 โŠข ( ๐œ‘ โ†’ ( ๐ผ โˆˆ โ„ค โˆง ๐ฝ โˆˆ โ„ค ) )
2 dvds2lem.2 โŠข ( ๐œ‘ โ†’ ( ๐พ โˆˆ โ„ค โˆง ๐ฟ โˆˆ โ„ค ) )
3 dvds2lem.3 โŠข ( ๐œ‘ โ†’ ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) )
4 dvds2lem.4 โŠข ( ( ๐œ‘ โˆง ( ๐‘ฅ โˆˆ โ„ค โˆง ๐‘ฆ โˆˆ โ„ค ) ) โ†’ ๐‘ โˆˆ โ„ค )
5 dvds2lem.5 โŠข ( ( ๐œ‘ โˆง ( ๐‘ฅ โˆˆ โ„ค โˆง ๐‘ฆ โˆˆ โ„ค ) ) โ†’ ( ( ( ๐‘ฅ ยท ๐ผ ) = ๐ฝ โˆง ( ๐‘ฆ ยท ๐พ ) = ๐ฟ ) โ†’ ( ๐‘ ยท ๐‘€ ) = ๐‘ ) )
6 divides โŠข ( ( ๐ผ โˆˆ โ„ค โˆง ๐ฝ โˆˆ โ„ค ) โ†’ ( ๐ผ โˆฅ ๐ฝ โ†” โˆƒ ๐‘ฅ โˆˆ โ„ค ( ๐‘ฅ ยท ๐ผ ) = ๐ฝ ) )
7 divides โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐ฟ โˆˆ โ„ค ) โ†’ ( ๐พ โˆฅ ๐ฟ โ†” โˆƒ ๐‘ฆ โˆˆ โ„ค ( ๐‘ฆ ยท ๐พ ) = ๐ฟ ) )
8 6 7 bi2anan9 โŠข ( ( ( ๐ผ โˆˆ โ„ค โˆง ๐ฝ โˆˆ โ„ค ) โˆง ( ๐พ โˆˆ โ„ค โˆง ๐ฟ โˆˆ โ„ค ) ) โ†’ ( ( ๐ผ โˆฅ ๐ฝ โˆง ๐พ โˆฅ ๐ฟ ) โ†” ( โˆƒ ๐‘ฅ โˆˆ โ„ค ( ๐‘ฅ ยท ๐ผ ) = ๐ฝ โˆง โˆƒ ๐‘ฆ โˆˆ โ„ค ( ๐‘ฆ ยท ๐พ ) = ๐ฟ ) ) )
9 1 2 8 syl2anc โŠข ( ๐œ‘ โ†’ ( ( ๐ผ โˆฅ ๐ฝ โˆง ๐พ โˆฅ ๐ฟ ) โ†” ( โˆƒ ๐‘ฅ โˆˆ โ„ค ( ๐‘ฅ ยท ๐ผ ) = ๐ฝ โˆง โˆƒ ๐‘ฆ โˆˆ โ„ค ( ๐‘ฆ ยท ๐พ ) = ๐ฟ ) ) )
10 9 biimpd โŠข ( ๐œ‘ โ†’ ( ( ๐ผ โˆฅ ๐ฝ โˆง ๐พ โˆฅ ๐ฟ ) โ†’ ( โˆƒ ๐‘ฅ โˆˆ โ„ค ( ๐‘ฅ ยท ๐ผ ) = ๐ฝ โˆง โˆƒ ๐‘ฆ โˆˆ โ„ค ( ๐‘ฆ ยท ๐พ ) = ๐ฟ ) ) )
11 reeanv โŠข ( โˆƒ ๐‘ฅ โˆˆ โ„ค โˆƒ ๐‘ฆ โˆˆ โ„ค ( ( ๐‘ฅ ยท ๐ผ ) = ๐ฝ โˆง ( ๐‘ฆ ยท ๐พ ) = ๐ฟ ) โ†” ( โˆƒ ๐‘ฅ โˆˆ โ„ค ( ๐‘ฅ ยท ๐ผ ) = ๐ฝ โˆง โˆƒ ๐‘ฆ โˆˆ โ„ค ( ๐‘ฆ ยท ๐พ ) = ๐ฟ ) )
12 10 11 imbitrrdi โŠข ( ๐œ‘ โ†’ ( ( ๐ผ โˆฅ ๐ฝ โˆง ๐พ โˆฅ ๐ฟ ) โ†’ โˆƒ ๐‘ฅ โˆˆ โ„ค โˆƒ ๐‘ฆ โˆˆ โ„ค ( ( ๐‘ฅ ยท ๐ผ ) = ๐ฝ โˆง ( ๐‘ฆ ยท ๐พ ) = ๐ฟ ) ) )
13 oveq1 โŠข ( ๐‘ง = ๐‘ โ†’ ( ๐‘ง ยท ๐‘€ ) = ( ๐‘ ยท ๐‘€ ) )
14 13 eqeq1d โŠข ( ๐‘ง = ๐‘ โ†’ ( ( ๐‘ง ยท ๐‘€ ) = ๐‘ โ†” ( ๐‘ ยท ๐‘€ ) = ๐‘ ) )
15 14 rspcev โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ( ๐‘ ยท ๐‘€ ) = ๐‘ ) โ†’ โˆƒ ๐‘ง โˆˆ โ„ค ( ๐‘ง ยท ๐‘€ ) = ๐‘ )
16 4 5 15 syl6an โŠข ( ( ๐œ‘ โˆง ( ๐‘ฅ โˆˆ โ„ค โˆง ๐‘ฆ โˆˆ โ„ค ) ) โ†’ ( ( ( ๐‘ฅ ยท ๐ผ ) = ๐ฝ โˆง ( ๐‘ฆ ยท ๐พ ) = ๐ฟ ) โ†’ โˆƒ ๐‘ง โˆˆ โ„ค ( ๐‘ง ยท ๐‘€ ) = ๐‘ ) )
17 16 rexlimdvva โŠข ( ๐œ‘ โ†’ ( โˆƒ ๐‘ฅ โˆˆ โ„ค โˆƒ ๐‘ฆ โˆˆ โ„ค ( ( ๐‘ฅ ยท ๐ผ ) = ๐ฝ โˆง ( ๐‘ฆ ยท ๐พ ) = ๐ฟ ) โ†’ โˆƒ ๐‘ง โˆˆ โ„ค ( ๐‘ง ยท ๐‘€ ) = ๐‘ ) )
18 12 17 syld โŠข ( ๐œ‘ โ†’ ( ( ๐ผ โˆฅ ๐ฝ โˆง ๐พ โˆฅ ๐ฟ ) โ†’ โˆƒ ๐‘ง โˆˆ โ„ค ( ๐‘ง ยท ๐‘€ ) = ๐‘ ) )
19 divides โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆฅ ๐‘ โ†” โˆƒ ๐‘ง โˆˆ โ„ค ( ๐‘ง ยท ๐‘€ ) = ๐‘ ) )
20 3 19 syl โŠข ( ๐œ‘ โ†’ ( ๐‘€ โˆฅ ๐‘ โ†” โˆƒ ๐‘ง โˆˆ โ„ค ( ๐‘ง ยท ๐‘€ ) = ๐‘ ) )
21 18 20 sylibrd โŠข ( ๐œ‘ โ†’ ( ( ๐ผ โˆฅ ๐ฝ โˆง ๐พ โˆฅ ๐ฟ ) โ†’ ๐‘€ โˆฅ ๐‘ ) )