Proof of Theorem mulreim
Step | Hyp | Ref
| Expression |
1 | | simpll 519 |
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → 𝐴 ∈
ℝ) |
2 | 1 | recnd 7907 |
. . 3
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → 𝐴 ∈
ℂ) |
3 | | ax-icn 7828 |
. . . . 5
⊢ i ∈
ℂ |
4 | 3 | a1i 9 |
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → i
∈ ℂ) |
5 | | simplr 520 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → 𝐵 ∈
ℝ) |
6 | 5 | recnd 7907 |
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → 𝐵 ∈
ℂ) |
7 | 4, 6 | mulcld 7899 |
. . 3
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (i
· 𝐵) ∈
ℂ) |
8 | | simprl 521 |
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → 𝐶 ∈
ℝ) |
9 | 8 | recnd 7907 |
. . 3
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → 𝐶 ∈
ℂ) |
10 | | simprr 522 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → 𝐷 ∈
ℝ) |
11 | 10 | recnd 7907 |
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → 𝐷 ∈
ℂ) |
12 | 4, 11 | mulcld 7899 |
. . 3
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (i
· 𝐷) ∈
ℂ) |
13 | 2, 7, 9, 12 | muladdd 8292 |
. 2
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → ((𝐴 + (i · 𝐵)) · (𝐶 + (i · 𝐷))) = (((𝐴 · 𝐶) + ((i · 𝐷) · (i · 𝐵))) + ((𝐴 · (i · 𝐷)) + (𝐶 · (i · 𝐵))))) |
14 | 4, 11, 4, 6 | mul4d 8031 |
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → ((i
· 𝐷) · (i
· 𝐵)) = ((i ·
i) · (𝐷 ·
𝐵))) |
15 | | ixi 8459 |
. . . . . . 7
⊢ (i
· i) = -1 |
16 | 15 | oveq1i 5835 |
. . . . . 6
⊢ ((i
· i) · (𝐷
· 𝐵)) = (-1 ·
(𝐷 · 𝐵)) |
17 | 14, 16 | eqtrdi 2206 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → ((i
· 𝐷) · (i
· 𝐵)) = (-1 ·
(𝐷 · 𝐵))) |
18 | 11, 6 | mulcld 7899 |
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (𝐷 · 𝐵) ∈ ℂ) |
19 | 18 | mulm1d 8286 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (-1
· (𝐷 · 𝐵)) = -(𝐷 · 𝐵)) |
20 | 11, 6 | mulcomd 7900 |
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (𝐷 · 𝐵) = (𝐵 · 𝐷)) |
21 | 20 | negeqd 8071 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → -(𝐷 · 𝐵) = -(𝐵 · 𝐷)) |
22 | 17, 19, 21 | 3eqtrd 2194 |
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → ((i
· 𝐷) · (i
· 𝐵)) = -(𝐵 · 𝐷)) |
23 | 22 | oveq2d 5841 |
. . 3
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → ((𝐴 · 𝐶) + ((i · 𝐷) · (i · 𝐵))) = ((𝐴 · 𝐶) + -(𝐵 · 𝐷))) |
24 | 11, 2 | mulcld 7899 |
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (𝐷 · 𝐴) ∈ ℂ) |
25 | 4, 24 | mulcld 7899 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (i
· (𝐷 · 𝐴)) ∈
ℂ) |
26 | 9, 6 | mulcld 7899 |
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (𝐶 · 𝐵) ∈ ℂ) |
27 | 4, 26 | mulcld 7899 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (i
· (𝐶 · 𝐵)) ∈
ℂ) |
28 | 25, 27 | addcomd 8027 |
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → ((i
· (𝐷 · 𝐴)) + (i · (𝐶 · 𝐵))) = ((i · (𝐶 · 𝐵)) + (i · (𝐷 · 𝐴)))) |
29 | 2, 4, 11 | mul12d 8028 |
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (𝐴 · (i · 𝐷)) = (i · (𝐴 · 𝐷))) |
30 | 2, 11 | mulcomd 7900 |
. . . . . . 7
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (𝐴 · 𝐷) = (𝐷 · 𝐴)) |
31 | 30 | oveq2d 5841 |
. . . . . 6
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (i
· (𝐴 · 𝐷)) = (i · (𝐷 · 𝐴))) |
32 | 29, 31 | eqtrd 2190 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (𝐴 · (i · 𝐷)) = (i · (𝐷 · 𝐴))) |
33 | 9, 4, 6 | mul12d 8028 |
. . . . 5
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (𝐶 · (i · 𝐵)) = (i · (𝐶 · 𝐵))) |
34 | 32, 33 | oveq12d 5843 |
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → ((𝐴 · (i · 𝐷)) + (𝐶 · (i · 𝐵))) = ((i · (𝐷 · 𝐴)) + (i · (𝐶 · 𝐵)))) |
35 | 4, 26, 24 | adddid 7903 |
. . . 4
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → (i
· ((𝐶 · 𝐵) + (𝐷 · 𝐴))) = ((i · (𝐶 · 𝐵)) + (i · (𝐷 · 𝐴)))) |
36 | 28, 34, 35 | 3eqtr4d 2200 |
. . 3
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → ((𝐴 · (i · 𝐷)) + (𝐶 · (i · 𝐵))) = (i · ((𝐶 · 𝐵) + (𝐷 · 𝐴)))) |
37 | 23, 36 | oveq12d 5843 |
. 2
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) →
(((𝐴 · 𝐶) + ((i · 𝐷) · (i · 𝐵))) + ((𝐴 · (i · 𝐷)) + (𝐶 · (i · 𝐵)))) = (((𝐴 · 𝐶) + -(𝐵 · 𝐷)) + (i · ((𝐶 · 𝐵) + (𝐷 · 𝐴))))) |
38 | 13, 37 | eqtrd 2190 |
1
⊢ (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ)) → ((𝐴 + (i · 𝐵)) · (𝐶 + (i · 𝐷))) = (((𝐴 · 𝐶) + -(𝐵 · 𝐷)) + (i · ((𝐶 · 𝐵) + (𝐷 · 𝐴))))) |