Proof of Theorem eigorth
| Step | Hyp | Ref
| Expression |
| 1 | | opreq2 3975 |
. . . 4
⊢ ((T ‘B) =
(D ·h
B) → (A ·ih (T ‘B)) =
(A ·ih
(D ·h
B))) |
| 2 | | eigorth.4 |
. . . . 5
⊢ D ∈ ℂ |
| 3 | | eigorth.1 |
. . . . 5
⊢ A ∈ ℋ |
| 4 | | eigorth.2 |
. . . . 5
⊢ B ∈ ℋ |
| 5 | | his5t 8948 |
. . . . 5
⊢ ((D ∈ ℂ ⋀ A ∈ ℋ ⋀ B ∈ ℋ ) → (A
·ih (D
·h B)) =
((∗ ‘D) · (A
·ih B))) |
| 6 | 2, 3, 4, 5 | mp3an 918 |
. . . 4
⊢ (A ·ih (D ·h B)) = ((∗
‘D) · (A ·ih B)) |
| 7 | 1, 6 | syl6eq 1526 |
. . 3
⊢ ((T ‘B) =
(D ·h
B) → (A ·ih (T ‘B)) =
((∗ ‘D) · (A
·ih B))) |
| 8 | | opreq1 3974 |
. . . 4
⊢ ((T ‘A) =
(C ·h
A) → ((T ‘A)
·ih B) =
((C ·h
A) ·ih
B)) |
| 9 | | eigorth.3 |
. . . . 5
⊢ C ∈ ℂ |
| 10 | | ax-his3 8946 |
. . . . 5
⊢ ((C ∈ ℂ ⋀ A ∈ ℋ ⋀ B ∈ ℋ ) → ((C
·h A)
·ih B) =
(C · (A ·ih B))) |
| 11 | 9, 3, 4, 10 | mp3an 918 |
. . . 4
⊢ ((C ·h A) ·ih B) = (C ·
(A ·ih
B)) |
| 12 | 8, 11 | syl6eq 1526 |
. . 3
⊢ ((T ‘A) =
(C ·h
A) → ((T ‘A)
·ih B) =
(C · (A ·ih B))) |
| 13 | 7, 12 | eqeqan12rd 1494 |
. 2
⊢ (((T ‘A) =
(C ·h
A) ⋀
(T ‘B) = (D
·h B))
→ ((A
·ih (T
‘B)) = ((T ‘A)
·ih B)
↔ ((∗ ‘D) · (A
·ih B)) =
(C · (A ·ih B)))) |
| 14 | 2 | cjcl 6768 |
. . . . . . . 8
⊢ (∗ ‘D)
∈ ℂ |
| 15 | 3, 4 | hicl 8943 |
. . . . . . . 8
⊢ (A ·ih B) ∈ ℂ |
| 16 | | mulcan2tOLD 5705 |
. . . . . . . . . 10
⊢ ((((∗ ‘D)
∈ ℂ ⋀ C ∈ ℂ ⋀ (A
·ih B)
∈ ℂ) ⋀ (A
·ih B) ≠
0) → (((∗ ‘D) · (A
·ih B)) =
(C · (A ·ih B)) ↔ (∗
‘D) = C)) |
| 17 | | df-ne 1590 |
. . . . . . . . . 10
⊢ ((A ·ih B) ≠ 0 ↔ ¬ (A ·ih B) = 0) |
| 18 | 16, 17 | sylan2br 455 |
. . . . . . . . 9
⊢ ((((∗ ‘D)
∈ ℂ ⋀ C ∈ ℂ ⋀ (A
·ih B)
∈ ℂ) ⋀ ¬ (A
·ih B) = 0)
→ (((∗ ‘D) · (A
·ih B)) =
(C · (A ·ih B)) ↔ (∗
‘D) = C)) |
| 19 | 18 | ex 373 |
. . . . . . . 8
⊢ (((∗ ‘D)
∈ ℂ ⋀ C ∈ ℂ ⋀ (A
·ih B)
∈ ℂ)
→ (¬ (A
·ih B) = 0
→ (((∗ ‘D) · (A
·ih B)) =
(C · (A ·ih B)) ↔ (∗
‘D) = C))) |
| 20 | 14, 9, 15, 19 | mp3an 918 |
. . . . . . 7
⊢ (¬ (A ·ih B) = 0 → (((∗ ‘D)
· (A
·ih B)) =
(C · (A ·ih B)) ↔ (∗
‘D) = C)) |
| 21 | | eqcom 1480 |
. . . . . . 7
⊢ ((∗ ‘D) =
C ↔ C = (∗
‘D)) |
| 22 | 20, 21 | syl6bb 538 |
. . . . . 6
⊢ (¬ (A ·ih B) = 0 → (((∗ ‘D)
· (A
·ih B)) =
(C · (A ·ih B)) ↔ C =
(∗ ‘D))) |
| 23 | 22 | biimpcd 155 |
. . . . 5
⊢ (((∗ ‘D)
· (A
·ih B)) =
(C · (A ·ih B)) → (¬ (A ·ih B) = 0 → C
= (∗ ‘D))) |
| 24 | 23 | con1d 93 |
. . . 4
⊢ (((∗ ‘D)
· (A
·ih B)) =
(C · (A ·ih B)) → (¬ C = (∗
‘D) → (A ·ih B) = 0)) |
| 25 | 24 | com12 11 |
. . 3
⊢ (¬ C = (∗
‘D) → (((∗ ‘D)
· (A
·ih B)) =
(C · (A ·ih B)) → (A
·ih B) =
0)) |
| 26 | | opreq2 3975 |
. . . 4
⊢ ((A ·ih B) = 0 → ((∗ ‘D)
· (A
·ih B)) =
((∗ ‘D) · 0)) |
| 27 | | opreq2 3975 |
. . . . 5
⊢ ((A ·ih B) = 0 → (C
· (A
·ih B)) =
(C · 0)) |
| 28 | 9 | mul01 5443 |
. . . . . 6
⊢ (C · 0) = 0 |
| 29 | 14 | mul01 5443 |
. . . . . 6
⊢ ((∗ ‘D)
· 0) = 0 |
| 30 | 28, 29 | eqtr4 1501 |
. . . . 5
⊢ (C · 0) = ((∗ ‘D)
· 0) |
| 31 | 27, 30 | syl6eq 1526 |
. . . 4
⊢ ((A ·ih B) = 0 → (C
· (A
·ih B)) =
((∗ ‘D) · 0)) |
| 32 | 26, 31 | eqtr4d 1513 |
. . 3
⊢ ((A ·ih B) = 0 → ((∗ ‘D)
· (A
·ih B)) =
(C · (A ·ih B))) |
| 33 | 25, 32 | impbid1 519 |
. 2
⊢ (¬ C = (∗
‘D) → (((∗ ‘D)
· (A
·ih B)) =
(C · (A ·ih B)) ↔ (A
·ih B) =
0)) |
| 34 | 13, 33 | sylan9bb 542 |
1
⊢ ((((T ‘A) =
(C ·h
A) ⋀
(T ‘B) = (D
·h B))
⋀ ¬ C = (∗
‘D)) → ((A ·ih (T ‘B)) =
((T ‘A) ·ih B) ↔ (A
·ih B) =
0)) |