Proof of Theorem sqabsaddt
| Step | Hyp | Ref
| Expression |
| 1 | | cjaddt 6812 |
. . . 4
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → (∗
‘(A + B)) = ((∗
‘A) + (∗ ‘B))) |
| 2 | 1 | opreq2d 3982 |
. . 3
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → ((A
+ B) · (∗ ‘(A +
B))) = ((A + B) ·
((∗ ‘A) + (∗
‘B)))) |
| 3 | | cjclt 6765 |
. . . . 5
⊢ (A ∈ ℂ → (∗
‘A) ∈ ℂ) |
| 4 | | cjclt 6765 |
. . . . 5
⊢ (B ∈ ℂ → (∗
‘B) ∈ ℂ) |
| 5 | 3, 4 | anim12i 333 |
. . . 4
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → ((∗
‘A) ∈ ℂ ⋀ (∗
‘B) ∈ ℂ)) |
| 6 | | muladdt 5433 |
. . . 4
⊢ (((A ∈ ℂ ⋀ B ∈ ℂ) ⋀ ((∗ ‘A)
∈ ℂ ⋀ (∗
‘B) ∈ ℂ)) →
((A + B) · ((∗
‘A) + (∗ ‘B)))
= (((A · (∗ ‘A))
+ ((∗ ‘B) · B))
+ ((A · (∗ ‘B))
+ ((∗ ‘A) · B)))) |
| 7 | 5, 6 | mpdan 706 |
. . 3
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → ((A
+ B) · ((∗ ‘A) +
(∗ ‘B))) = (((A
· (∗ ‘A)) + ((∗
‘B) · B)) + ((A
· (∗ ‘B)) + ((∗
‘A) · B)))) |
| 8 | 2, 7 | eqtrd 1510 |
. 2
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → ((A
+ B) · (∗ ‘(A +
B))) = (((A · (∗
‘A)) + ((∗ ‘B)
· B)) + ((A · (∗
‘B)) + ((∗ ‘A)
· B)))) |
| 9 | | axaddcl 5283 |
. . 3
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → (A +
B) ∈
ℂ) |
| 10 | | absvalsqt 6835 |
. . 3
⊢ ((A + B) ∈ ℂ → ((abs
‘(A + B))↑2) = ((A + B) ·
(∗ ‘(A + B)))) |
| 11 | 9, 10 | syl 10 |
. 2
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → ((abs ‘(A + B))↑2)
= ((A + B) · (∗
‘(A + B)))) |
| 12 | | absvalsqt 6835 |
. . . 4
⊢ (A ∈ ℂ → ((abs ‘A)↑2) = (A
· (∗ ‘A))) |
| 13 | | absvalsqt 6835 |
. . . . 5
⊢ (B ∈ ℂ → ((abs ‘B)↑2) = (B
· (∗ ‘B))) |
| 14 | | axmulcom 5288 |
. . . . . 6
⊢ ((B ∈ ℂ ⋀ (∗ ‘B)
∈ ℂ)
→ (B · (∗ ‘B))
= ((∗ ‘B) · B)) |
| 15 | 4, 14 | mpdan 706 |
. . . . 5
⊢ (B ∈ ℂ → (B
· (∗ ‘B)) = ((∗
‘B) · B)) |
| 16 | 13, 15 | eqtrd 1510 |
. . . 4
⊢ (B ∈ ℂ → ((abs ‘B)↑2) = ((∗
‘B) · B)) |
| 17 | 12, 16 | opreqan12d 3985 |
. . 3
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → (((abs ‘A)↑2) + ((abs ‘B)↑2)) = ((A · (∗
‘A)) + ((∗ ‘B)
· B))) |
| 18 | | axmulcl 5285 |
. . . . . 6
⊢ ((A ∈ ℂ ⋀ (∗ ‘B)
∈ ℂ)
→ (A · (∗ ‘B))
∈ ℂ) |
| 19 | 18, 4 | sylan2 453 |
. . . . 5
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → (A
· (∗ ‘B)) ∈ ℂ) |
| 20 | | addcjt 6815 |
. . . . 5
⊢ ((A · (∗
‘B)) ∈ ℂ →
((A · (∗ ‘B))
+ (∗ ‘(A · (∗
‘B)))) = (2 · (ℜ ‘(A
· (∗ ‘B))))) |
| 21 | 19, 20 | syl 10 |
. . . 4
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → ((A
· (∗ ‘B)) + (∗
‘(A · (∗ ‘B)))) = (2 · (ℜ ‘(A
· (∗ ‘B))))) |
| 22 | | cjmult 6813 |
. . . . . . 7
⊢ ((A ∈ ℂ ⋀ (∗ ‘B)
∈ ℂ)
→ (∗ ‘(A · (∗
‘B))) = ((∗ ‘A)
· (∗ ‘(∗ ‘B)))) |
| 23 | 22, 4 | sylan2 453 |
. . . . . 6
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → (∗
‘(A · (∗ ‘B)))
= ((∗ ‘A) · (∗
‘(∗ ‘B)))) |
| 24 | | cjcjt 6811 |
. . . . . . . 8
⊢ (B ∈ ℂ → (∗
‘(∗ ‘B)) = B) |
| 25 | 24 | adantl 390 |
. . . . . . 7
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → (∗
‘(∗ ‘B)) = B) |
| 26 | 25 | opreq2d 3982 |
. . . . . 6
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → ((∗
‘A) · (∗ ‘(∗
‘B))) = ((∗ ‘A)
· B)) |
| 27 | 23, 26 | eqtrd 1510 |
. . . . 5
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → (∗
‘(A · (∗ ‘B)))
= ((∗ ‘A) · B)) |
| 28 | 27 | opreq2d 3982 |
. . . 4
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → ((A
· (∗ ‘B)) + (∗
‘(A · (∗ ‘B)))) = ((A
· (∗ ‘B)) + ((∗
‘A) · B))) |
| 29 | 21, 28 | eqtr3d 1512 |
. . 3
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → (2 · (ℜ ‘(A
· (∗ ‘B)))) = ((A
· (∗ ‘B)) + ((∗
‘A) · B))) |
| 30 | 17, 29 | opreq12d 3984 |
. 2
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → ((((abs ‘A)↑2) + ((abs ‘B)↑2)) + (2 · (ℜ ‘(A
· (∗ ‘B))))) = (((A
· (∗ ‘A)) + ((∗
‘B) · B)) + ((A
· (∗ ‘B)) + ((∗
‘A) · B)))) |
| 31 | 8, 11, 30 | 3eqtr4d 1520 |
1
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ) → ((abs ‘(A + B))↑2)
= ((((abs ‘A)↑2) + ((abs
‘B)↑2)) + (2 · (ℜ ‘(A
· (∗ ‘B)))))) |