Proof of Theorem zmulcom
Step | Hyp | Ref
| Expression |
1 | | reelznn0nn 40820 |
. 2
⊢ (𝐴 ∈ ℤ ↔ (𝐴 ∈ ℕ0 ∨
(𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ))) |
2 | | reelznn0nn 40820 |
. 2
⊢ (𝐵 ∈ ℤ ↔ (𝐵 ∈ ℕ0 ∨
(𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ))) |
3 | | nn0mulcom 40825 |
. . 3
⊢ ((𝐴 ∈ ℕ0
∧ 𝐵 ∈
ℕ0) → (𝐴 · 𝐵) = (𝐵 · 𝐴)) |
4 | | zmulcomlem 40826 |
. . 3
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ 𝐵 ∈ ℕ0) → (𝐴 · 𝐵) = (𝐵 · 𝐴)) |
5 | | zmulcomlem 40826 |
. . . . 5
⊢ (((𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ) ∧ 𝐴 ∈ ℕ0) → (𝐵 · 𝐴) = (𝐴 · 𝐵)) |
6 | 5 | eqcomd 2743 |
. . . 4
⊢ (((𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ) ∧ 𝐴 ∈ ℕ0) → (𝐴 · 𝐵) = (𝐵 · 𝐴)) |
7 | 6 | ancoms 459 |
. . 3
⊢ ((𝐴 ∈ ℕ0
∧ (𝐵 ∈ ℝ
∧ (0 −ℝ 𝐵) ∈ ℕ)) → (𝐴 · 𝐵) = (𝐵 · 𝐴)) |
8 | | nnmulcom 40690 |
. . . . . . . . 9
⊢ (((0
−ℝ 𝐴) ∈ ℕ ∧ (0
−ℝ 𝐵) ∈ ℕ) → ((0
−ℝ 𝐴) · (0 −ℝ
𝐵)) = ((0
−ℝ 𝐵) · (0 −ℝ
𝐴))) |
9 | 8 | ad2ant2l 744 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → ((0
−ℝ 𝐴) · (0 −ℝ
𝐵)) = ((0
−ℝ 𝐵) · (0 −ℝ
𝐴))) |
10 | 9 | oveq2d 7367 |
. . . . . . 7
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → (0
−ℝ ((0 −ℝ 𝐴) · (0 −ℝ
𝐵))) = (0
−ℝ ((0 −ℝ 𝐵) · (0 −ℝ
𝐴)))) |
11 | | rernegcl 40742 |
. . . . . . . . 9
⊢ (𝐴 ∈ ℝ → (0
−ℝ 𝐴) ∈ ℝ) |
12 | 11 | ad2antrr 724 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → (0
−ℝ 𝐴) ∈ ℝ) |
13 | | simprr 771 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → (0
−ℝ 𝐵) ∈ ℕ) |
14 | 12, 13 | renegmulnnass 40824 |
. . . . . . 7
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → ((0
−ℝ (0 −ℝ 𝐴)) · (0 −ℝ
𝐵)) = (0
−ℝ ((0 −ℝ 𝐴) · (0 −ℝ
𝐵)))) |
15 | | rernegcl 40742 |
. . . . . . . . 9
⊢ (𝐵 ∈ ℝ → (0
−ℝ 𝐵) ∈ ℝ) |
16 | 15 | ad2antrl 726 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → (0
−ℝ 𝐵) ∈ ℝ) |
17 | | simplr 767 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → (0
−ℝ 𝐴) ∈ ℕ) |
18 | 16, 17 | renegmulnnass 40824 |
. . . . . . 7
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → ((0
−ℝ (0 −ℝ 𝐵)) · (0 −ℝ
𝐴)) = (0
−ℝ ((0 −ℝ 𝐵) · (0 −ℝ
𝐴)))) |
19 | 10, 14, 18 | 3eqtr4d 2787 |
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → ((0
−ℝ (0 −ℝ 𝐴)) · (0 −ℝ
𝐵)) = ((0
−ℝ (0 −ℝ 𝐵)) · (0 −ℝ
𝐴))) |
20 | 19 | oveq2d 7367 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → (0
−ℝ ((0 −ℝ (0
−ℝ 𝐴)) · (0 −ℝ
𝐵))) = (0
−ℝ ((0 −ℝ (0
−ℝ 𝐵)) · (0 −ℝ
𝐴)))) |
21 | | rernegcl 40742 |
. . . . . . . 8
⊢ ((0
−ℝ 𝐴) ∈ ℝ → (0
−ℝ (0 −ℝ 𝐴)) ∈ ℝ) |
22 | 11, 21 | syl 17 |
. . . . . . 7
⊢ (𝐴 ∈ ℝ → (0
−ℝ (0 −ℝ 𝐴)) ∈ ℝ) |
23 | 22 | ad2antrr 724 |
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → (0
−ℝ (0 −ℝ 𝐴)) ∈ ℝ) |
24 | 23, 16 | remulneg2d 40785 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → ((0
−ℝ (0 −ℝ 𝐴)) · (0 −ℝ (0
−ℝ 𝐵))) = (0 −ℝ ((0
−ℝ (0 −ℝ 𝐴)) · (0 −ℝ
𝐵)))) |
25 | | rernegcl 40742 |
. . . . . . . 8
⊢ ((0
−ℝ 𝐵) ∈ ℝ → (0
−ℝ (0 −ℝ 𝐵)) ∈ ℝ) |
26 | 15, 25 | syl 17 |
. . . . . . 7
⊢ (𝐵 ∈ ℝ → (0
−ℝ (0 −ℝ 𝐵)) ∈ ℝ) |
27 | 26 | ad2antrl 726 |
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → (0
−ℝ (0 −ℝ 𝐵)) ∈ ℝ) |
28 | 27, 12 | remulneg2d 40785 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → ((0
−ℝ (0 −ℝ 𝐵)) · (0 −ℝ (0
−ℝ 𝐴))) = (0 −ℝ ((0
−ℝ (0 −ℝ 𝐵)) · (0 −ℝ
𝐴)))) |
29 | 20, 24, 28 | 3eqtr4d 2787 |
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → ((0
−ℝ (0 −ℝ 𝐴)) · (0 −ℝ (0
−ℝ 𝐵))) = ((0 −ℝ (0
−ℝ 𝐵)) · (0 −ℝ (0
−ℝ 𝐴)))) |
30 | | renegneg 40782 |
. . . . . 6
⊢ (𝐴 ∈ ℝ → (0
−ℝ (0 −ℝ 𝐴)) = 𝐴) |
31 | 30 | ad2antrr 724 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → (0
−ℝ (0 −ℝ 𝐴)) = 𝐴) |
32 | | renegneg 40782 |
. . . . . 6
⊢ (𝐵 ∈ ℝ → (0
−ℝ (0 −ℝ 𝐵)) = 𝐵) |
33 | 32 | ad2antrl 726 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → (0
−ℝ (0 −ℝ 𝐵)) = 𝐵) |
34 | 31, 33 | oveq12d 7369 |
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → ((0
−ℝ (0 −ℝ 𝐴)) · (0 −ℝ (0
−ℝ 𝐵))) = (𝐴 · 𝐵)) |
35 | 33, 31 | oveq12d 7369 |
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → ((0
−ℝ (0 −ℝ 𝐵)) · (0 −ℝ (0
−ℝ 𝐴))) = (𝐵 · 𝐴)) |
36 | 29, 34, 35 | 3eqtr3d 2785 |
. . 3
⊢ (((𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ) ∧ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ)) → (𝐴 · 𝐵) = (𝐵 · 𝐴)) |
37 | 3, 4, 7, 36 | ccase 1036 |
. 2
⊢ (((𝐴 ∈ ℕ0 ∨
(𝐴 ∈ ℝ ∧ (0
−ℝ 𝐴) ∈ ℕ)) ∧ (𝐵 ∈ ℕ0 ∨ (𝐵 ∈ ℝ ∧ (0
−ℝ 𝐵) ∈ ℕ))) → (𝐴 · 𝐵) = (𝐵 · 𝐴)) |
38 | 1, 2, 37 | syl2anb 598 |
1
⊢ ((𝐴 ∈ ℤ ∧ 𝐵 ∈ ℤ) → (𝐴 · 𝐵) = (𝐵 · 𝐴)) |