Metamath Proof Explorer


Theorem mulgcd

Description: Distribute multiplication by a nonnegative integer over gcd. (Contributed by Paul Chapman, 22-Jun-2011) (Proof shortened by Mario Carneiro, 30-May-2014)

Ref Expression
Assertion mulgcd ( ( ๐พ โˆˆ โ„•0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) = ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) )

Proof

Step Hyp Ref Expression
1 elnn0 โŠข ( ๐พ โˆˆ โ„•0 โ†” ( ๐พ โˆˆ โ„• โˆจ ๐พ = 0 ) )
2 simp1 โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐พ โˆˆ โ„• )
3 2 nnzd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐พ โˆˆ โ„ค )
4 simp2 โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐‘€ โˆˆ โ„ค )
5 3 4 zmulcld โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ๐‘€ ) โˆˆ โ„ค )
6 simp3 โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐‘ โˆˆ โ„ค )
7 3 6 zmulcld โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ๐‘ ) โˆˆ โ„ค )
8 5 7 gcdcld โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โˆˆ โ„•0 )
9 2 nnnn0d โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐พ โˆˆ โ„•0 )
10 gcdcl โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ gcd ๐‘ ) โˆˆ โ„•0 )
11 10 3adant1 โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ gcd ๐‘ ) โˆˆ โ„•0 )
12 9 11 nn0mulcld โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆˆ โ„•0 )
13 8 nn0cnd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โˆˆ โ„‚ )
14 2 nncnd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐พ โˆˆ โ„‚ )
15 2 nnne0d โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐พ โ‰  0 )
16 13 14 15 divcan2d โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) ) = ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) )
17 gcddvds โŠข ( ( ( ๐พ ยท ๐‘€ ) โˆˆ โ„ค โˆง ( ๐พ ยท ๐‘ ) โˆˆ โ„ค ) โ†’ ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘€ ) โˆง ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘ ) ) )
18 5 7 17 syl2anc โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘€ ) โˆง ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘ ) ) )
19 18 simpld โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘€ ) )
20 16 19 eqbrtrd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) ) โˆฅ ( ๐พ ยท ๐‘€ ) )
21 dvdsmul1 โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค ) โ†’ ๐พ โˆฅ ( ๐พ ยท ๐‘€ ) )
22 3 4 21 syl2anc โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐พ โˆฅ ( ๐พ ยท ๐‘€ ) )
23 dvdsmul1 โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐พ โˆฅ ( ๐พ ยท ๐‘ ) )
24 3 6 23 syl2anc โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐พ โˆฅ ( ๐พ ยท ๐‘ ) )
25 dvdsgcd โŠข ( ( ๐พ โˆˆ โ„ค โˆง ( ๐พ ยท ๐‘€ ) โˆˆ โ„ค โˆง ( ๐พ ยท ๐‘ ) โˆˆ โ„ค ) โ†’ ( ( ๐พ โˆฅ ( ๐พ ยท ๐‘€ ) โˆง ๐พ โˆฅ ( ๐พ ยท ๐‘ ) ) โ†’ ๐พ โˆฅ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) ) )
26 3 5 7 25 syl3anc โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ โˆฅ ( ๐พ ยท ๐‘€ ) โˆง ๐พ โˆฅ ( ๐พ ยท ๐‘ ) ) โ†’ ๐พ โˆฅ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) ) )
27 22 24 26 mp2and โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐พ โˆฅ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) )
28 8 nn0zd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โˆˆ โ„ค )
29 dvdsval2 โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0 โˆง ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โˆˆ โ„ค ) โ†’ ( ๐พ โˆฅ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โ†” ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆˆ โ„ค ) )
30 3 15 28 29 syl3anc โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ โˆฅ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โ†” ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆˆ โ„ค ) )
31 27 30 mpbid โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆˆ โ„ค )
32 dvdscmulr โŠข ( ( ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ( ๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0 ) ) โ†’ ( ( ๐พ ยท ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) ) โˆฅ ( ๐พ ยท ๐‘€ ) โ†” ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ๐‘€ ) )
33 31 4 3 15 32 syl112anc โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) ) โˆฅ ( ๐พ ยท ๐‘€ ) โ†” ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ๐‘€ ) )
34 20 33 mpbid โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ๐‘€ )
35 18 simprd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘ ) )
36 16 35 eqbrtrd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) ) โˆฅ ( ๐พ ยท ๐‘ ) )
37 dvdscmulr โŠข ( ( ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ( ๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0 ) ) โ†’ ( ( ๐พ ยท ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) ) โˆฅ ( ๐พ ยท ๐‘ ) โ†” ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ๐‘ ) )
38 31 6 3 15 37 syl112anc โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) ) โˆฅ ( ๐พ ยท ๐‘ ) โ†” ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ๐‘ ) )
39 36 38 mpbid โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ๐‘ )
40 dvdsgcd โŠข ( ( ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ๐‘€ โˆง ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ๐‘ ) โ†’ ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ( ๐‘€ gcd ๐‘ ) ) )
41 31 4 6 40 syl3anc โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ๐‘€ โˆง ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ๐‘ ) โ†’ ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ( ๐‘€ gcd ๐‘ ) ) )
42 34 39 41 mp2and โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ( ๐‘€ gcd ๐‘ ) )
43 11 nn0zd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ gcd ๐‘ ) โˆˆ โ„ค )
44 dvdscmul โŠข ( ( ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆˆ โ„ค โˆง ( ๐‘€ gcd ๐‘ ) โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ( ๐‘€ gcd ๐‘ ) โ†’ ( ๐พ ยท ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) ) โˆฅ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) ) )
45 31 43 3 44 syl3anc โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) โˆฅ ( ๐‘€ gcd ๐‘ ) โ†’ ( ๐พ ยท ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) ) โˆฅ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) ) )
46 42 45 mpd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) / ๐พ ) ) โˆฅ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) )
47 16 46 eqbrtrrd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โˆฅ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) )
48 gcddvds โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ gcd ๐‘ ) โˆฅ ๐‘€ โˆง ( ๐‘€ gcd ๐‘ ) โˆฅ ๐‘ ) )
49 48 3adant1 โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ gcd ๐‘ ) โˆฅ ๐‘€ โˆง ( ๐‘€ gcd ๐‘ ) โˆฅ ๐‘ ) )
50 49 simpld โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ gcd ๐‘ ) โˆฅ ๐‘€ )
51 dvdscmul โŠข ( ( ( ๐‘€ gcd ๐‘ ) โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ gcd ๐‘ ) โˆฅ ๐‘€ โ†’ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘€ ) ) )
52 43 4 3 51 syl3anc โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ gcd ๐‘ ) โˆฅ ๐‘€ โ†’ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘€ ) ) )
53 50 52 mpd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘€ ) )
54 49 simprd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ gcd ๐‘ ) โˆฅ ๐‘ )
55 dvdscmul โŠข ( ( ( ๐‘€ gcd ๐‘ ) โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ gcd ๐‘ ) โˆฅ ๐‘ โ†’ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘ ) ) )
56 43 6 3 55 syl3anc โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ gcd ๐‘ ) โˆฅ ๐‘ โ†’ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘ ) ) )
57 54 56 mpd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘ ) )
58 12 nn0zd โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆˆ โ„ค )
59 dvdsgcd โŠข ( ( ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆˆ โ„ค โˆง ( ๐พ ยท ๐‘€ ) โˆˆ โ„ค โˆง ( ๐พ ยท ๐‘ ) โˆˆ โ„ค ) โ†’ ( ( ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘€ ) โˆง ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘ ) ) โ†’ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) ) )
60 58 5 7 59 syl3anc โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘€ ) โˆง ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ๐พ ยท ๐‘ ) ) โ†’ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) ) )
61 53 57 60 mp2and โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) )
62 dvdseq โŠข ( ( ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โˆˆ โ„•0 โˆง ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆˆ โ„•0 ) โˆง ( ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) โˆฅ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆง ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) โˆฅ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) ) ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) = ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) )
63 8 12 47 61 62 syl22anc โŠข ( ( ๐พ โˆˆ โ„• โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) = ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) )
64 63 3expib โŠข ( ๐พ โˆˆ โ„• โ†’ ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) = ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) ) )
65 gcd0val โŠข ( 0 gcd 0 ) = 0
66 10 3adant1 โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ gcd ๐‘ ) โˆˆ โ„•0 )
67 66 nn0cnd โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ gcd ๐‘ ) โˆˆ โ„‚ )
68 67 mul02d โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( 0 ยท ( ๐‘€ gcd ๐‘ ) ) = 0 )
69 65 68 eqtr4id โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( 0 gcd 0 ) = ( 0 ยท ( ๐‘€ gcd ๐‘ ) ) )
70 simp1 โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐พ = 0 )
71 70 oveq1d โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ๐‘€ ) = ( 0 ยท ๐‘€ ) )
72 zcn โŠข ( ๐‘€ โˆˆ โ„ค โ†’ ๐‘€ โˆˆ โ„‚ )
73 72 3ad2ant2 โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐‘€ โˆˆ โ„‚ )
74 73 mul02d โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( 0 ยท ๐‘€ ) = 0 )
75 71 74 eqtrd โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ๐‘€ ) = 0 )
76 70 oveq1d โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ๐‘ ) = ( 0 ยท ๐‘ ) )
77 zcn โŠข ( ๐‘ โˆˆ โ„ค โ†’ ๐‘ โˆˆ โ„‚ )
78 77 3ad2ant3 โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ๐‘ โˆˆ โ„‚ )
79 78 mul02d โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( 0 ยท ๐‘ ) = 0 )
80 76 79 eqtrd โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ๐‘ ) = 0 )
81 75 80 oveq12d โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) = ( 0 gcd 0 ) )
82 70 oveq1d โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) = ( 0 ยท ( ๐‘€ gcd ๐‘ ) ) )
83 69 81 82 3eqtr4d โŠข ( ( ๐พ = 0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) = ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) )
84 83 3expib โŠข ( ๐พ = 0 โ†’ ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) = ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) ) )
85 64 84 jaoi โŠข ( ( ๐พ โˆˆ โ„• โˆจ ๐พ = 0 ) โ†’ ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) = ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) ) )
86 1 85 sylbi โŠข ( ๐พ โˆˆ โ„•0 โ†’ ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) = ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) ) )
87 86 3impib โŠข ( ( ๐พ โˆˆ โ„•0 โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐พ ยท ๐‘€ ) gcd ( ๐พ ยท ๐‘ ) ) = ( ๐พ ยท ( ๐‘€ gcd ๐‘ ) ) )