ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  mulgcddvds GIF version

Theorem mulgcddvds 12093
Description: One half of rpmulgcd2 12094, which does not need the coprimality assumption. (Contributed by Mario Carneiro, 2-Jul-2015.)
Assertion
Ref Expression
mulgcddvds ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((๐พ gcd ๐‘€) ยท (๐พ gcd ๐‘)))

Proof of Theorem mulgcddvds
StepHypRef Expression
1 simp1 997 . . . . . . 7 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ๐พ โˆˆ โ„ค)
2 simp2 998 . . . . . . . 8 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ๐‘€ โˆˆ โ„ค)
3 simp3 999 . . . . . . . 8 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ๐‘ โˆˆ โ„ค)
42, 3zmulcld 9380 . . . . . . 7 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ ยท ๐‘) โˆˆ โ„ค)
51, 4gcdcld 11968 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆˆ โ„•0)
65nn0zd 9372 . . . . 5 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆˆ โ„ค)
7 dvds0 11812 . . . . 5 ((๐พ gcd (๐‘€ ยท ๐‘)) โˆˆ โ„ค โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ 0)
86, 7syl 14 . . . 4 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ 0)
98adantr 276 . . 3 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) = 0) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ 0)
10 oveq2 5882 . . . 4 ((๐พ gcd ๐‘) = 0 โ†’ ((๐พ gcd ๐‘€) ยท (๐พ gcd ๐‘)) = ((๐พ gcd ๐‘€) ยท 0))
111, 2gcdcld 11968 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd ๐‘€) โˆˆ โ„•0)
1211nn0cnd 9230 . . . . 5 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd ๐‘€) โˆˆ โ„‚)
1312mul01d 8349 . . . 4 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ gcd ๐‘€) ยท 0) = 0)
1410, 13sylan9eqr 2232 . . 3 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) = 0) โ†’ ((๐พ gcd ๐‘€) ยท (๐พ gcd ๐‘)) = 0)
159, 14breqtrrd 4031 . 2 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) = 0) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((๐พ gcd ๐‘€) ยท (๐พ gcd ๐‘)))
166adantr 276 . . . . 5 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆˆ โ„ค)
1716zcnd 9375 . . . 4 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆˆ โ„‚)
181, 3gcdcld 11968 . . . . . . 7 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd ๐‘) โˆˆ โ„•0)
1918nn0zd 9372 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd ๐‘) โˆˆ โ„ค)
2019adantr 276 . . . . 5 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (๐พ gcd ๐‘) โˆˆ โ„ค)
2120zcnd 9375 . . . 4 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (๐พ gcd ๐‘) โˆˆ โ„‚)
22 0zd 9264 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ 0 โˆˆ โ„ค)
23 zapne 9326 . . . . . 6 (((๐พ gcd ๐‘) โˆˆ โ„ค โˆง 0 โˆˆ โ„ค) โ†’ ((๐พ gcd ๐‘) # 0 โ†” (๐พ gcd ๐‘) โ‰  0))
2419, 22, 23syl2anc 411 . . . . 5 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ gcd ๐‘) # 0 โ†” (๐พ gcd ๐‘) โ‰  0))
2524biimpar 297 . . . 4 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (๐พ gcd ๐‘) # 0)
2617, 21, 25divcanap1d 8747 . . 3 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) ยท (๐พ gcd ๐‘)) = (๐พ gcd (๐‘€ ยท ๐‘)))
27 gcddvds 11963 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง (๐‘€ ยท ๐‘) โˆˆ โ„ค) โ†’ ((๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ๐พ โˆง (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (๐‘€ ยท ๐‘)))
281, 4, 27syl2anc 411 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ๐พ โˆง (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (๐‘€ ยท ๐‘)))
2928simpld 112 . . . . . . . . 9 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ๐พ)
306, 1, 19, 29dvdsmultr1d 11838 . . . . . . . 8 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (๐พ ยท (๐พ gcd ๐‘)))
3130adantr 276 . . . . . . 7 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (๐พ ยท (๐พ gcd ๐‘)))
3226, 31eqbrtrd 4025 . . . . . 6 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) ยท (๐พ gcd ๐‘)) โˆฅ (๐พ ยท (๐พ gcd ๐‘)))
33 gcddvds 11963 . . . . . . . . . . . 12 ((๐พ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ gcd ๐‘) โˆฅ ๐พ โˆง (๐พ gcd ๐‘) โˆฅ ๐‘))
341, 3, 33syl2anc 411 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ gcd ๐‘) โˆฅ ๐พ โˆง (๐พ gcd ๐‘) โˆฅ ๐‘))
3534simpld 112 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd ๐‘) โˆฅ ๐พ)
3634simprd 114 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd ๐‘) โˆฅ ๐‘)
37 dvdsmultr2 11839 . . . . . . . . . . . 12 (((๐พ gcd ๐‘) โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ gcd ๐‘) โˆฅ ๐‘ โ†’ (๐พ gcd ๐‘) โˆฅ (๐‘€ ยท ๐‘)))
3819, 2, 3, 37syl3anc 1238 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ gcd ๐‘) โˆฅ ๐‘ โ†’ (๐พ gcd ๐‘) โˆฅ (๐‘€ ยท ๐‘)))
3936, 38mpd 13 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd ๐‘) โˆฅ (๐‘€ ยท ๐‘))
40 dvdsgcd 12012 . . . . . . . . . . 11 (((๐พ gcd ๐‘) โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค โˆง (๐‘€ ยท ๐‘) โˆˆ โ„ค) โ†’ (((๐พ gcd ๐‘) โˆฅ ๐พ โˆง (๐พ gcd ๐‘) โˆฅ (๐‘€ ยท ๐‘)) โ†’ (๐พ gcd ๐‘) โˆฅ (๐พ gcd (๐‘€ ยท ๐‘))))
4119, 1, 4, 40syl3anc 1238 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (((๐พ gcd ๐‘) โˆฅ ๐พ โˆง (๐พ gcd ๐‘) โˆฅ (๐‘€ ยท ๐‘)) โ†’ (๐พ gcd ๐‘) โˆฅ (๐พ gcd (๐‘€ ยท ๐‘))))
4235, 39, 41mp2and 433 . . . . . . . . 9 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd ๐‘) โˆฅ (๐พ gcd (๐‘€ ยท ๐‘)))
4342adantr 276 . . . . . . . 8 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (๐พ gcd ๐‘) โˆฅ (๐พ gcd (๐‘€ ยท ๐‘)))
44 simpr 110 . . . . . . . . 9 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (๐พ gcd ๐‘) โ‰  0)
45 dvdsval2 11796 . . . . . . . . 9 (((๐พ gcd ๐‘) โˆˆ โ„ค โˆง (๐พ gcd ๐‘) โ‰  0 โˆง (๐พ gcd (๐‘€ ยท ๐‘)) โˆˆ โ„ค) โ†’ ((๐พ gcd ๐‘) โˆฅ (๐พ gcd (๐‘€ ยท ๐‘)) โ†” ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆˆ โ„ค))
4620, 44, 16, 45syl3anc 1238 . . . . . . . 8 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ ((๐พ gcd ๐‘) โˆฅ (๐พ gcd (๐‘€ ยท ๐‘)) โ†” ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆˆ โ„ค))
4743, 46mpbid 147 . . . . . . 7 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆˆ โ„ค)
481adantr 276 . . . . . . 7 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ ๐พ โˆˆ โ„ค)
49 dvdsmulcr 11827 . . . . . . 7 ((((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค โˆง ((๐พ gcd ๐‘) โˆˆ โ„ค โˆง (๐พ gcd ๐‘) โ‰  0)) โ†’ ((((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) ยท (๐พ gcd ๐‘)) โˆฅ (๐พ ยท (๐พ gcd ๐‘)) โ†” ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ ๐พ))
5047, 48, 20, 44, 49syl112anc 1242 . . . . . 6 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ ((((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) ยท (๐พ gcd ๐‘)) โˆฅ (๐พ ยท (๐พ gcd ๐‘)) โ†” ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ ๐พ))
5132, 50mpbid 147 . . . . 5 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ ๐พ)
52 nn0abscl 11093 . . . . . . . . . . . . . . 15 (๐‘€ โˆˆ โ„ค โ†’ (absโ€˜๐‘€) โˆˆ โ„•0)
532, 52syl 14 . . . . . . . . . . . . . 14 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (absโ€˜๐‘€) โˆˆ โ„•0)
5453nn0zd 9372 . . . . . . . . . . . . 13 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (absโ€˜๐‘€) โˆˆ โ„ค)
55 dvdsmultr2 11839 . . . . . . . . . . . . 13 (((๐พ gcd (๐‘€ ยท ๐‘)) โˆˆ โ„ค โˆง (absโ€˜๐‘€) โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค) โ†’ ((๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ๐พ โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((absโ€˜๐‘€) ยท ๐พ)))
566, 54, 1, 55syl3anc 1238 . . . . . . . . . . . 12 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ๐พ โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((absโ€˜๐‘€) ยท ๐พ)))
5729, 56mpd 13 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((absโ€˜๐‘€) ยท ๐พ))
5828simprd 114 . . . . . . . . . . . 12 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (๐‘€ ยท ๐‘))
59 iddvds 11810 . . . . . . . . . . . . . . 15 (๐‘€ โˆˆ โ„ค โ†’ ๐‘€ โˆฅ ๐‘€)
602, 59syl 14 . . . . . . . . . . . . . 14 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ๐‘€ โˆฅ ๐‘€)
61 dvdsabsb 11816 . . . . . . . . . . . . . . 15 ((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค) โ†’ (๐‘€ โˆฅ ๐‘€ โ†” ๐‘€ โˆฅ (absโ€˜๐‘€)))
622, 2, 61syl2anc 411 . . . . . . . . . . . . . 14 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ โˆฅ ๐‘€ โ†” ๐‘€ โˆฅ (absโ€˜๐‘€)))
6360, 62mpbid 147 . . . . . . . . . . . . 13 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ๐‘€ โˆฅ (absโ€˜๐‘€))
64 dvdsmulc 11825 . . . . . . . . . . . . . 14 ((๐‘€ โˆˆ โ„ค โˆง (absโ€˜๐‘€) โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ โˆฅ (absโ€˜๐‘€) โ†’ (๐‘€ ยท ๐‘) โˆฅ ((absโ€˜๐‘€) ยท ๐‘)))
652, 54, 3, 64syl3anc 1238 . . . . . . . . . . . . 13 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ โˆฅ (absโ€˜๐‘€) โ†’ (๐‘€ ยท ๐‘) โˆฅ ((absโ€˜๐‘€) ยท ๐‘)))
6663, 65mpd 13 . . . . . . . . . . . 12 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ ยท ๐‘) โˆฅ ((absโ€˜๐‘€) ยท ๐‘))
6754, 3zmulcld 9380 . . . . . . . . . . . . 13 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((absโ€˜๐‘€) ยท ๐‘) โˆˆ โ„ค)
68 dvdstr 11834 . . . . . . . . . . . . 13 (((๐พ gcd (๐‘€ ยท ๐‘)) โˆˆ โ„ค โˆง (๐‘€ ยท ๐‘) โˆˆ โ„ค โˆง ((absโ€˜๐‘€) ยท ๐‘) โˆˆ โ„ค) โ†’ (((๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (๐‘€ ยท ๐‘) โˆง (๐‘€ ยท ๐‘) โˆฅ ((absโ€˜๐‘€) ยท ๐‘)) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((absโ€˜๐‘€) ยท ๐‘)))
696, 4, 67, 68syl3anc 1238 . . . . . . . . . . . 12 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (((๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (๐‘€ ยท ๐‘) โˆง (๐‘€ ยท ๐‘) โˆฅ ((absโ€˜๐‘€) ยท ๐‘)) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((absโ€˜๐‘€) ยท ๐‘)))
7058, 66, 69mp2and 433 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((absโ€˜๐‘€) ยท ๐‘))
7154, 1zmulcld 9380 . . . . . . . . . . . 12 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((absโ€˜๐‘€) ยท ๐พ) โˆˆ โ„ค)
72 dvdsgcd 12012 . . . . . . . . . . . 12 (((๐พ gcd (๐‘€ ยท ๐‘)) โˆˆ โ„ค โˆง ((absโ€˜๐‘€) ยท ๐พ) โˆˆ โ„ค โˆง ((absโ€˜๐‘€) ยท ๐‘) โˆˆ โ„ค) โ†’ (((๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((absโ€˜๐‘€) ยท ๐พ) โˆง (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((absโ€˜๐‘€) ยท ๐‘)) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (((absโ€˜๐‘€) ยท ๐พ) gcd ((absโ€˜๐‘€) ยท ๐‘))))
736, 71, 67, 72syl3anc 1238 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (((๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((absโ€˜๐‘€) ยท ๐พ) โˆง (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((absโ€˜๐‘€) ยท ๐‘)) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (((absโ€˜๐‘€) ยท ๐พ) gcd ((absโ€˜๐‘€) ยท ๐‘))))
7457, 70, 73mp2and 433 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (((absโ€˜๐‘€) ยท ๐พ) gcd ((absโ€˜๐‘€) ยท ๐‘)))
7518nn0red 9229 . . . . . . . . . . . . 13 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd ๐‘) โˆˆ โ„)
7618nn0ge0d 9231 . . . . . . . . . . . . 13 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ 0 โ‰ค (๐พ gcd ๐‘))
7775, 76absidd 11175 . . . . . . . . . . . 12 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (absโ€˜(๐พ gcd ๐‘)) = (๐พ gcd ๐‘))
7877oveq2d 5890 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((absโ€˜๐‘€) ยท (absโ€˜(๐พ gcd ๐‘))) = ((absโ€˜๐‘€) ยท (๐พ gcd ๐‘)))
792zcnd 9375 . . . . . . . . . . . 12 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ๐‘€ โˆˆ โ„‚)
8018nn0cnd 9230 . . . . . . . . . . . 12 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd ๐‘) โˆˆ โ„‚)
8179, 80absmuld 11202 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (absโ€˜(๐‘€ ยท (๐พ gcd ๐‘))) = ((absโ€˜๐‘€) ยท (absโ€˜(๐พ gcd ๐‘))))
82 mulgcd 12016 . . . . . . . . . . . 12 (((absโ€˜๐‘€) โˆˆ โ„•0 โˆง ๐พ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (((absโ€˜๐‘€) ยท ๐พ) gcd ((absโ€˜๐‘€) ยท ๐‘)) = ((absโ€˜๐‘€) ยท (๐พ gcd ๐‘)))
8353, 1, 3, 82syl3anc 1238 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (((absโ€˜๐‘€) ยท ๐พ) gcd ((absโ€˜๐‘€) ยท ๐‘)) = ((absโ€˜๐‘€) ยท (๐พ gcd ๐‘)))
8478, 81, 833eqtr4d 2220 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (absโ€˜(๐‘€ ยท (๐พ gcd ๐‘))) = (((absโ€˜๐‘€) ยท ๐พ) gcd ((absโ€˜๐‘€) ยท ๐‘)))
8574, 84breqtrrd 4031 . . . . . . . . 9 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (absโ€˜(๐‘€ ยท (๐พ gcd ๐‘))))
862, 19zmulcld 9380 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ ยท (๐พ gcd ๐‘)) โˆˆ โ„ค)
87 dvdsabsb 11816 . . . . . . . . . 10 (((๐พ gcd (๐‘€ ยท ๐‘)) โˆˆ โ„ค โˆง (๐‘€ ยท (๐พ gcd ๐‘)) โˆˆ โ„ค) โ†’ ((๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (๐‘€ ยท (๐พ gcd ๐‘)) โ†” (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (absโ€˜(๐‘€ ยท (๐พ gcd ๐‘)))))
886, 86, 87syl2anc 411 . . . . . . . . 9 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (๐‘€ ยท (๐พ gcd ๐‘)) โ†” (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (absโ€˜(๐‘€ ยท (๐พ gcd ๐‘)))))
8985, 88mpbird 167 . . . . . . . 8 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (๐‘€ ยท (๐พ gcd ๐‘)))
9089adantr 276 . . . . . . 7 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ (๐‘€ ยท (๐พ gcd ๐‘)))
9126, 90eqbrtrd 4025 . . . . . 6 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) ยท (๐พ gcd ๐‘)) โˆฅ (๐‘€ ยท (๐พ gcd ๐‘)))
922adantr 276 . . . . . . 7 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ ๐‘€ โˆˆ โ„ค)
93 dvdsmulcr 11827 . . . . . . 7 ((((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ((๐พ gcd ๐‘) โˆˆ โ„ค โˆง (๐พ gcd ๐‘) โ‰  0)) โ†’ ((((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) ยท (๐พ gcd ๐‘)) โˆฅ (๐‘€ ยท (๐พ gcd ๐‘)) โ†” ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ ๐‘€))
9447, 92, 20, 44, 93syl112anc 1242 . . . . . 6 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ ((((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) ยท (๐พ gcd ๐‘)) โˆฅ (๐‘€ ยท (๐พ gcd ๐‘)) โ†” ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ ๐‘€))
9591, 94mpbid 147 . . . . 5 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ ๐‘€)
96 dvdsgcd 12012 . . . . . 6 ((((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค) โ†’ ((((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ ๐พ โˆง ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ ๐‘€) โ†’ ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ (๐พ gcd ๐‘€)))
9747, 48, 92, 96syl3anc 1238 . . . . 5 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ ((((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ ๐พ โˆง ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ ๐‘€) โ†’ ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ (๐พ gcd ๐‘€)))
9851, 95, 97mp2and 433 . . . 4 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ ((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ (๐พ gcd ๐‘€))
9911nn0zd 9372 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd ๐‘€) โˆˆ โ„ค)
10099adantr 276 . . . . 5 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (๐พ gcd ๐‘€) โˆˆ โ„ค)
101 dvdsmulc 11825 . . . . 5 ((((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆˆ โ„ค โˆง (๐พ gcd ๐‘€) โˆˆ โ„ค โˆง (๐พ gcd ๐‘) โˆˆ โ„ค) โ†’ (((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ (๐พ gcd ๐‘€) โ†’ (((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) ยท (๐พ gcd ๐‘)) โˆฅ ((๐พ gcd ๐‘€) ยท (๐พ gcd ๐‘))))
10247, 100, 20, 101syl3anc 1238 . . . 4 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) โˆฅ (๐พ gcd ๐‘€) โ†’ (((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) ยท (๐พ gcd ๐‘)) โˆฅ ((๐พ gcd ๐‘€) ยท (๐พ gcd ๐‘))))
10398, 102mpd 13 . . 3 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (((๐พ gcd (๐‘€ ยท ๐‘)) / (๐พ gcd ๐‘)) ยท (๐พ gcd ๐‘)) โˆฅ ((๐พ gcd ๐‘€) ยท (๐พ gcd ๐‘)))
10426, 103eqbrtrrd 4027 . 2 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ gcd ๐‘) โ‰  0) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((๐พ gcd ๐‘€) ยท (๐พ gcd ๐‘)))
105 zdceq 9327 . . . 4 (((๐พ gcd ๐‘) โˆˆ โ„ค โˆง 0 โˆˆ โ„ค) โ†’ DECID (๐พ gcd ๐‘) = 0)
10619, 22, 105syl2anc 411 . . 3 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ DECID (๐พ gcd ๐‘) = 0)
107 exmiddc 836 . . . 4 (DECID (๐พ gcd ๐‘) = 0 โ†’ ((๐พ gcd ๐‘) = 0 โˆจ ยฌ (๐พ gcd ๐‘) = 0))
108 df-ne 2348 . . . . 5 ((๐พ gcd ๐‘) โ‰  0 โ†” ยฌ (๐พ gcd ๐‘) = 0)
109108orbi2i 762 . . . 4 (((๐พ gcd ๐‘) = 0 โˆจ (๐พ gcd ๐‘) โ‰  0) โ†” ((๐พ gcd ๐‘) = 0 โˆจ ยฌ (๐พ gcd ๐‘) = 0))
110107, 109sylibr 134 . . 3 (DECID (๐พ gcd ๐‘) = 0 โ†’ ((๐พ gcd ๐‘) = 0 โˆจ (๐พ gcd ๐‘) โ‰  0))
111106, 110syl 14 . 2 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ gcd ๐‘) = 0 โˆจ (๐พ gcd ๐‘) โ‰  0))
11215, 104, 111mpjaodan 798 1 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ gcd (๐‘€ ยท ๐‘)) โˆฅ ((๐พ gcd ๐‘€) ยท (๐พ gcd ๐‘)))
Colors of variables: wff set class
Syntax hints:  ยฌ wn 3   โ†’ wi 4   โˆง wa 104   โ†” wb 105   โˆจ wo 708  DECID wdc 834   โˆง w3a 978   = wceq 1353   โˆˆ wcel 2148   โ‰  wne 2347   class class class wbr 4003  โ€˜cfv 5216  (class class class)co 5874  0cc0 7810   ยท cmul 7815   # cap 8537   / cdiv 8628  โ„•0cn0 9175  โ„คcz 9252  abscabs 11005   โˆฅ cdvds 11793   gcd cgcd 11942
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-coll 4118  ax-sep 4121  ax-nul 4129  ax-pow 4174  ax-pr 4209  ax-un 4433  ax-setind 4536  ax-iinf 4587  ax-cnex 7901  ax-resscn 7902  ax-1cn 7903  ax-1re 7904  ax-icn 7905  ax-addcl 7906  ax-addrcl 7907  ax-mulcl 7908  ax-mulrcl 7909  ax-addcom 7910  ax-mulcom 7911  ax-addass 7912  ax-mulass 7913  ax-distr 7914  ax-i2m1 7915  ax-0lt1 7916  ax-1rid 7917  ax-0id 7918  ax-rnegex 7919  ax-precex 7920  ax-cnre 7921  ax-pre-ltirr 7922  ax-pre-ltwlin 7923  ax-pre-lttrn 7924  ax-pre-apti 7925  ax-pre-ltadd 7926  ax-pre-mulgt0 7927  ax-pre-mulext 7928  ax-arch 7929  ax-caucvg 7930
This theorem depends on definitions:  df-bi 117  df-dc 835  df-3or 979  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ne 2348  df-nel 2443  df-ral 2460  df-rex 2461  df-reu 2462  df-rmo 2463  df-rab 2464  df-v 2739  df-sbc 2963  df-csb 3058  df-dif 3131  df-un 3133  df-in 3135  df-ss 3142  df-nul 3423  df-if 3535  df-pw 3577  df-sn 3598  df-pr 3599  df-op 3601  df-uni 3810  df-int 3845  df-iun 3888  df-br 4004  df-opab 4065  df-mpt 4066  df-tr 4102  df-id 4293  df-po 4296  df-iso 4297  df-iord 4366  df-on 4368  df-ilim 4369  df-suc 4371  df-iom 4590  df-xp 4632  df-rel 4633  df-cnv 4634  df-co 4635  df-dm 4636  df-rn 4637  df-res 4638  df-ima 4639  df-iota 5178  df-fun 5218  df-fn 5219  df-f 5220  df-f1 5221  df-fo 5222  df-f1o 5223  df-fv 5224  df-riota 5830  df-ov 5877  df-oprab 5878  df-mpo 5879  df-1st 6140  df-2nd 6141  df-recs 6305  df-frec 6391  df-sup 6982  df-pnf 7993  df-mnf 7994  df-xr 7995  df-ltxr 7996  df-le 7997  df-sub 8129  df-neg 8130  df-reap 8531  df-ap 8538  df-div 8629  df-inn 8919  df-2 8977  df-3 8978  df-4 8979  df-n0 9176  df-z 9253  df-uz 9528  df-q 9619  df-rp 9653  df-fz 10008  df-fzo 10142  df-fl 10269  df-mod 10322  df-seqfrec 10445  df-exp 10519  df-cj 10850  df-re 10851  df-im 10852  df-rsqrt 11006  df-abs 11007  df-dvds 11794  df-gcd 11943
This theorem is referenced by:  rpmulgcd2  12094  rpmul  12097
  Copyright terms: Public domain W3C validator