Metamath Proof Explorer


Theorem lcmdvds

Description: The lcm of two integers divides any integer the two divide. (Contributed by Steve Rodriguez, 20-Jan-2020)

Ref Expression
Assertion lcmdvds ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )

Proof

Step Hyp Ref Expression
1 id โŠข ( 0 โˆฅ ๐พ โ†’ 0 โˆฅ ๐พ )
2 breq1 โŠข ( ๐‘€ = 0 โ†’ ( ๐‘€ โˆฅ ๐พ โ†” 0 โˆฅ ๐พ ) )
3 2 adantl โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ = 0 ) โ†’ ( ๐‘€ โˆฅ ๐พ โ†” 0 โˆฅ ๐พ ) )
4 oveq1 โŠข ( ๐‘€ = 0 โ†’ ( ๐‘€ lcm ๐‘ ) = ( 0 lcm ๐‘ ) )
5 0z โŠข 0 โˆˆ โ„ค
6 lcmcom โŠข ( ( 0 โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( 0 lcm ๐‘ ) = ( ๐‘ lcm 0 ) )
7 5 6 mpan โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( 0 lcm ๐‘ ) = ( ๐‘ lcm 0 ) )
8 lcm0val โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ๐‘ lcm 0 ) = 0 )
9 7 8 eqtrd โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( 0 lcm ๐‘ ) = 0 )
10 4 9 sylan9eqr โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ = 0 ) โ†’ ( ๐‘€ lcm ๐‘ ) = 0 )
11 10 breq1d โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ = 0 ) โ†’ ( ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ โ†” 0 โˆฅ ๐พ ) )
12 3 11 imbi12d โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ = 0 ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) โ†” ( 0 โˆฅ ๐พ โ†’ 0 โˆฅ ๐พ ) ) )
13 1 12 mpbiri โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘€ = 0 ) โ†’ ( ๐‘€ โˆฅ ๐พ โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
14 13 3ad2antl3 โŠข ( ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐‘€ = 0 ) โ†’ ( ๐‘€ โˆฅ ๐พ โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
15 14 adantrd โŠข ( ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐‘€ = 0 ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
16 15 ex โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ = 0 โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) ) )
17 breq1 โŠข ( ๐‘ = 0 โ†’ ( ๐‘ โˆฅ ๐พ โ†” 0 โˆฅ ๐พ ) )
18 17 adantl โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ = 0 ) โ†’ ( ๐‘ โˆฅ ๐พ โ†” 0 โˆฅ ๐พ ) )
19 oveq2 โŠข ( ๐‘ = 0 โ†’ ( ๐‘€ lcm ๐‘ ) = ( ๐‘€ lcm 0 ) )
20 lcm0val โŠข ( ๐‘€ โˆˆ โ„ค โ†’ ( ๐‘€ lcm 0 ) = 0 )
21 19 20 sylan9eqr โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ = 0 ) โ†’ ( ๐‘€ lcm ๐‘ ) = 0 )
22 21 breq1d โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ = 0 ) โ†’ ( ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ โ†” 0 โˆฅ ๐พ ) )
23 18 22 imbi12d โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ = 0 ) โ†’ ( ( ๐‘ โˆฅ ๐พ โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) โ†” ( 0 โˆฅ ๐พ โ†’ 0 โˆฅ ๐พ ) ) )
24 1 23 mpbiri โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ = 0 ) โ†’ ( ๐‘ โˆฅ ๐พ โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
25 24 3ad2antl2 โŠข ( ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐‘ = 0 ) โ†’ ( ๐‘ โˆฅ ๐พ โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
26 25 adantld โŠข ( ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐‘ = 0 ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
27 26 ex โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘ = 0 โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) ) )
28 neanior โŠข ( ( ๐‘€ โ‰  0 โˆง ๐‘ โ‰  0 ) โ†” ยฌ ( ๐‘€ = 0 โˆจ ๐‘ = 0 ) )
29 lcmcl โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆˆ โ„•0 )
30 29 nn0zd โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆˆ โ„ค )
31 dvds0 โŠข ( ( ๐‘€ lcm ๐‘ ) โˆˆ โ„ค โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ 0 )
32 30 31 syl โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ 0 )
33 32 a1d โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ โˆฅ 0 โˆง ๐‘ โˆฅ 0 ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ 0 ) )
34 33 adantr โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐พ = 0 ) โ†’ ( ( ๐‘€ โˆฅ 0 โˆง ๐‘ โˆฅ 0 ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ 0 ) )
35 breq2 โŠข ( ๐พ = 0 โ†’ ( ๐‘€ โˆฅ ๐พ โ†” ๐‘€ โˆฅ 0 ) )
36 breq2 โŠข ( ๐พ = 0 โ†’ ( ๐‘ โˆฅ ๐พ โ†” ๐‘ โˆฅ 0 ) )
37 35 36 anbi12d โŠข ( ๐พ = 0 โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†” ( ๐‘€ โˆฅ 0 โˆง ๐‘ โˆฅ 0 ) ) )
38 breq2 โŠข ( ๐พ = 0 โ†’ ( ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ โ†” ( ๐‘€ lcm ๐‘ ) โˆฅ 0 ) )
39 37 38 imbi12d โŠข ( ๐พ = 0 โ†’ ( ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) โ†” ( ( ๐‘€ โˆฅ 0 โˆง ๐‘ โˆฅ 0 ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ 0 ) ) )
40 39 adantl โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐พ = 0 ) โ†’ ( ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) โ†” ( ( ๐‘€ โˆฅ 0 โˆง ๐‘ โˆฅ 0 ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ 0 ) ) )
41 34 40 mpbird โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐พ = 0 ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
42 41 adantrl โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ( ๐พ โˆˆ โ„ค โˆง ๐พ = 0 ) ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
43 42 adantllr โŠข ( ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ๐‘ โˆˆ โ„ค ) โˆง ( ๐พ โˆˆ โ„ค โˆง ๐พ = 0 ) ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
44 43 adantlrr โŠข ( ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โˆง ( ๐พ โˆˆ โ„ค โˆง ๐พ = 0 ) ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
45 44 anassrs โŠข ( ( ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โˆง ๐พ โˆˆ โ„ค ) โˆง ๐พ = 0 ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
46 nnabscl โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โ†’ ( abs โ€˜ ๐‘€ ) โˆˆ โ„• )
47 nnabscl โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) โ†’ ( abs โ€˜ ๐‘ ) โˆˆ โ„• )
48 nnabscl โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0 ) โ†’ ( abs โ€˜ ๐พ ) โˆˆ โ„• )
49 lcmgcdlem โŠข ( ( ( abs โ€˜ ๐‘€ ) โˆˆ โ„• โˆง ( abs โ€˜ ๐‘ ) โˆˆ โ„• ) โ†’ ( ( ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) ยท ( ( abs โ€˜ ๐‘€ ) gcd ( abs โ€˜ ๐‘ ) ) ) = ( abs โ€˜ ( ( abs โ€˜ ๐‘€ ) ยท ( abs โ€˜ ๐‘ ) ) ) โˆง ( ( ( abs โ€˜ ๐พ ) โˆˆ โ„• โˆง ( ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) โˆง ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) ) โ†’ ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) โˆฅ ( abs โ€˜ ๐พ ) ) ) )
50 49 simprd โŠข ( ( ( abs โ€˜ ๐‘€ ) โˆˆ โ„• โˆง ( abs โ€˜ ๐‘ ) โˆˆ โ„• ) โ†’ ( ( ( abs โ€˜ ๐พ ) โˆˆ โ„• โˆง ( ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) โˆง ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) ) โ†’ ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) โˆฅ ( abs โ€˜ ๐พ ) ) )
51 48 50 sylani โŠข ( ( ( abs โ€˜ ๐‘€ ) โˆˆ โ„• โˆง ( abs โ€˜ ๐‘ ) โˆˆ โ„• ) โ†’ ( ( ( ๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0 ) โˆง ( ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) โˆง ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) ) โ†’ ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) โˆฅ ( abs โ€˜ ๐พ ) ) )
52 46 47 51 syl2an โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ( ( ๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0 ) โˆง ( ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) โˆง ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) ) โ†’ ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) โˆฅ ( abs โ€˜ ๐พ ) ) )
53 52 expdimp โŠข ( ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โˆง ( ๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0 ) ) โ†’ ( ( ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) โˆง ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) โ†’ ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) โˆฅ ( abs โ€˜ ๐พ ) ) )
54 dvdsabsb โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆฅ ๐พ โ†” ๐‘€ โˆฅ ( abs โ€˜ ๐พ ) ) )
55 zabscl โŠข ( ๐พ โˆˆ โ„ค โ†’ ( abs โ€˜ ๐พ ) โˆˆ โ„ค )
56 absdvdsb โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ( abs โ€˜ ๐พ ) โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆฅ ( abs โ€˜ ๐พ ) โ†” ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) ) )
57 55 56 sylan2 โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆฅ ( abs โ€˜ ๐พ ) โ†” ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) ) )
58 54 57 bitrd โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆฅ ๐พ โ†” ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) ) )
59 58 adantlr โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ๐‘€ โˆฅ ๐พ โ†” ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) ) )
60 dvdsabsb โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ๐‘ โˆฅ ๐พ โ†” ๐‘ โˆฅ ( abs โ€˜ ๐พ ) ) )
61 absdvdsb โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ( abs โ€˜ ๐พ ) โˆˆ โ„ค ) โ†’ ( ๐‘ โˆฅ ( abs โ€˜ ๐พ ) โ†” ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) )
62 55 61 sylan2 โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ๐‘ โˆฅ ( abs โ€˜ ๐พ ) โ†” ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) )
63 60 62 bitrd โŠข ( ( ๐‘ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ๐‘ โˆฅ ๐พ โ†” ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) )
64 63 adantll โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ๐‘ โˆฅ ๐พ โ†” ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) )
65 59 64 anbi12d โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†” ( ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) โˆง ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) ) )
66 65 bicomd โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ( ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) โˆง ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) โ†” ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) ) )
67 lcmabs โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) = ( ๐‘€ lcm ๐‘ ) )
68 67 breq1d โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) โˆฅ ( abs โ€˜ ๐พ ) โ†” ( ๐‘€ lcm ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) )
69 68 adantr โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) โˆฅ ( abs โ€˜ ๐พ ) โ†” ( ๐‘€ lcm ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) )
70 dvdsabsb โŠข ( ( ( ๐‘€ lcm ๐‘ ) โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ โ†” ( ๐‘€ lcm ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) )
71 30 70 sylan โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ โ†” ( ๐‘€ lcm ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) )
72 69 71 bitr4d โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) โˆฅ ( abs โ€˜ ๐พ ) โ†” ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
73 66 72 imbi12d โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ( ( ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) โˆง ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) โ†’ ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) โˆฅ ( abs โ€˜ ๐พ ) ) โ†” ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) ) )
74 73 adantrr โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ( ๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0 ) ) โ†’ ( ( ( ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) โˆง ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) โ†’ ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) โˆฅ ( abs โ€˜ ๐พ ) ) โ†” ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) ) )
75 74 adantllr โŠข ( ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ๐‘ โˆˆ โ„ค ) โˆง ( ๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0 ) ) โ†’ ( ( ( ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) โˆง ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) โ†’ ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) โˆฅ ( abs โ€˜ ๐พ ) ) โ†” ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) ) )
76 75 adantlrr โŠข ( ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โˆง ( ๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0 ) ) โ†’ ( ( ( ( abs โ€˜ ๐‘€ ) โˆฅ ( abs โ€˜ ๐พ ) โˆง ( abs โ€˜ ๐‘ ) โˆฅ ( abs โ€˜ ๐พ ) ) โ†’ ( ( abs โ€˜ ๐‘€ ) lcm ( abs โ€˜ ๐‘ ) ) โˆฅ ( abs โ€˜ ๐พ ) ) โ†” ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) ) )
77 53 76 mpbid โŠข ( ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โˆง ( ๐พ โˆˆ โ„ค โˆง ๐พ โ‰  0 ) ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
78 77 anassrs โŠข ( ( ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โˆง ๐พ โˆˆ โ„ค ) โˆง ๐พ โ‰  0 ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
79 45 78 pm2.61dane โŠข ( ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )
80 79 ex โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘€ โ‰  0 ) โˆง ( ๐‘ โˆˆ โ„ค โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐พ โˆˆ โ„ค โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) ) )
81 80 an4s โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ( ๐‘€ โ‰  0 โˆง ๐‘ โ‰  0 ) ) โ†’ ( ๐พ โˆˆ โ„ค โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) ) )
82 28 81 sylan2br โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ยฌ ( ๐‘€ = 0 โˆจ ๐‘ = 0 ) ) โ†’ ( ๐พ โˆˆ โ„ค โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) ) )
83 82 impancom โŠข ( ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ยฌ ( ๐‘€ = 0 โˆจ ๐‘ = 0 ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) ) )
84 83 3impa โŠข ( ( ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค โˆง ๐พ โˆˆ โ„ค ) โ†’ ( ยฌ ( ๐‘€ = 0 โˆจ ๐‘ = 0 ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) ) )
85 84 3comr โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ยฌ ( ๐‘€ = 0 โˆจ ๐‘ = 0 ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) ) )
86 16 27 85 ecase3d โŠข ( ( ๐พ โˆˆ โ„ค โˆง ๐‘€ โˆˆ โ„ค โˆง ๐‘ โˆˆ โ„ค ) โ†’ ( ( ๐‘€ โˆฅ ๐พ โˆง ๐‘ โˆฅ ๐พ ) โ†’ ( ๐‘€ lcm ๐‘ ) โˆฅ ๐พ ) )