Proof of Theorem zmulcl
| Step | Hyp | Ref
 | Expression | 
| 1 |   | elznn0 9341 | 
. 2
⊢ (𝑀 ∈ ℤ ↔ (𝑀 ∈ ℝ ∧ (𝑀 ∈ ℕ0 ∨
-𝑀 ∈
ℕ0))) | 
| 2 |   | elznn0 9341 | 
. 2
⊢ (𝑁 ∈ ℤ ↔ (𝑁 ∈ ℝ ∧ (𝑁 ∈ ℕ0 ∨
-𝑁 ∈
ℕ0))) | 
| 3 |   | nn0mulcl 9285 | 
. . . . . . . . 9
⊢ ((𝑀 ∈ ℕ0
∧ 𝑁 ∈
ℕ0) → (𝑀 · 𝑁) ∈
ℕ0) | 
| 4 | 3 | orcd 734 | 
. . . . . . . 8
⊢ ((𝑀 ∈ ℕ0
∧ 𝑁 ∈
ℕ0) → ((𝑀 · 𝑁) ∈ ℕ0 ∨ -(𝑀 · 𝑁) ∈
ℕ0)) | 
| 5 | 4 | a1i 9 | 
. . . . . . 7
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((𝑀 ∈ ℕ0
∧ 𝑁 ∈
ℕ0) → ((𝑀 · 𝑁) ∈ ℕ0 ∨ -(𝑀 · 𝑁) ∈
ℕ0))) | 
| 6 |   | remulcl 8007 | 
. . . . . . 7
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑀 · 𝑁) ∈ ℝ) | 
| 7 | 5, 6 | jctild 316 | 
. . . . . 6
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((𝑀 ∈ ℕ0
∧ 𝑁 ∈
ℕ0) → ((𝑀 · 𝑁) ∈ ℝ ∧ ((𝑀 · 𝑁) ∈ ℕ0 ∨ -(𝑀 · 𝑁) ∈
ℕ0)))) | 
| 8 |   | nn0mulcl 9285 | 
. . . . . . . . 9
⊢ ((-𝑀 ∈ ℕ0
∧ 𝑁 ∈
ℕ0) → (-𝑀 · 𝑁) ∈
ℕ0) | 
| 9 |   | recn 8012 | 
. . . . . . . . . . 11
⊢ (𝑀 ∈ ℝ → 𝑀 ∈
ℂ) | 
| 10 |   | recn 8012 | 
. . . . . . . . . . 11
⊢ (𝑁 ∈ ℝ → 𝑁 ∈
ℂ) | 
| 11 |   | mulneg1 8421 | 
. . . . . . . . . . 11
⊢ ((𝑀 ∈ ℂ ∧ 𝑁 ∈ ℂ) → (-𝑀 · 𝑁) = -(𝑀 · 𝑁)) | 
| 12 | 9, 10, 11 | syl2an 289 | 
. . . . . . . . . 10
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (-𝑀 · 𝑁) = -(𝑀 · 𝑁)) | 
| 13 | 12 | eleq1d 2265 | 
. . . . . . . . 9
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((-𝑀 · 𝑁) ∈ ℕ0 ↔ -(𝑀 · 𝑁) ∈
ℕ0)) | 
| 14 | 8, 13 | imbitrid 154 | 
. . . . . . . 8
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((-𝑀 ∈ ℕ0
∧ 𝑁 ∈
ℕ0) → -(𝑀 · 𝑁) ∈
ℕ0)) | 
| 15 |   | olc 712 | 
. . . . . . . 8
⊢ (-(𝑀 · 𝑁) ∈ ℕ0 → ((𝑀 · 𝑁) ∈ ℕ0 ∨ -(𝑀 · 𝑁) ∈
ℕ0)) | 
| 16 | 14, 15 | syl6 33 | 
. . . . . . 7
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((-𝑀 ∈ ℕ0
∧ 𝑁 ∈
ℕ0) → ((𝑀 · 𝑁) ∈ ℕ0 ∨ -(𝑀 · 𝑁) ∈
ℕ0))) | 
| 17 | 16, 6 | jctild 316 | 
. . . . . 6
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((-𝑀 ∈ ℕ0
∧ 𝑁 ∈
ℕ0) → ((𝑀 · 𝑁) ∈ ℝ ∧ ((𝑀 · 𝑁) ∈ ℕ0 ∨ -(𝑀 · 𝑁) ∈
ℕ0)))) | 
| 18 |   | nn0mulcl 9285 | 
. . . . . . . . 9
⊢ ((𝑀 ∈ ℕ0
∧ -𝑁 ∈
ℕ0) → (𝑀 · -𝑁) ∈
ℕ0) | 
| 19 |   | mulneg2 8422 | 
. . . . . . . . . . 11
⊢ ((𝑀 ∈ ℂ ∧ 𝑁 ∈ ℂ) → (𝑀 · -𝑁) = -(𝑀 · 𝑁)) | 
| 20 | 9, 10, 19 | syl2an 289 | 
. . . . . . . . . 10
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (𝑀 · -𝑁) = -(𝑀 · 𝑁)) | 
| 21 | 20 | eleq1d 2265 | 
. . . . . . . . 9
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((𝑀 · -𝑁) ∈ ℕ0 ↔ -(𝑀 · 𝑁) ∈
ℕ0)) | 
| 22 | 18, 21 | imbitrid 154 | 
. . . . . . . 8
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((𝑀 ∈ ℕ0
∧ -𝑁 ∈
ℕ0) → -(𝑀 · 𝑁) ∈
ℕ0)) | 
| 23 | 22, 15 | syl6 33 | 
. . . . . . 7
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((𝑀 ∈ ℕ0
∧ -𝑁 ∈
ℕ0) → ((𝑀 · 𝑁) ∈ ℕ0 ∨ -(𝑀 · 𝑁) ∈
ℕ0))) | 
| 24 | 23, 6 | jctild 316 | 
. . . . . 6
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((𝑀 ∈ ℕ0
∧ -𝑁 ∈
ℕ0) → ((𝑀 · 𝑁) ∈ ℝ ∧ ((𝑀 · 𝑁) ∈ ℕ0 ∨ -(𝑀 · 𝑁) ∈
ℕ0)))) | 
| 25 |   | nn0mulcl 9285 | 
. . . . . . . . 9
⊢ ((-𝑀 ∈ ℕ0
∧ -𝑁 ∈
ℕ0) → (-𝑀 · -𝑁) ∈
ℕ0) | 
| 26 |   | mul2neg 8424 | 
. . . . . . . . . . 11
⊢ ((𝑀 ∈ ℂ ∧ 𝑁 ∈ ℂ) → (-𝑀 · -𝑁) = (𝑀 · 𝑁)) | 
| 27 | 9, 10, 26 | syl2an 289 | 
. . . . . . . . . 10
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (-𝑀 · -𝑁) = (𝑀 · 𝑁)) | 
| 28 | 27 | eleq1d 2265 | 
. . . . . . . . 9
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((-𝑀 · -𝑁) ∈ ℕ0 ↔ (𝑀 · 𝑁) ∈
ℕ0)) | 
| 29 | 25, 28 | imbitrid 154 | 
. . . . . . . 8
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((-𝑀 ∈ ℕ0
∧ -𝑁 ∈
ℕ0) → (𝑀 · 𝑁) ∈
ℕ0)) | 
| 30 |   | orc 713 | 
. . . . . . . 8
⊢ ((𝑀 · 𝑁) ∈ ℕ0 → ((𝑀 · 𝑁) ∈ ℕ0 ∨ -(𝑀 · 𝑁) ∈
ℕ0)) | 
| 31 | 29, 30 | syl6 33 | 
. . . . . . 7
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((-𝑀 ∈ ℕ0
∧ -𝑁 ∈
ℕ0) → ((𝑀 · 𝑁) ∈ ℕ0 ∨ -(𝑀 · 𝑁) ∈
ℕ0))) | 
| 32 | 31, 6 | jctild 316 | 
. . . . . 6
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → ((-𝑀 ∈ ℕ0
∧ -𝑁 ∈
ℕ0) → ((𝑀 · 𝑁) ∈ ℝ ∧ ((𝑀 · 𝑁) ∈ ℕ0 ∨ -(𝑀 · 𝑁) ∈
ℕ0)))) | 
| 33 | 7, 17, 24, 32 | ccased 967 | 
. . . . 5
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (((𝑀 ∈ ℕ0 ∨
-𝑀 ∈
ℕ0) ∧ (𝑁 ∈ ℕ0 ∨ -𝑁 ∈ ℕ0))
→ ((𝑀 · 𝑁) ∈ ℝ ∧ ((𝑀 · 𝑁) ∈ ℕ0 ∨ -(𝑀 · 𝑁) ∈
ℕ0)))) | 
| 34 |   | elznn0 9341 | 
. . . . 5
⊢ ((𝑀 · 𝑁) ∈ ℤ ↔ ((𝑀 · 𝑁) ∈ ℝ ∧ ((𝑀 · 𝑁) ∈ ℕ0 ∨ -(𝑀 · 𝑁) ∈
ℕ0))) | 
| 35 | 33, 34 | imbitrrdi 162 | 
. . . 4
⊢ ((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) → (((𝑀 ∈ ℕ0 ∨
-𝑀 ∈
ℕ0) ∧ (𝑁 ∈ ℕ0 ∨ -𝑁 ∈ ℕ0))
→ (𝑀 · 𝑁) ∈
ℤ)) | 
| 36 | 35 | imp 124 | 
. . 3
⊢ (((𝑀 ∈ ℝ ∧ 𝑁 ∈ ℝ) ∧ ((𝑀 ∈ ℕ0 ∨
-𝑀 ∈
ℕ0) ∧ (𝑁 ∈ ℕ0 ∨ -𝑁 ∈ ℕ0)))
→ (𝑀 · 𝑁) ∈
ℤ) | 
| 37 | 36 | an4s 588 | 
. 2
⊢ (((𝑀 ∈ ℝ ∧ (𝑀 ∈ ℕ0 ∨
-𝑀 ∈
ℕ0)) ∧ (𝑁 ∈ ℝ ∧ (𝑁 ∈ ℕ0 ∨ -𝑁 ∈ ℕ0)))
→ (𝑀 · 𝑁) ∈
ℤ) | 
| 38 | 1, 2, 37 | syl2anb 291 | 
1
⊢ ((𝑀 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑀 · 𝑁) ∈ ℤ) |