Proof of Theorem eigposi
Step | Hyp | Ref
| Expression |
1 | | oveq2 7283 |
. . . . . . . 8
⊢ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) → (𝐴 ·ih (𝑇‘𝐴)) = (𝐴 ·ih (𝐵
·ℎ 𝐴))) |
2 | 1 | eleq1d 2823 |
. . . . . . 7
⊢ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) → ((𝐴 ·ih (𝑇‘𝐴)) ∈ ℝ ↔ (𝐴 ·ih (𝐵
·ℎ 𝐴)) ∈ ℝ)) |
3 | | eigpos.1 |
. . . . . . . . 9
⊢ 𝐴 ∈ ℋ |
4 | | eigpos.2 |
. . . . . . . . . 10
⊢ 𝐵 ∈ ℂ |
5 | 4, 3 | hvmulcli 29376 |
. . . . . . . . 9
⊢ (𝐵
·ℎ 𝐴) ∈ ℋ |
6 | | hire 29456 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℋ ∧ (𝐵
·ℎ 𝐴) ∈ ℋ) → ((𝐴 ·ih (𝐵
·ℎ 𝐴)) ∈ ℝ ↔ (𝐴 ·ih (𝐵
·ℎ 𝐴)) = ((𝐵 ·ℎ 𝐴)
·ih 𝐴))) |
7 | 3, 5, 6 | mp2an 689 |
. . . . . . . 8
⊢ ((𝐴
·ih (𝐵 ·ℎ 𝐴)) ∈ ℝ ↔ (𝐴
·ih (𝐵 ·ℎ 𝐴)) = ((𝐵 ·ℎ 𝐴)
·ih 𝐴)) |
8 | | oveq1 7282 |
. . . . . . . . 9
⊢ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) → ((𝑇‘𝐴) ·ih 𝐴) = ((𝐵 ·ℎ 𝐴)
·ih 𝐴)) |
9 | 1, 8 | eqeq12d 2754 |
. . . . . . . 8
⊢ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) → ((𝐴 ·ih (𝑇‘𝐴)) = ((𝑇‘𝐴) ·ih 𝐴) ↔ (𝐴 ·ih (𝐵
·ℎ 𝐴)) = ((𝐵 ·ℎ 𝐴)
·ih 𝐴))) |
10 | 7, 9 | bitr4id 290 |
. . . . . . 7
⊢ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) → ((𝐴 ·ih (𝐵
·ℎ 𝐴)) ∈ ℝ ↔ (𝐴 ·ih (𝑇‘𝐴)) = ((𝑇‘𝐴) ·ih 𝐴))) |
11 | 2, 10 | bitrd 278 |
. . . . . 6
⊢ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) → ((𝐴 ·ih (𝑇‘𝐴)) ∈ ℝ ↔ (𝐴 ·ih (𝑇‘𝐴)) = ((𝑇‘𝐴) ·ih 𝐴))) |
12 | 11 | adantr 481 |
. . . . 5
⊢ (((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ) → ((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ↔ (𝐴 ·ih (𝑇‘𝐴)) = ((𝑇‘𝐴) ·ih 𝐴))) |
13 | 3, 4 | eigrei 30196 |
. . . . 5
⊢ (((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ) → ((𝐴
·ih (𝑇‘𝐴)) = ((𝑇‘𝐴) ·ih 𝐴) ↔ 𝐵 ∈ ℝ)) |
14 | 12, 13 | bitrd 278 |
. . . 4
⊢ (((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ) → ((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ↔ 𝐵 ∈ ℝ)) |
15 | 14 | biimpac 479 |
. . 3
⊢ (((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) → 𝐵 ∈
ℝ) |
16 | 15 | adantlr 712 |
. 2
⊢ ((((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ 0 ≤ (𝐴
·ih (𝑇‘𝐴))) ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) → 𝐵 ∈
ℝ) |
17 | | hiidrcl 29457 |
. . . . 5
⊢ (𝐴 ∈ ℋ → (𝐴
·ih 𝐴) ∈ ℝ) |
18 | 3, 17 | mp1i 13 |
. . . 4
⊢ ((((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ 0 ≤ (𝐴
·ih (𝑇‘𝐴))) ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) → (𝐴
·ih 𝐴) ∈ ℝ) |
19 | | ax-his4 29447 |
. . . . . 6
⊢ ((𝐴 ∈ ℋ ∧ 𝐴 ≠ 0ℎ)
→ 0 < (𝐴
·ih 𝐴)) |
20 | 3, 19 | mpan 687 |
. . . . 5
⊢ (𝐴 ≠ 0ℎ
→ 0 < (𝐴
·ih 𝐴)) |
21 | 20 | ad2antll 726 |
. . . 4
⊢ ((((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ 0 ≤ (𝐴
·ih (𝑇‘𝐴))) ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) → 0 <
(𝐴
·ih 𝐴)) |
22 | 18, 21 | elrpd 12769 |
. . 3
⊢ ((((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ 0 ≤ (𝐴
·ih (𝑇‘𝐴))) ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) → (𝐴
·ih 𝐴) ∈
ℝ+) |
23 | | simplr 766 |
. . . 4
⊢ ((((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ 0 ≤ (𝐴
·ih (𝑇‘𝐴))) ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) → 0 ≤
(𝐴
·ih (𝑇‘𝐴))) |
24 | 1 | ad2antrl 725 |
. . . . 5
⊢ ((((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ 0 ≤ (𝐴
·ih (𝑇‘𝐴))) ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) → (𝐴
·ih (𝑇‘𝐴)) = (𝐴 ·ih (𝐵
·ℎ 𝐴))) |
25 | | his5 29448 |
. . . . . . 7
⊢ ((𝐵 ∈ ℂ ∧ 𝐴 ∈ ℋ ∧ 𝐴 ∈ ℋ) → (𝐴
·ih (𝐵 ·ℎ 𝐴)) = ((∗‘𝐵) · (𝐴 ·ih 𝐴))) |
26 | 4, 3, 3, 25 | mp3an 1460 |
. . . . . 6
⊢ (𝐴
·ih (𝐵 ·ℎ 𝐴)) = ((∗‘𝐵) · (𝐴 ·ih 𝐴)) |
27 | 16 | cjred 14937 |
. . . . . . 7
⊢ ((((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ 0 ≤ (𝐴
·ih (𝑇‘𝐴))) ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) →
(∗‘𝐵) = 𝐵) |
28 | 27 | oveq1d 7290 |
. . . . . 6
⊢ ((((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ 0 ≤ (𝐴
·ih (𝑇‘𝐴))) ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) →
((∗‘𝐵)
· (𝐴
·ih 𝐴)) = (𝐵 · (𝐴 ·ih 𝐴))) |
29 | 26, 28 | eqtrid 2790 |
. . . . 5
⊢ ((((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ 0 ≤ (𝐴
·ih (𝑇‘𝐴))) ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) → (𝐴
·ih (𝐵 ·ℎ 𝐴)) = (𝐵 · (𝐴 ·ih 𝐴))) |
30 | 24, 29 | eqtrd 2778 |
. . . 4
⊢ ((((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ 0 ≤ (𝐴
·ih (𝑇‘𝐴))) ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) → (𝐴
·ih (𝑇‘𝐴)) = (𝐵 · (𝐴 ·ih 𝐴))) |
31 | 23, 30 | breqtrd 5100 |
. . 3
⊢ ((((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ 0 ≤ (𝐴
·ih (𝑇‘𝐴))) ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) → 0 ≤
(𝐵 · (𝐴
·ih 𝐴))) |
32 | 16, 22, 31 | prodge0ld 12838 |
. 2
⊢ ((((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ 0 ≤ (𝐴
·ih (𝑇‘𝐴))) ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) → 0 ≤
𝐵) |
33 | 16, 32 | jca 512 |
1
⊢ ((((𝐴
·ih (𝑇‘𝐴)) ∈ ℝ ∧ 0 ≤ (𝐴
·ih (𝑇‘𝐴))) ∧ ((𝑇‘𝐴) = (𝐵 ·ℎ 𝐴) ∧ 𝐴 ≠ 0ℎ)) → (𝐵 ∈ ℝ ∧ 0 ≤
𝐵)) |