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

Theorem gcdaddm 11984
Description: Adding a multiple of one operand of the gcd operator to the other does not alter the result. (Contributed by Paul Chapman, 31-Mar-2011.)
Assertion
Ref Expression
gcdaddm ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ๐‘) = (๐‘€ gcd (๐‘ + (๐พ ยท ๐‘€))))

Proof of Theorem gcdaddm
StepHypRef Expression
1 gcddvds 11963 . . . . . . . . 9 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ gcd ๐‘) โˆฅ ๐‘€ โˆง (๐‘€ gcd ๐‘) โˆฅ ๐‘))
213adant1 1015 . . . . . . . 8 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ gcd ๐‘) โˆฅ ๐‘€ โˆง (๐‘€ gcd ๐‘) โˆฅ ๐‘))
32simpld 112 . . . . . . 7 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ๐‘) โˆฅ ๐‘€)
4 simp1 997 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ๐พ โˆˆ โ„ค)
5 1zzd 9279 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ 1 โˆˆ โ„ค)
6 gcdcl 11966 . . . . . . . . . . . 12 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ๐‘) โˆˆ โ„•0)
763adant1 1015 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ๐‘) โˆˆ โ„•0)
87nn0zd 9372 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ๐‘) โˆˆ โ„ค)
9 simp2 998 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ๐‘€ โˆˆ โ„ค)
10 simp3 999 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ๐‘ โˆˆ โ„ค)
11 dvds2ln 11830 . . . . . . . . . 10 (((๐พ โˆˆ โ„ค โˆง 1 โˆˆ โ„ค) โˆง ((๐‘€ gcd ๐‘) โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค)) โ†’ (((๐‘€ gcd ๐‘) โˆฅ ๐‘€ โˆง (๐‘€ gcd ๐‘) โˆฅ ๐‘) โ†’ (๐‘€ gcd ๐‘) โˆฅ ((๐พ ยท ๐‘€) + (1 ยท ๐‘))))
124, 5, 8, 9, 10, 11syl23anc 1245 . . . . . . . . 9 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (((๐‘€ gcd ๐‘) โˆฅ ๐‘€ โˆง (๐‘€ gcd ๐‘) โˆฅ ๐‘) โ†’ (๐‘€ gcd ๐‘) โˆฅ ((๐พ ยท ๐‘€) + (1 ยท ๐‘))))
132, 12mpd 13 . . . . . . . 8 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ๐‘) โˆฅ ((๐พ ยท ๐‘€) + (1 ยท ๐‘)))
1410zcnd 9375 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ๐‘ โˆˆ โ„‚)
1514mulid2d 7975 . . . . . . . . 9 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (1 ยท ๐‘) = ๐‘)
1615oveq2d 5890 . . . . . . . 8 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ ยท ๐‘€) + (1 ยท ๐‘)) = ((๐พ ยท ๐‘€) + ๐‘))
1713, 16breqtrd 4029 . . . . . . 7 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ๐‘) โˆฅ ((๐พ ยท ๐‘€) + ๐‘))
183, 17jca 306 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ gcd ๐‘) โˆฅ ๐‘€ โˆง (๐‘€ gcd ๐‘) โˆฅ ((๐พ ยท ๐‘€) + ๐‘)))
194, 9zmulcld 9380 . . . . . . . 8 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ ยท ๐‘€) โˆˆ โ„ค)
2019, 10zaddcld 9378 . . . . . . 7 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ ยท ๐‘€) + ๐‘) โˆˆ โ„ค)
21 dvdslegcd 11964 . . . . . . . 8 ((((๐‘€ gcd ๐‘) โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ((๐พ ยท ๐‘€) + ๐‘) โˆˆ โ„ค) โˆง ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0)) โ†’ (((๐‘€ gcd ๐‘) โˆฅ ๐‘€ โˆง (๐‘€ gcd ๐‘) โˆฅ ((๐พ ยท ๐‘€) + ๐‘)) โ†’ (๐‘€ gcd ๐‘) โ‰ค (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘))))
2221ex 115 . . . . . . 7 (((๐‘€ gcd ๐‘) โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ((๐พ ยท ๐‘€) + ๐‘) โˆˆ โ„ค) โ†’ (ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โ†’ (((๐‘€ gcd ๐‘) โˆฅ ๐‘€ โˆง (๐‘€ gcd ๐‘) โˆฅ ((๐พ ยท ๐‘€) + ๐‘)) โ†’ (๐‘€ gcd ๐‘) โ‰ค (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)))))
238, 9, 20, 22syl3anc 1238 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โ†’ (((๐‘€ gcd ๐‘) โˆฅ ๐‘€ โˆง (๐‘€ gcd ๐‘) โˆฅ ((๐พ ยท ๐‘€) + ๐‘)) โ†’ (๐‘€ gcd ๐‘) โ‰ค (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)))))
2418, 23mpid 42 . . . . 5 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โ†’ (๐‘€ gcd ๐‘) โ‰ค (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘))))
25 gcddvds 11963 . . . . . . . . 9 ((๐‘€ โˆˆ โ„ค โˆง ((๐พ ยท ๐‘€) + ๐‘) โˆˆ โ„ค) โ†’ ((๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘€ โˆง (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ((๐พ ยท ๐‘€) + ๐‘)))
269, 20, 25syl2anc 411 . . . . . . . 8 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘€ โˆง (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ((๐พ ยท ๐‘€) + ๐‘)))
2726simpld 112 . . . . . . 7 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘€)
284znegcld 9376 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ -๐พ โˆˆ โ„ค)
299, 20gcdcld 11968 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆˆ โ„•0)
3029nn0zd 9372 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆˆ โ„ค)
31 dvds2ln 11830 . . . . . . . . . 10 (((-๐พ โˆˆ โ„ค โˆง 1 โˆˆ โ„ค) โˆง ((๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ((๐พ ยท ๐‘€) + ๐‘) โˆˆ โ„ค)) โ†’ (((๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘€ โˆง (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ((๐พ ยท ๐‘€) + ๐‘)) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ((-๐พ ยท ๐‘€) + (1 ยท ((๐พ ยท ๐‘€) + ๐‘)))))
3228, 5, 30, 9, 20, 31syl23anc 1245 . . . . . . . . 9 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (((๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘€ โˆง (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ((๐พ ยท ๐‘€) + ๐‘)) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ((-๐พ ยท ๐‘€) + (1 ยท ((๐พ ยท ๐‘€) + ๐‘)))))
3326, 32mpd 13 . . . . . . . 8 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ((-๐พ ยท ๐‘€) + (1 ยท ((๐พ ยท ๐‘€) + ๐‘))))
344zcnd 9375 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ๐พ โˆˆ โ„‚)
359zcnd 9375 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ๐‘€ โˆˆ โ„‚)
3634, 35mulneg1d 8367 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (-๐พ ยท ๐‘€) = -(๐พ ยท ๐‘€))
3720zcnd 9375 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ ยท ๐‘€) + ๐‘) โˆˆ โ„‚)
3837mulid2d 7975 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (1 ยท ((๐พ ยท ๐‘€) + ๐‘)) = ((๐พ ยท ๐‘€) + ๐‘))
3936, 38oveq12d 5892 . . . . . . . . 9 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((-๐พ ยท ๐‘€) + (1 ยท ((๐พ ยท ๐‘€) + ๐‘))) = (-(๐พ ยท ๐‘€) + ((๐พ ยท ๐‘€) + ๐‘)))
4034, 35mulcld 7977 . . . . . . . . . . . . 13 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ ยท ๐‘€) โˆˆ โ„‚)
4140negcld 8254 . . . . . . . . . . . . 13 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ -(๐พ ยท ๐‘€) โˆˆ โ„‚)
4240, 41addcomd 8107 . . . . . . . . . . . 12 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ ยท ๐‘€) + -(๐พ ยท ๐‘€)) = (-(๐พ ยท ๐‘€) + (๐พ ยท ๐‘€)))
4340negidd 8257 . . . . . . . . . . . 12 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ ยท ๐‘€) + -(๐พ ยท ๐‘€)) = 0)
4442, 43eqtr3d 2212 . . . . . . . . . . 11 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (-(๐พ ยท ๐‘€) + (๐พ ยท ๐‘€)) = 0)
4544oveq1d 5889 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((-(๐พ ยท ๐‘€) + (๐พ ยท ๐‘€)) + ๐‘) = (0 + ๐‘))
4641, 40, 14addassd 7979 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((-(๐พ ยท ๐‘€) + (๐พ ยท ๐‘€)) + ๐‘) = (-(๐พ ยท ๐‘€) + ((๐พ ยท ๐‘€) + ๐‘)))
4714addid2d 8106 . . . . . . . . . 10 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (0 + ๐‘) = ๐‘)
4845, 46, 473eqtr3d 2218 . . . . . . . . 9 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (-(๐พ ยท ๐‘€) + ((๐พ ยท ๐‘€) + ๐‘)) = ๐‘)
4939, 48eqtrd 2210 . . . . . . . 8 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((-๐พ ยท ๐‘€) + (1 ยท ((๐พ ยท ๐‘€) + ๐‘))) = ๐‘)
5033, 49breqtrd 4029 . . . . . . 7 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘)
5127, 50jca 306 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘€ โˆง (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘))
52 dvdslegcd 11964 . . . . . . . 8 ((((๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ยฌ (๐‘€ = 0 โˆง ๐‘ = 0)) โ†’ (((๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘€ โˆง (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โ‰ค (๐‘€ gcd ๐‘)))
5352ex 115 . . . . . . 7 (((๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (ยฌ (๐‘€ = 0 โˆง ๐‘ = 0) โ†’ (((๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘€ โˆง (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โ‰ค (๐‘€ gcd ๐‘))))
5430, 9, 10, 53syl3anc 1238 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (ยฌ (๐‘€ = 0 โˆง ๐‘ = 0) โ†’ (((๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘€ โˆง (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆฅ ๐‘) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โ‰ค (๐‘€ gcd ๐‘))))
5551, 54mpid 42 . . . . 5 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (ยฌ (๐‘€ = 0 โˆง ๐‘ = 0) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โ‰ค (๐‘€ gcd ๐‘)))
5624, 55anim12d 335 . . . 4 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆง ยฌ (๐‘€ = 0 โˆง ๐‘ = 0)) โ†’ ((๐‘€ gcd ๐‘) โ‰ค (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆง (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โ‰ค (๐‘€ gcd ๐‘))))
577nn0red 9229 . . . . 5 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ๐‘) โˆˆ โ„)
5829nn0red 9229 . . . . 5 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆˆ โ„)
5957, 58letri3d 8072 . . . 4 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ gcd ๐‘) = (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โ†” ((๐‘€ gcd ๐‘) โ‰ค (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โˆง (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) โ‰ค (๐‘€ gcd ๐‘))))
6056, 59sylibrd 169 . . 3 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆง ยฌ (๐‘€ = 0 โˆง ๐‘ = 0)) โ†’ (๐‘€ gcd ๐‘) = (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘))))
61 0zd 9264 . . . . . . 7 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ 0 โˆˆ โ„ค)
62 zdceq 9327 . . . . . . 7 ((๐‘€ โˆˆ โ„ค โˆง 0 โˆˆ โ„ค) โ†’ DECID ๐‘€ = 0)
639, 61, 62syl2anc 411 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ DECID ๐‘€ = 0)
64 zdceq 9327 . . . . . . 7 ((((๐พ ยท ๐‘€) + ๐‘) โˆˆ โ„ค โˆง 0 โˆˆ โ„ค) โ†’ DECID ((๐พ ยท ๐‘€) + ๐‘) = 0)
6520, 61, 64syl2anc 411 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ DECID ((๐พ ยท ๐‘€) + ๐‘) = 0)
66 dcan2 934 . . . . . 6 (DECID ๐‘€ = 0 โ†’ (DECID ((๐พ ยท ๐‘€) + ๐‘) = 0 โ†’ DECID (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0)))
6763, 65, 66sylc 62 . . . . 5 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ DECID (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0))
68 zdceq 9327 . . . . . . 7 ((๐‘ โˆˆ โ„ค โˆง 0 โˆˆ โ„ค) โ†’ DECID ๐‘ = 0)
6910, 61, 68syl2anc 411 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ DECID ๐‘ = 0)
70 dcan2 934 . . . . . 6 (DECID ๐‘€ = 0 โ†’ (DECID ๐‘ = 0 โ†’ DECID (๐‘€ = 0 โˆง ๐‘ = 0)))
7163, 69, 70sylc 62 . . . . 5 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ DECID (๐‘€ = 0 โˆง ๐‘ = 0))
72 orandc 939 . . . . 5 ((DECID (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆง DECID (๐‘€ = 0 โˆง ๐‘ = 0)) โ†’ (((๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆจ (๐‘€ = 0 โˆง ๐‘ = 0)) โ†” ยฌ (ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆง ยฌ (๐‘€ = 0 โˆง ๐‘ = 0))))
7367, 71, 72syl2anc 411 . . . 4 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (((๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆจ (๐‘€ = 0 โˆง ๐‘ = 0)) โ†” ยฌ (ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆง ยฌ (๐‘€ = 0 โˆง ๐‘ = 0))))
74 simpr 110 . . . . . . . . . . . 12 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐‘€ = 0) โ†’ ๐‘€ = 0)
7574oveq2d 5890 . . . . . . . . . . 11 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐‘€ = 0) โ†’ (๐พ ยท ๐‘€) = (๐พ ยท 0))
7634mul01d 8349 . . . . . . . . . . . 12 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐พ ยท 0) = 0)
7776adantr 276 . . . . . . . . . . 11 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐‘€ = 0) โ†’ (๐พ ยท 0) = 0)
7875, 77eqtrd 2210 . . . . . . . . . 10 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐‘€ = 0) โ†’ (๐พ ยท ๐‘€) = 0)
7978oveq1d 5889 . . . . . . . . 9 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐‘€ = 0) โ†’ ((๐พ ยท ๐‘€) + ๐‘) = (0 + ๐‘))
8047adantr 276 . . . . . . . . 9 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐‘€ = 0) โ†’ (0 + ๐‘) = ๐‘)
8179, 80eqtrd 2210 . . . . . . . 8 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐‘€ = 0) โ†’ ((๐พ ยท ๐‘€) + ๐‘) = ๐‘)
8281eqeq1d 2186 . . . . . . 7 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐‘€ = 0) โ†’ (((๐พ ยท ๐‘€) + ๐‘) = 0 โ†” ๐‘ = 0))
8382pm5.32da 452 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โ†” (๐‘€ = 0 โˆง ๐‘ = 0)))
84 oveq12 5883 . . . . . . . . 9 ((๐‘€ = 0 โˆง ๐‘ = 0) โ†’ (๐‘€ gcd ๐‘) = (0 gcd 0))
8584adantl 277 . . . . . . . 8 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐‘€ = 0 โˆง ๐‘ = 0)) โ†’ (๐‘€ gcd ๐‘) = (0 gcd 0))
86 oveq12 5883 . . . . . . . . . 10 ((๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) = (0 gcd 0))
8783, 86syl6bir 164 . . . . . . . . 9 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ = 0 โˆง ๐‘ = 0) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) = (0 gcd 0)))
8887imp 124 . . . . . . . 8 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐‘€ = 0 โˆง ๐‘ = 0)) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) = (0 gcd 0))
8985, 88eqtr4d 2213 . . . . . . 7 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐‘€ = 0 โˆง ๐‘ = 0)) โ†’ (๐‘€ gcd ๐‘) = (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)))
9089ex 115 . . . . . 6 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ = 0 โˆง ๐‘ = 0) โ†’ (๐‘€ gcd ๐‘) = (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘))))
9183, 90sylbid 150 . . . . 5 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โ†’ (๐‘€ gcd ๐‘) = (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘))))
9291, 90jaod 717 . . . 4 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (((๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆจ (๐‘€ = 0 โˆง ๐‘ = 0)) โ†’ (๐‘€ gcd ๐‘) = (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘))))
9373, 92sylbird 170 . . 3 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (ยฌ (ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆง ยฌ (๐‘€ = 0 โˆง ๐‘ = 0)) โ†’ (๐‘€ gcd ๐‘) = (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘))))
94 dcn 842 . . . . . 6 (DECID (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โ†’ DECID ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0))
9567, 94syl 14 . . . . 5 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ DECID ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0))
96 dcn 842 . . . . . 6 (DECID (๐‘€ = 0 โˆง ๐‘ = 0) โ†’ DECID ยฌ (๐‘€ = 0 โˆง ๐‘ = 0))
9771, 96syl 14 . . . . 5 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ DECID ยฌ (๐‘€ = 0 โˆง ๐‘ = 0))
98 dcan2 934 . . . . 5 (DECID ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โ†’ (DECID ยฌ (๐‘€ = 0 โˆง ๐‘ = 0) โ†’ DECID (ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆง ยฌ (๐‘€ = 0 โˆง ๐‘ = 0))))
9995, 97, 98sylc 62 . . . 4 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ DECID (ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆง ยฌ (๐‘€ = 0 โˆง ๐‘ = 0)))
100 exmiddc 836 . . . 4 (DECID (ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆง ยฌ (๐‘€ = 0 โˆง ๐‘ = 0)) โ†’ ((ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆง ยฌ (๐‘€ = 0 โˆง ๐‘ = 0)) โˆจ ยฌ (ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆง ยฌ (๐‘€ = 0 โˆง ๐‘ = 0))))
10199, 100syl 14 . . 3 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆง ยฌ (๐‘€ = 0 โˆง ๐‘ = 0)) โˆจ ยฌ (ยฌ (๐‘€ = 0 โˆง ((๐พ ยท ๐‘€) + ๐‘) = 0) โˆง ยฌ (๐‘€ = 0 โˆง ๐‘ = 0))))
10260, 93, 101mpjaod 718 . 2 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ๐‘) = (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)))
10340, 14addcomd 8107 . . 3 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐พ ยท ๐‘€) + ๐‘) = (๐‘ + (๐พ ยท ๐‘€)))
104103oveq2d 5890 . 2 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ gcd ((๐พ ยท ๐‘€) + ๐‘)) = (๐‘€ gcd (๐‘ + (๐พ ยท ๐‘€))))
105102, 104eqtrd 2210 1 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ 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   class class class wbr 4003  (class class class)co 5874  0cc0 7810  1c1 7811   + caddc 7813   ยท cmul 7815   โ‰ค cle 7992  -cneg 8128  โ„•0cn0 9175  โ„คcz 9252   โˆฅ 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-stab 831  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:  gcdadd  11985  gcdid  11986  modgcd  11991  gcdmultipled  11993  gcdmultiple  12020  pythagtriplem4  12267
  Copyright terms: Public domain W3C validator