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

Theorem lcmdvds 12099
Description: The lcm of two integers divides any integer the two divide. (Contributed by Steve Rodriguez, 20-Jan-2020.)
Assertion
Ref Expression
lcmdvds ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))

Proof of Theorem lcmdvds
StepHypRef Expression
1 id 19 . . . . . . 7 (0 โˆฅ ๐พ โ†’ 0 โˆฅ ๐พ)
2 breq1 4021 . . . . . . . . 9 (๐‘€ = 0 โ†’ (๐‘€ โˆฅ ๐พ โ†” 0 โˆฅ ๐พ))
32adantl 277 . . . . . . . 8 ((๐‘ โˆˆ โ„ค โˆง ๐‘€ = 0) โ†’ (๐‘€ โˆฅ ๐พ โ†” 0 โˆฅ ๐พ))
4 oveq1 5899 . . . . . . . . . 10 (๐‘€ = 0 โ†’ (๐‘€ lcm ๐‘) = (0 lcm ๐‘))
5 0z 9284 . . . . . . . . . . . 12 0 โˆˆ โ„ค
6 lcmcom 12084 . . . . . . . . . . . 12 ((0 โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (0 lcm ๐‘) = (๐‘ lcm 0))
75, 6mpan 424 . . . . . . . . . . 11 (๐‘ โˆˆ โ„ค โ†’ (0 lcm ๐‘) = (๐‘ lcm 0))
8 lcm0val 12085 . . . . . . . . . . 11 (๐‘ โˆˆ โ„ค โ†’ (๐‘ lcm 0) = 0)
97, 8eqtrd 2222 . . . . . . . . . 10 (๐‘ โˆˆ โ„ค โ†’ (0 lcm ๐‘) = 0)
104, 9sylan9eqr 2244 . . . . . . . . 9 ((๐‘ โˆˆ โ„ค โˆง ๐‘€ = 0) โ†’ (๐‘€ lcm ๐‘) = 0)
1110breq1d 4028 . . . . . . . 8 ((๐‘ โˆˆ โ„ค โˆง ๐‘€ = 0) โ†’ ((๐‘€ lcm ๐‘) โˆฅ ๐พ โ†” 0 โˆฅ ๐พ))
123, 11imbi12d 234 . . . . . . 7 ((๐‘ โˆˆ โ„ค โˆง ๐‘€ = 0) โ†’ ((๐‘€ โˆฅ ๐พ โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ) โ†” (0 โˆฅ ๐พ โ†’ 0 โˆฅ ๐พ)))
131, 12mpbiri 168 . . . . . 6 ((๐‘ โˆˆ โ„ค โˆง ๐‘€ = 0) โ†’ (๐‘€ โˆฅ ๐พ โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
14133ad2antl3 1163 . . . . 5 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐‘€ = 0) โ†’ (๐‘€ โˆฅ ๐พ โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
1514adantrd 279 . . . 4 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐‘€ = 0) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
1615ex 115 . . 3 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ = 0 โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ)))
17 breq1 4021 . . . . . . . . 9 (๐‘ = 0 โ†’ (๐‘ โˆฅ ๐พ โ†” 0 โˆฅ ๐พ))
1817adantl 277 . . . . . . . 8 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ = 0) โ†’ (๐‘ โˆฅ ๐พ โ†” 0 โˆฅ ๐พ))
19 oveq2 5900 . . . . . . . . . 10 (๐‘ = 0 โ†’ (๐‘€ lcm ๐‘) = (๐‘€ lcm 0))
20 lcm0val 12085 . . . . . . . . . 10 (๐‘€ โˆˆ โ„ค โ†’ (๐‘€ lcm 0) = 0)
2119, 20sylan9eqr 2244 . . . . . . . . 9 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ = 0) โ†’ (๐‘€ lcm ๐‘) = 0)
2221breq1d 4028 . . . . . . . 8 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ = 0) โ†’ ((๐‘€ lcm ๐‘) โˆฅ ๐พ โ†” 0 โˆฅ ๐พ))
2318, 22imbi12d 234 . . . . . . 7 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ = 0) โ†’ ((๐‘ โˆฅ ๐พ โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ) โ†” (0 โˆฅ ๐พ โ†’ 0 โˆฅ ๐พ)))
241, 23mpbiri 168 . . . . . 6 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ = 0) โ†’ (๐‘ โˆฅ ๐พ โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
25243ad2antl2 1162 . . . . 5 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐‘ = 0) โ†’ (๐‘ โˆฅ ๐พ โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
2625adantld 278 . . . 4 (((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐‘ = 0) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
2726ex 115 . . 3 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘ = 0 โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ)))
2816, 27jaod 718 . 2 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ = 0 โˆจ ๐‘ = 0) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ)))
29 neanior 2447 . . . . . 6 ((๐‘€ โ‰  0 โˆง ๐‘ โ‰  0) โ†” ยฌ (๐‘€ = 0 โˆจ ๐‘ = 0))
30 lcmcl 12092 . . . . . . . . . . . . . . . . . 18 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ lcm ๐‘) โˆˆ โ„•0)
3130nn0zd 9393 . . . . . . . . . . . . . . . . 17 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ lcm ๐‘) โˆˆ โ„ค)
32 dvds0 11833 . . . . . . . . . . . . . . . . 17 ((๐‘€ lcm ๐‘) โˆˆ โ„ค โ†’ (๐‘€ lcm ๐‘) โˆฅ 0)
3331, 32syl 14 . . . . . . . . . . . . . . . 16 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (๐‘€ lcm ๐‘) โˆฅ 0)
3433a1d 22 . . . . . . . . . . . . . . 15 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ โˆฅ 0 โˆง ๐‘ โˆฅ 0) โ†’ (๐‘€ lcm ๐‘) โˆฅ 0))
3534adantr 276 . . . . . . . . . . . . . 14 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐พ = 0) โ†’ ((๐‘€ โˆฅ 0 โˆง ๐‘ โˆฅ 0) โ†’ (๐‘€ lcm ๐‘) โˆฅ 0))
36 breq2 4022 . . . . . . . . . . . . . . . . 17 (๐พ = 0 โ†’ (๐‘€ โˆฅ ๐พ โ†” ๐‘€ โˆฅ 0))
37 breq2 4022 . . . . . . . . . . . . . . . . 17 (๐พ = 0 โ†’ (๐‘ โˆฅ ๐พ โ†” ๐‘ โˆฅ 0))
3836, 37anbi12d 473 . . . . . . . . . . . . . . . 16 (๐พ = 0 โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†” (๐‘€ โˆฅ 0 โˆง ๐‘ โˆฅ 0)))
39 breq2 4022 . . . . . . . . . . . . . . . 16 (๐พ = 0 โ†’ ((๐‘€ lcm ๐‘) โˆฅ ๐พ โ†” (๐‘€ lcm ๐‘) โˆฅ 0))
4038, 39imbi12d 234 . . . . . . . . . . . . . . 15 (๐พ = 0 โ†’ (((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ) โ†” ((๐‘€ โˆฅ 0 โˆง ๐‘ โˆฅ 0) โ†’ (๐‘€ lcm ๐‘) โˆฅ 0)))
4140adantl 277 . . . . . . . . . . . . . 14 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐พ = 0) โ†’ (((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ) โ†” ((๐‘€ โˆฅ 0 โˆง ๐‘ โˆฅ 0) โ†’ (๐‘€ lcm ๐‘) โˆฅ 0)))
4235, 41mpbird 167 . . . . . . . . . . . . 13 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐พ = 0) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
4342adantrl 478 . . . . . . . . . . . 12 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ โˆˆ โ„ค โˆง ๐พ = 0)) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
4443adantllr 481 . . . . . . . . . . 11 ((((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0) โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ โˆˆ โ„ค โˆง ๐พ = 0)) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
4544adantlrr 483 . . . . . . . . . 10 ((((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0) โˆง (๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0)) โˆง (๐พ โˆˆ โ„ค โˆง ๐พ = 0)) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
4645anassrs 400 . . . . . . . . 9 (((((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0) โˆง (๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0)) โˆง ๐พ โˆˆ โ„ค) โˆง ๐พ = 0) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
47 nnabscl 11129 . . . . . . . . . . . . 13 ((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0) โ†’ (absโ€˜๐‘€) โˆˆ โ„•)
48 nnabscl 11129 . . . . . . . . . . . . 13 ((๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0) โ†’ (absโ€˜๐‘) โˆˆ โ„•)
49 nnabscl 11129 . . . . . . . . . . . . . 14 ((๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0) โ†’ (absโ€˜๐พ) โˆˆ โ„•)
50 lcmgcdlem 12097 . . . . . . . . . . . . . . 15 (((absโ€˜๐‘€) โˆˆ โ„• โˆง (absโ€˜๐‘) โˆˆ โ„•) โ†’ ((((absโ€˜๐‘€) lcm (absโ€˜๐‘)) ยท ((absโ€˜๐‘€) gcd (absโ€˜๐‘))) = (absโ€˜((absโ€˜๐‘€) ยท (absโ€˜๐‘))) โˆง (((absโ€˜๐พ) โˆˆ โ„• โˆง ((absโ€˜๐‘€) โˆฅ (absโ€˜๐พ) โˆง (absโ€˜๐‘) โˆฅ (absโ€˜๐พ))) โ†’ ((absโ€˜๐‘€) lcm (absโ€˜๐‘)) โˆฅ (absโ€˜๐พ))))
5150simprd 114 . . . . . . . . . . . . . 14 (((absโ€˜๐‘€) โˆˆ โ„• โˆง (absโ€˜๐‘) โˆˆ โ„•) โ†’ (((absโ€˜๐พ) โˆˆ โ„• โˆง ((absโ€˜๐‘€) โˆฅ (absโ€˜๐พ) โˆง (absโ€˜๐‘) โˆฅ (absโ€˜๐พ))) โ†’ ((absโ€˜๐‘€) lcm (absโ€˜๐‘)) โˆฅ (absโ€˜๐พ)))
5249, 51sylani 406 . . . . . . . . . . . . 13 (((absโ€˜๐‘€) โˆˆ โ„• โˆง (absโ€˜๐‘) โˆˆ โ„•) โ†’ (((๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0) โˆง ((absโ€˜๐‘€) โˆฅ (absโ€˜๐พ) โˆง (absโ€˜๐‘) โˆฅ (absโ€˜๐พ))) โ†’ ((absโ€˜๐‘€) lcm (absโ€˜๐‘)) โˆฅ (absโ€˜๐พ)))
5347, 48, 52syl2an 289 . . . . . . . . . . . 12 (((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0) โˆง (๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0)) โ†’ (((๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0) โˆง ((absโ€˜๐‘€) โˆฅ (absโ€˜๐พ) โˆง (absโ€˜๐‘) โˆฅ (absโ€˜๐พ))) โ†’ ((absโ€˜๐‘€) lcm (absโ€˜๐‘)) โˆฅ (absโ€˜๐พ)))
5453expdimp 259 . . . . . . . . . . 11 ((((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0) โˆง (๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0)) โˆง (๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0)) โ†’ (((absโ€˜๐‘€) โˆฅ (absโ€˜๐พ) โˆง (absโ€˜๐‘) โˆฅ (absโ€˜๐พ)) โ†’ ((absโ€˜๐‘€) lcm (absโ€˜๐‘)) โˆฅ (absโ€˜๐พ)))
55 dvdsabsb 11837 . . . . . . . . . . . . . . . . . . 19 ((๐‘€ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค) โ†’ (๐‘€ โˆฅ ๐พ โ†” ๐‘€ โˆฅ (absโ€˜๐พ)))
56 zabscl 11115 . . . . . . . . . . . . . . . . . . . 20 (๐พ โˆˆ โ„ค โ†’ (absโ€˜๐พ) โˆˆ โ„ค)
57 absdvdsb 11836 . . . . . . . . . . . . . . . . . . . 20 ((๐‘€ โˆˆ โ„ค โˆง (absโ€˜๐พ) โˆˆ โ„ค) โ†’ (๐‘€ โˆฅ (absโ€˜๐พ) โ†” (absโ€˜๐‘€) โˆฅ (absโ€˜๐พ)))
5856, 57sylan2 286 . . . . . . . . . . . . . . . . . . 19 ((๐‘€ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค) โ†’ (๐‘€ โˆฅ (absโ€˜๐พ) โ†” (absโ€˜๐‘€) โˆฅ (absโ€˜๐พ)))
5955, 58bitrd 188 . . . . . . . . . . . . . . . . . 18 ((๐‘€ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค) โ†’ (๐‘€ โˆฅ ๐พ โ†” (absโ€˜๐‘€) โˆฅ (absโ€˜๐พ)))
6059adantlr 477 . . . . . . . . . . . . . . . . 17 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐พ โˆˆ โ„ค) โ†’ (๐‘€ โˆฅ ๐พ โ†” (absโ€˜๐‘€) โˆฅ (absโ€˜๐พ)))
61 dvdsabsb 11837 . . . . . . . . . . . . . . . . . . 19 ((๐‘ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค) โ†’ (๐‘ โˆฅ ๐พ โ†” ๐‘ โˆฅ (absโ€˜๐พ)))
62 absdvdsb 11836 . . . . . . . . . . . . . . . . . . . 20 ((๐‘ โˆˆ โ„ค โˆง (absโ€˜๐พ) โˆˆ โ„ค) โ†’ (๐‘ โˆฅ (absโ€˜๐พ) โ†” (absโ€˜๐‘) โˆฅ (absโ€˜๐พ)))
6356, 62sylan2 286 . . . . . . . . . . . . . . . . . . 19 ((๐‘ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค) โ†’ (๐‘ โˆฅ (absโ€˜๐พ) โ†” (absโ€˜๐‘) โˆฅ (absโ€˜๐พ)))
6461, 63bitrd 188 . . . . . . . . . . . . . . . . . 18 ((๐‘ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค) โ†’ (๐‘ โˆฅ ๐พ โ†” (absโ€˜๐‘) โˆฅ (absโ€˜๐พ)))
6564adantll 476 . . . . . . . . . . . . . . . . 17 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐พ โˆˆ โ„ค) โ†’ (๐‘ โˆฅ ๐พ โ†” (absโ€˜๐‘) โˆฅ (absโ€˜๐พ)))
6660, 65anbi12d 473 . . . . . . . . . . . . . . . 16 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐พ โˆˆ โ„ค) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†” ((absโ€˜๐‘€) โˆฅ (absโ€˜๐พ) โˆง (absโ€˜๐‘) โˆฅ (absโ€˜๐พ))))
6766bicomd 141 . . . . . . . . . . . . . . 15 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐พ โˆˆ โ„ค) โ†’ (((absโ€˜๐‘€) โˆฅ (absโ€˜๐พ) โˆง (absโ€˜๐‘) โˆฅ (absโ€˜๐พ)) โ†” (๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ)))
68 lcmabs 12096 . . . . . . . . . . . . . . . . . 18 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((absโ€˜๐‘€) lcm (absโ€˜๐‘)) = (๐‘€ lcm ๐‘))
6968breq1d 4028 . . . . . . . . . . . . . . . . 17 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (((absโ€˜๐‘€) lcm (absโ€˜๐‘)) โˆฅ (absโ€˜๐พ) โ†” (๐‘€ lcm ๐‘) โˆฅ (absโ€˜๐พ)))
7069adantr 276 . . . . . . . . . . . . . . . 16 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐พ โˆˆ โ„ค) โ†’ (((absโ€˜๐‘€) lcm (absโ€˜๐‘)) โˆฅ (absโ€˜๐พ) โ†” (๐‘€ lcm ๐‘) โˆฅ (absโ€˜๐พ)))
71 dvdsabsb 11837 . . . . . . . . . . . . . . . . 17 (((๐‘€ lcm ๐‘) โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค) โ†’ ((๐‘€ lcm ๐‘) โˆฅ ๐พ โ†” (๐‘€ lcm ๐‘) โˆฅ (absโ€˜๐พ)))
7231, 71sylan 283 . . . . . . . . . . . . . . . 16 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐พ โˆˆ โ„ค) โ†’ ((๐‘€ lcm ๐‘) โˆฅ ๐พ โ†” (๐‘€ lcm ๐‘) โˆฅ (absโ€˜๐พ)))
7370, 72bitr4d 191 . . . . . . . . . . . . . . 15 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐พ โˆˆ โ„ค) โ†’ (((absโ€˜๐‘€) lcm (absโ€˜๐‘)) โˆฅ (absโ€˜๐พ) โ†” (๐‘€ lcm ๐‘) โˆฅ ๐พ))
7467, 73imbi12d 234 . . . . . . . . . . . . . 14 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐พ โˆˆ โ„ค) โ†’ ((((absโ€˜๐‘€) โˆฅ (absโ€˜๐พ) โˆง (absโ€˜๐‘) โˆฅ (absโ€˜๐พ)) โ†’ ((absโ€˜๐‘€) lcm (absโ€˜๐‘)) โˆฅ (absโ€˜๐พ)) โ†” ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ)))
7574adantrr 479 . . . . . . . . . . . . 13 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0)) โ†’ ((((absโ€˜๐‘€) โˆฅ (absโ€˜๐พ) โˆง (absโ€˜๐‘) โˆฅ (absโ€˜๐พ)) โ†’ ((absโ€˜๐‘€) lcm (absโ€˜๐‘)) โˆฅ (absโ€˜๐พ)) โ†” ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ)))
7675adantllr 481 . . . . . . . . . . . 12 ((((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0) โˆง ๐‘ โˆˆ โ„ค) โˆง (๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0)) โ†’ ((((absโ€˜๐‘€) โˆฅ (absโ€˜๐พ) โˆง (absโ€˜๐‘) โˆฅ (absโ€˜๐พ)) โ†’ ((absโ€˜๐‘€) lcm (absโ€˜๐‘)) โˆฅ (absโ€˜๐พ)) โ†” ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ)))
7776adantlrr 483 . . . . . . . . . . 11 ((((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0) โˆง (๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0)) โˆง (๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0)) โ†’ ((((absโ€˜๐‘€) โˆฅ (absโ€˜๐พ) โˆง (absโ€˜๐‘) โˆฅ (absโ€˜๐พ)) โ†’ ((absโ€˜๐‘€) lcm (absโ€˜๐‘)) โˆฅ (absโ€˜๐พ)) โ†” ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ)))
7854, 77mpbid 147 . . . . . . . . . 10 ((((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0) โˆง (๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0)) โˆง (๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0)) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
7978anassrs 400 . . . . . . . . 9 (((((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0) โˆง (๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0)) โˆง ๐พ โˆˆ โ„ค) โˆง ๐พ โ‰  0) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
80 zdceq 9348 . . . . . . . . . . . . 13 ((๐พ โˆˆ โ„ค โˆง 0 โˆˆ โ„ค) โ†’ DECID ๐พ = 0)
815, 80mpan2 425 . . . . . . . . . . . 12 (๐พ โˆˆ โ„ค โ†’ DECID ๐พ = 0)
82 exmiddc 837 . . . . . . . . . . . 12 (DECID ๐พ = 0 โ†’ (๐พ = 0 โˆจ ยฌ ๐พ = 0))
8381, 82syl 14 . . . . . . . . . . 11 (๐พ โˆˆ โ„ค โ†’ (๐พ = 0 โˆจ ยฌ ๐พ = 0))
84 df-ne 2361 . . . . . . . . . . . 12 (๐พ โ‰  0 โ†” ยฌ ๐พ = 0)
8584orbi2i 763 . . . . . . . . . . 11 ((๐พ = 0 โˆจ ๐พ โ‰  0) โ†” (๐พ = 0 โˆจ ยฌ ๐พ = 0))
8683, 85sylibr 134 . . . . . . . . . 10 (๐พ โˆˆ โ„ค โ†’ (๐พ = 0 โˆจ ๐พ โ‰  0))
8786adantl 277 . . . . . . . . 9 ((((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0) โˆง (๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0)) โˆง ๐พ โˆˆ โ„ค) โ†’ (๐พ = 0 โˆจ ๐พ โ‰  0))
8846, 79, 87mpjaodan 799 . . . . . . . 8 ((((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0) โˆง (๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0)) โˆง ๐พ โˆˆ โ„ค) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
8988ex 115 . . . . . . 7 (((๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0) โˆง (๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0)) โ†’ (๐พ โˆˆ โ„ค โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ)))
9089an4s 588 . . . . . 6 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง (๐‘€ โ‰  0 โˆง ๐‘ โ‰  0)) โ†’ (๐พ โˆˆ โ„ค โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ)))
9129, 90sylan2br 288 . . . . 5 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ยฌ (๐‘€ = 0 โˆจ ๐‘ = 0)) โ†’ (๐พ โˆˆ โ„ค โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ)))
9291impancom 260 . . . 4 (((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โˆง ๐พ โˆˆ โ„ค) โ†’ (ยฌ (๐‘€ = 0 โˆจ ๐‘ = 0) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ)))
93923impa 1196 . . 3 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค) โ†’ (ยฌ (๐‘€ = 0 โˆจ ๐‘ = 0) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ)))
94933comr 1213 . 2 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ (ยฌ (๐‘€ = 0 โˆจ ๐‘ = 0) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ)))
95 lcmmndc 12082 . . . 4 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ DECID (๐‘€ = 0 โˆจ ๐‘ = 0))
96 exmiddc 837 . . . 4 (DECID (๐‘€ = 0 โˆจ ๐‘ = 0) โ†’ ((๐‘€ = 0 โˆจ ๐‘ = 0) โˆจ ยฌ (๐‘€ = 0 โˆจ ๐‘ = 0)))
9795, 96syl 14 . . 3 ((๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ = 0 โˆจ ๐‘ = 0) โˆจ ยฌ (๐‘€ = 0 โˆจ ๐‘ = 0)))
98973adant1 1017 . 2 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ = 0 โˆจ ๐‘ = 0) โˆจ ยฌ (๐‘€ = 0 โˆจ ๐‘ = 0)))
9928, 94, 98mpjaod 719 1 ((๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค) โ†’ ((๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ) โ†’ (๐‘€ lcm ๐‘) โˆฅ ๐พ))
Colors of variables: wff set class
Syntax hints:  ยฌ wn 3   โ†’ wi 4   โˆง wa 104   โ†” wb 105   โˆจ wo 709  DECID wdc 835   โˆง w3a 980   = wceq 1364   โˆˆ wcel 2160   โ‰  wne 2360   class class class wbr 4018  โ€˜cfv 5232  (class class class)co 5892  0cc0 7831   ยท cmul 7836  โ„•cn 8939  โ„คcz 9273  abscabs 11026   โˆฅ cdvds 11814   gcd cgcd 11963   lcm clcm 12080
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 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2162  ax-14 2163  ax-ext 2171  ax-coll 4133  ax-sep 4136  ax-nul 4144  ax-pow 4189  ax-pr 4224  ax-un 4448  ax-setind 4551  ax-iinf 4602  ax-cnex 7922  ax-resscn 7923  ax-1cn 7924  ax-1re 7925  ax-icn 7926  ax-addcl 7927  ax-addrcl 7928  ax-mulcl 7929  ax-mulrcl 7930  ax-addcom 7931  ax-mulcom 7932  ax-addass 7933  ax-mulass 7934  ax-distr 7935  ax-i2m1 7936  ax-0lt1 7937  ax-1rid 7938  ax-0id 7939  ax-rnegex 7940  ax-precex 7941  ax-cnre 7942  ax-pre-ltirr 7943  ax-pre-ltwlin 7944  ax-pre-lttrn 7945  ax-pre-apti 7946  ax-pre-ltadd 7947  ax-pre-mulgt0 7948  ax-pre-mulext 7949  ax-arch 7950  ax-caucvg 7951
This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1472  df-sb 1774  df-eu 2041  df-mo 2042  df-clab 2176  df-cleq 2182  df-clel 2185  df-nfc 2321  df-ne 2361  df-nel 2456  df-ral 2473  df-rex 2474  df-reu 2475  df-rmo 2476  df-rab 2477  df-v 2754  df-sbc 2978  df-csb 3073  df-dif 3146  df-un 3148  df-in 3150  df-ss 3157  df-nul 3438  df-if 3550  df-pw 3592  df-sn 3613  df-pr 3614  df-op 3616  df-uni 3825  df-int 3860  df-iun 3903  df-br 4019  df-opab 4080  df-mpt 4081  df-tr 4117  df-id 4308  df-po 4311  df-iso 4312  df-iord 4381  df-on 4383  df-ilim 4384  df-suc 4386  df-iom 4605  df-xp 4647  df-rel 4648  df-cnv 4649  df-co 4650  df-dm 4651  df-rn 4652  df-res 4653  df-ima 4654  df-iota 5193  df-fun 5234  df-fn 5235  df-f 5236  df-f1 5237  df-fo 5238  df-f1o 5239  df-fv 5240  df-isom 5241  df-riota 5848  df-ov 5895  df-oprab 5896  df-mpo 5897  df-1st 6160  df-2nd 6161  df-recs 6325  df-frec 6411  df-sup 7003  df-inf 7004  df-pnf 8014  df-mnf 8015  df-xr 8016  df-ltxr 8017  df-le 8018  df-sub 8150  df-neg 8151  df-reap 8552  df-ap 8559  df-div 8650  df-inn 8940  df-2 8998  df-3 8999  df-4 9000  df-n0 9197  df-z 9274  df-uz 9549  df-q 9640  df-rp 9674  df-fz 10029  df-fzo 10163  df-fl 10290  df-mod 10343  df-seqfrec 10466  df-exp 10540  df-cj 10871  df-re 10872  df-im 10873  df-rsqrt 11027  df-abs 11028  df-dvds 11815  df-gcd 11964  df-lcm 12081
This theorem is referenced by:  lcmdvdsb  12104
  Copyright terms: Public domain W3C validator