Proof of Theorem lcmneg
| Step | Hyp | Ref
| Expression |
| 1 | | lcm0val 12233 |
. . . . . . . 8
⊢ (𝑁 ∈ ℤ → (𝑁 lcm 0) = 0) |
| 2 | | znegcl 9357 |
. . . . . . . . 9
⊢ (𝑁 ∈ ℤ → -𝑁 ∈
ℤ) |
| 3 | | lcm0val 12233 |
. . . . . . . . 9
⊢ (-𝑁 ∈ ℤ → (-𝑁 lcm 0) = 0) |
| 4 | 2, 3 | syl 14 |
. . . . . . . 8
⊢ (𝑁 ∈ ℤ → (-𝑁 lcm 0) = 0) |
| 5 | 1, 4 | eqtr4d 2232 |
. . . . . . 7
⊢ (𝑁 ∈ ℤ → (𝑁 lcm 0) = (-𝑁 lcm 0)) |
| 6 | 5 | ad2antlr 489 |
. . . . . 6
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑀 = 0) → (𝑁 lcm 0) = (-𝑁 lcm 0)) |
| 7 | | oveq2 5930 |
. . . . . . . 8
⊢ (𝑀 = 0 → (𝑁 lcm 𝑀) = (𝑁 lcm 0)) |
| 8 | | oveq2 5930 |
. . . . . . . 8
⊢ (𝑀 = 0 → (-𝑁 lcm 𝑀) = (-𝑁 lcm 0)) |
| 9 | 7, 8 | eqeq12d 2211 |
. . . . . . 7
⊢ (𝑀 = 0 → ((𝑁 lcm 𝑀) = (-𝑁 lcm 𝑀) ↔ (𝑁 lcm 0) = (-𝑁 lcm 0))) |
| 10 | 9 | adantl 277 |
. . . . . 6
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑀 = 0) → ((𝑁 lcm 𝑀) = (-𝑁 lcm 𝑀) ↔ (𝑁 lcm 0) = (-𝑁 lcm 0))) |
| 11 | 6, 10 | mpbird 167 |
. . . . 5
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑀 = 0) → (𝑁 lcm 𝑀) = (-𝑁 lcm 𝑀)) |
| 12 | | lcmcom 12232 |
. . . . . . 7
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 lcm 𝑁) = (𝑁 lcm 𝑀)) |
| 13 | | lcmcom 12232 |
. . . . . . . 8
⊢ ((𝑀 ∈ ℤ ∧ -𝑁 ∈ ℤ) → (𝑀 lcm -𝑁) = (-𝑁 lcm 𝑀)) |
| 14 | 2, 13 | sylan2 286 |
. . . . . . 7
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 lcm -𝑁) = (-𝑁 lcm 𝑀)) |
| 15 | 12, 14 | eqeq12d 2211 |
. . . . . 6
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝑀 lcm 𝑁) = (𝑀 lcm -𝑁) ↔ (𝑁 lcm 𝑀) = (-𝑁 lcm 𝑀))) |
| 16 | 15 | adantr 276 |
. . . . 5
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑀 = 0) → ((𝑀 lcm 𝑁) = (𝑀 lcm -𝑁) ↔ (𝑁 lcm 𝑀) = (-𝑁 lcm 𝑀))) |
| 17 | 11, 16 | mpbird 167 |
. . . 4
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑀 = 0) → (𝑀 lcm 𝑁) = (𝑀 lcm -𝑁)) |
| 18 | | neg0 8272 |
. . . . . . . 8
⊢ -0 =
0 |
| 19 | 18 | oveq2i 5933 |
. . . . . . 7
⊢ (𝑀 lcm -0) = (𝑀 lcm 0) |
| 20 | 19 | eqcomi 2200 |
. . . . . 6
⊢ (𝑀 lcm 0) = (𝑀 lcm -0) |
| 21 | | oveq2 5930 |
. . . . . 6
⊢ (𝑁 = 0 → (𝑀 lcm 𝑁) = (𝑀 lcm 0)) |
| 22 | | negeq 8219 |
. . . . . . 7
⊢ (𝑁 = 0 → -𝑁 = -0) |
| 23 | 22 | oveq2d 5938 |
. . . . . 6
⊢ (𝑁 = 0 → (𝑀 lcm -𝑁) = (𝑀 lcm -0)) |
| 24 | 20, 21, 23 | 3eqtr4a 2255 |
. . . . 5
⊢ (𝑁 = 0 → (𝑀 lcm 𝑁) = (𝑀 lcm -𝑁)) |
| 25 | 24 | adantl 277 |
. . . 4
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑁 = 0) → (𝑀 lcm 𝑁) = (𝑀 lcm -𝑁)) |
| 26 | 17, 25 | jaodan 798 |
. . 3
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ (𝑀 = 0 ∨ 𝑁 = 0)) → (𝑀 lcm 𝑁) = (𝑀 lcm -𝑁)) |
| 27 | | dvdslcm 12237 |
. . . . . . . 8
⊢ ((𝑀 ∈ ℤ ∧ -𝑁 ∈ ℤ) → (𝑀 ∥ (𝑀 lcm -𝑁) ∧ -𝑁 ∥ (𝑀 lcm -𝑁))) |
| 28 | 2, 27 | sylan2 286 |
. . . . . . 7
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 ∥ (𝑀 lcm -𝑁) ∧ -𝑁 ∥ (𝑀 lcm -𝑁))) |
| 29 | | simpr 110 |
. . . . . . . . 9
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → 𝑁 ∈
ℤ) |
| 30 | | lcmcl 12240 |
. . . . . . . . . . 11
⊢ ((𝑀 ∈ ℤ ∧ -𝑁 ∈ ℤ) → (𝑀 lcm -𝑁) ∈
ℕ0) |
| 31 | 2, 30 | sylan2 286 |
. . . . . . . . . 10
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 lcm -𝑁) ∈
ℕ0) |
| 32 | 31 | nn0zd 9446 |
. . . . . . . . 9
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 lcm -𝑁) ∈ ℤ) |
| 33 | | negdvdsb 11972 |
. . . . . . . . 9
⊢ ((𝑁 ∈ ℤ ∧ (𝑀 lcm -𝑁) ∈ ℤ) → (𝑁 ∥ (𝑀 lcm -𝑁) ↔ -𝑁 ∥ (𝑀 lcm -𝑁))) |
| 34 | 29, 32, 33 | syl2anc 411 |
. . . . . . . 8
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑁 ∥ (𝑀 lcm -𝑁) ↔ -𝑁 ∥ (𝑀 lcm -𝑁))) |
| 35 | 34 | anbi2d 464 |
. . . . . . 7
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝑀 ∥ (𝑀 lcm -𝑁) ∧ 𝑁 ∥ (𝑀 lcm -𝑁)) ↔ (𝑀 ∥ (𝑀 lcm -𝑁) ∧ -𝑁 ∥ (𝑀 lcm -𝑁)))) |
| 36 | 28, 35 | mpbird 167 |
. . . . . 6
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 ∥ (𝑀 lcm -𝑁) ∧ 𝑁 ∥ (𝑀 lcm -𝑁))) |
| 37 | 36 | adantr 276 |
. . . . 5
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → (𝑀 ∥ (𝑀 lcm -𝑁) ∧ 𝑁 ∥ (𝑀 lcm -𝑁))) |
| 38 | | zcn 9331 |
. . . . . . . . . . . . 13
⊢ (𝑁 ∈ ℤ → 𝑁 ∈
ℂ) |
| 39 | 38 | negeq0d 8329 |
. . . . . . . . . . . 12
⊢ (𝑁 ∈ ℤ → (𝑁 = 0 ↔ -𝑁 = 0)) |
| 40 | 39 | orbi2d 791 |
. . . . . . . . . . 11
⊢ (𝑁 ∈ ℤ → ((𝑀 = 0 ∨ 𝑁 = 0) ↔ (𝑀 = 0 ∨ -𝑁 = 0))) |
| 41 | 40 | notbid 668 |
. . . . . . . . . 10
⊢ (𝑁 ∈ ℤ → (¬
(𝑀 = 0 ∨ 𝑁 = 0) ↔ ¬ (𝑀 = 0 ∨ -𝑁 = 0))) |
| 42 | 41 | biimpa 296 |
. . . . . . . . 9
⊢ ((𝑁 ∈ ℤ ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → ¬ (𝑀 = 0 ∨ -𝑁 = 0)) |
| 43 | 42 | adantll 476 |
. . . . . . . 8
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → ¬ (𝑀 = 0 ∨ -𝑁 = 0)) |
| 44 | | lcmn0cl 12236 |
. . . . . . . . 9
⊢ (((𝑀 ∈ ℤ ∧ -𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ -𝑁 = 0)) → (𝑀 lcm -𝑁) ∈ ℕ) |
| 45 | 2, 44 | sylanl2 403 |
. . . . . . . 8
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ -𝑁 = 0)) → (𝑀 lcm -𝑁) ∈ ℕ) |
| 46 | 43, 45 | syldan 282 |
. . . . . . 7
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → (𝑀 lcm -𝑁) ∈ ℕ) |
| 47 | | simpl 109 |
. . . . . . 7
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → (𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ)) |
| 48 | | 3anass 984 |
. . . . . . 7
⊢ (((𝑀 lcm -𝑁) ∈ ℕ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ↔ ((𝑀 lcm -𝑁) ∈ ℕ ∧ (𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ))) |
| 49 | 46, 47, 48 | sylanbrc 417 |
. . . . . 6
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → ((𝑀 lcm -𝑁) ∈ ℕ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ)) |
| 50 | | simpr 110 |
. . . . . 6
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → ¬ (𝑀 = 0 ∨ 𝑁 = 0)) |
| 51 | | lcmledvds 12238 |
. . . . . 6
⊢ ((((𝑀 lcm -𝑁) ∈ ℕ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬ (𝑀 = 0 ∨ 𝑁 = 0)) → ((𝑀 ∥ (𝑀 lcm -𝑁) ∧ 𝑁 ∥ (𝑀 lcm -𝑁)) → (𝑀 lcm 𝑁) ≤ (𝑀 lcm -𝑁))) |
| 52 | 49, 50, 51 | syl2anc 411 |
. . . . 5
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → ((𝑀 ∥ (𝑀 lcm -𝑁) ∧ 𝑁 ∥ (𝑀 lcm -𝑁)) → (𝑀 lcm 𝑁) ≤ (𝑀 lcm -𝑁))) |
| 53 | 37, 52 | mpd 13 |
. . . 4
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → (𝑀 lcm 𝑁) ≤ (𝑀 lcm -𝑁)) |
| 54 | | dvdslcm 12237 |
. . . . . 6
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 ∥ (𝑀 lcm 𝑁) ∧ 𝑁 ∥ (𝑀 lcm 𝑁))) |
| 55 | 54 | adantr 276 |
. . . . 5
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → (𝑀 ∥ (𝑀 lcm 𝑁) ∧ 𝑁 ∥ (𝑀 lcm 𝑁))) |
| 56 | | simplr 528 |
. . . . . . . 8
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → 𝑁 ∈ ℤ) |
| 57 | | lcmn0cl 12236 |
. . . . . . . . 9
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → (𝑀 lcm 𝑁) ∈ ℕ) |
| 58 | 57 | nnzd 9447 |
. . . . . . . 8
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → (𝑀 lcm 𝑁) ∈ ℤ) |
| 59 | | negdvdsb 11972 |
. . . . . . . 8
⊢ ((𝑁 ∈ ℤ ∧ (𝑀 lcm 𝑁) ∈ ℤ) → (𝑁 ∥ (𝑀 lcm 𝑁) ↔ -𝑁 ∥ (𝑀 lcm 𝑁))) |
| 60 | 56, 58, 59 | syl2anc 411 |
. . . . . . 7
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → (𝑁 ∥ (𝑀 lcm 𝑁) ↔ -𝑁 ∥ (𝑀 lcm 𝑁))) |
| 61 | 60 | anbi2d 464 |
. . . . . 6
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → ((𝑀 ∥ (𝑀 lcm 𝑁) ∧ 𝑁 ∥ (𝑀 lcm 𝑁)) ↔ (𝑀 ∥ (𝑀 lcm 𝑁) ∧ -𝑁 ∥ (𝑀 lcm 𝑁)))) |
| 62 | | lcmledvds 12238 |
. . . . . . . . . 10
⊢ ((((𝑀 lcm 𝑁) ∈ ℕ ∧ 𝑀 ∈ ℤ ∧ -𝑁 ∈ ℤ) ∧ ¬ (𝑀 = 0 ∨ -𝑁 = 0)) → ((𝑀 ∥ (𝑀 lcm 𝑁) ∧ -𝑁 ∥ (𝑀 lcm 𝑁)) → (𝑀 lcm -𝑁) ≤ (𝑀 lcm 𝑁))) |
| 63 | 62 | ex 115 |
. . . . . . . . 9
⊢ (((𝑀 lcm 𝑁) ∈ ℕ ∧ 𝑀 ∈ ℤ ∧ -𝑁 ∈ ℤ) → (¬ (𝑀 = 0 ∨ -𝑁 = 0) → ((𝑀 ∥ (𝑀 lcm 𝑁) ∧ -𝑁 ∥ (𝑀 lcm 𝑁)) → (𝑀 lcm -𝑁) ≤ (𝑀 lcm 𝑁)))) |
| 64 | 2, 63 | syl3an3 1284 |
. . . . . . . 8
⊢ (((𝑀 lcm 𝑁) ∈ ℕ ∧ 𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (¬ (𝑀 = 0 ∨ -𝑁 = 0) → ((𝑀 ∥ (𝑀 lcm 𝑁) ∧ -𝑁 ∥ (𝑀 lcm 𝑁)) → (𝑀 lcm -𝑁) ≤ (𝑀 lcm 𝑁)))) |
| 65 | 64 | 3expib 1208 |
. . . . . . 7
⊢ ((𝑀 lcm 𝑁) ∈ ℕ → ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (¬ (𝑀 = 0 ∨ -𝑁 = 0) → ((𝑀 ∥ (𝑀 lcm 𝑁) ∧ -𝑁 ∥ (𝑀 lcm 𝑁)) → (𝑀 lcm -𝑁) ≤ (𝑀 lcm 𝑁))))) |
| 66 | 57, 47, 43, 65 | syl3c 63 |
. . . . . 6
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → ((𝑀 ∥ (𝑀 lcm 𝑁) ∧ -𝑁 ∥ (𝑀 lcm 𝑁)) → (𝑀 lcm -𝑁) ≤ (𝑀 lcm 𝑁))) |
| 67 | 61, 66 | sylbid 150 |
. . . . 5
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → ((𝑀 ∥ (𝑀 lcm 𝑁) ∧ 𝑁 ∥ (𝑀 lcm 𝑁)) → (𝑀 lcm -𝑁) ≤ (𝑀 lcm 𝑁))) |
| 68 | 55, 67 | mpd 13 |
. . . 4
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → (𝑀 lcm -𝑁) ≤ (𝑀 lcm 𝑁)) |
| 69 | | lcmcl 12240 |
. . . . . . 7
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 lcm 𝑁) ∈
ℕ0) |
| 70 | 69 | nn0red 9303 |
. . . . . 6
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 lcm 𝑁) ∈ ℝ) |
| 71 | 30 | nn0red 9303 |
. . . . . . 7
⊢ ((𝑀 ∈ ℤ ∧ -𝑁 ∈ ℤ) → (𝑀 lcm -𝑁) ∈ ℝ) |
| 72 | 2, 71 | sylan2 286 |
. . . . . 6
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 lcm -𝑁) ∈ ℝ) |
| 73 | 70, 72 | letri3d 8142 |
. . . . 5
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝑀 lcm 𝑁) = (𝑀 lcm -𝑁) ↔ ((𝑀 lcm 𝑁) ≤ (𝑀 lcm -𝑁) ∧ (𝑀 lcm -𝑁) ≤ (𝑀 lcm 𝑁)))) |
| 74 | 73 | adantr 276 |
. . . 4
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → ((𝑀 lcm 𝑁) = (𝑀 lcm -𝑁) ↔ ((𝑀 lcm 𝑁) ≤ (𝑀 lcm -𝑁) ∧ (𝑀 lcm -𝑁) ≤ (𝑀 lcm 𝑁)))) |
| 75 | 53, 68, 74 | mpbir2and 946 |
. . 3
⊢ (((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
(𝑀 = 0 ∨ 𝑁 = 0)) → (𝑀 lcm 𝑁) = (𝑀 lcm -𝑁)) |
| 76 | | lcmmndc 12230 |
. . . 4
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
DECID (𝑀 = 0
∨ 𝑁 =
0)) |
| 77 | | exmiddc 837 |
. . . 4
⊢
(DECID (𝑀 = 0 ∨ 𝑁 = 0) → ((𝑀 = 0 ∨ 𝑁 = 0) ∨ ¬ (𝑀 = 0 ∨ 𝑁 = 0))) |
| 78 | 76, 77 | syl 14 |
. . 3
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → ((𝑀 = 0 ∨ 𝑁 = 0) ∨ ¬ (𝑀 = 0 ∨ 𝑁 = 0))) |
| 79 | 26, 75, 78 | mpjaodan 799 |
. 2
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 lcm 𝑁) = (𝑀 lcm -𝑁)) |
| 80 | 79 | eqcomd 2202 |
1
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 lcm -𝑁) = (𝑀 lcm 𝑁)) |