Proof of Theorem recextlem2
| Step | Hyp | Ref
| Expression |
| 1 | | gt0ne0 5683 |
. 2
⊢ ((((A · A) +
(B · B)) ∈ ℝ ⋀ 0 <
((A · A) + (B ·
B))) → ((A · A) +
(B · B)) ≠ 0) |
| 2 | | readdcl 5367 |
. . . 4
⊢ (((A · A)
∈ ℝ ⋀ (B ·
B) ∈
ℝ) → ((A · A) +
(B · B)) ∈ ℝ) |
| 3 | | remulcl 5369 |
. . . . 5
⊢ ((A ∈ ℝ ⋀ A ∈ ℝ) → (A
· A) ∈ ℝ) |
| 4 | 3 | anidms 444 |
. . . 4
⊢ (A ∈ ℝ → (A
· A) ∈ ℝ) |
| 5 | | remulcl 5369 |
. . . . 5
⊢ ((B ∈ ℝ ⋀ B ∈ ℝ) → (B
· B) ∈ ℝ) |
| 6 | 5 | anidms 444 |
. . . 4
⊢ (B ∈ ℝ → (B
· B) ∈ ℝ) |
| 7 | 2, 4, 6 | syl2an 465 |
. . 3
⊢ ((A ∈ ℝ ⋀ B ∈ ℝ) → ((A
· A) + (B · B))
∈ ℝ) |
| 8 | 7 | 3adant3 811 |
. 2
⊢ ((A ∈ ℝ ⋀ B ∈ ℝ ⋀ (A + (i · B)) ≠ 0) → ((A · A) +
(B · B)) ∈ ℝ) |
| 9 | | addgtge0 5714 |
. . . . . 6
⊢ ((((A · A)
∈ ℝ ⋀ (B ·
B) ∈
ℝ) ⋀ (0
< (A · A) ⋀ 0 ≤
(B · B))) → 0 < ((A · A) +
(B · B))) |
| 10 | 4, 6 | anim12i 340 |
. . . . . . 7
⊢ ((A ∈ ℝ ⋀ B ∈ ℝ) → ((A
· A) ∈ ℝ ⋀ (B ·
B) ∈
ℝ)) |
| 11 | 10 | adantr 398 |
. . . . . 6
⊢ (((A ∈ ℝ ⋀ B ∈ ℝ) ⋀ A ≠ 0) → ((A · A)
∈ ℝ ⋀ (B ·
B) ∈
ℝ)) |
| 12 | | msqgt0 5680 |
. . . . . . . 8
⊢ ((A ∈ ℝ ⋀ A ≠ 0) → 0 < (A · A)) |
| 13 | | msqge0 5681 |
. . . . . . . 8
⊢ (B ∈ ℝ → 0 ≤ (B · B)) |
| 14 | 12, 13 | anim12i 340 |
. . . . . . 7
⊢ (((A ∈ ℝ ⋀ A ≠ 0) ⋀
B ∈ ℝ) → (0 < (A · A)
⋀ 0 ≤ (B · B))) |
| 15 | 14 | an1rs 500 |
. . . . . 6
⊢ (((A ∈ ℝ ⋀ B ∈ ℝ) ⋀ A ≠ 0) → (0 < (A · A)
⋀ 0 ≤ (B · B))) |
| 16 | 9, 11, 15 | sylanc 482 |
. . . . 5
⊢ (((A ∈ ℝ ⋀ B ∈ ℝ) ⋀ A ≠ 0) → 0 < ((A · A) +
(B · B))) |
| 17 | | addgegt0 5713 |
. . . . . 6
⊢ ((((A · A)
∈ ℝ ⋀ (B ·
B) ∈
ℝ) ⋀ (0
≤ (A · A) ⋀ 0 <
(B · B))) → 0 < ((A · A) +
(B · B))) |
| 18 | 10 | adantr 398 |
. . . . . 6
⊢ (((A ∈ ℝ ⋀ B ∈ ℝ) ⋀ B ≠ 0) → ((A · A)
∈ ℝ ⋀ (B ·
B) ∈
ℝ)) |
| 19 | | msqge0 5681 |
. . . . . . . 8
⊢ (A ∈ ℝ → 0 ≤ (A · A)) |
| 20 | | msqgt0 5680 |
. . . . . . . 8
⊢ ((B ∈ ℝ ⋀ B ≠ 0) → 0 < (B · B)) |
| 21 | 19, 20 | anim12i 340 |
. . . . . . 7
⊢ ((A ∈ ℝ ⋀ (B ∈ ℝ ⋀ B ≠ 0)) → (0 ≤ (A · A)
⋀ 0 < (B · B))) |
| 22 | 21 | anassrs 452 |
. . . . . 6
⊢ (((A ∈ ℝ ⋀ B ∈ ℝ) ⋀ B ≠ 0) → (0 ≤ (A · A)
⋀ 0 < (B · B))) |
| 23 | 17, 18, 22 | sylanc 482 |
. . . . 5
⊢ (((A ∈ ℝ ⋀ B ∈ ℝ) ⋀ B ≠ 0) → 0 < ((A · A) +
(B · B))) |
| 24 | 16, 23 | jaodan 435 |
. . . 4
⊢ (((A ∈ ℝ ⋀ B ∈ ℝ) ⋀ (A ≠ 0 ⋁
B ≠ 0)) → 0 < ((A · A) +
(B · B))) |
| 25 | | opreq12 4028 |
. . . . . . . 8
⊢ ((A = 0 ⋀ (i
· B) = 0) → (A + (i · B)) = (0 + 0)) |
| 26 | | opreq2 4027 |
. . . . . . . . 9
⊢ (B = 0 → (i · B) = (i · 0)) |
| 27 | | axicn 5335 |
. . . . . . . . . 10
⊢ i ∈ ℂ |
| 28 | 27 | mul01i 5496 |
. . . . . . . . 9
⊢ (i · 0) =
0 |
| 29 | 26, 28 | syl6eq 1570 |
. . . . . . . 8
⊢ (B = 0 → (i · B) = 0) |
| 30 | 25, 29 | sylan2 462 |
. . . . . . 7
⊢ ((A = 0 ⋀ B = 0) → (A
+ (i · B)) = (0 +
0)) |
| 31 | | 0cn 5393 |
. . . . . . . 8
⊢ 0 ∈ ℂ |
| 32 | 31 | addid1i 5395 |
. . . . . . 7
⊢ (0 + 0) = 0 |
| 33 | 30, 32 | syl6eq 1570 |
. . . . . 6
⊢ ((A = 0 ⋀ B = 0) → (A
+ (i · B)) = 0) |
| 34 | 33 | necon3ai 1653 |
. . . . 5
⊢ ((A + (i · B)) ≠ 0 → ¬ (A = 0 ⋀ B = 0)) |
| 35 | | neorian 1687 |
. . . . 5
⊢ ((A ≠ 0 ⋁
B ≠ 0) ↔ ¬ (A = 0 ⋀ B = 0)) |
| 36 | 34, 35 | sylibr 207 |
. . . 4
⊢ ((A + (i · B)) ≠ 0 → (A ≠ 0 ⋁
B ≠ 0)) |
| 37 | 24, 36 | sylan2 462 |
. . 3
⊢ (((A ∈ ℝ ⋀ B ∈ ℝ) ⋀ (A + (i · B)) ≠ 0) → 0 < ((A · A) +
(B · B))) |
| 38 | 37 | 3impa 840 |
. 2
⊢ ((A ∈ ℝ ⋀ B ∈ ℝ ⋀ (A + (i · B)) ≠ 0) → 0 < ((A · A) +
(B · B))) |
| 39 | 1, 8, 38 | sylanc 482 |
1
⊢ ((A ∈ ℝ ⋀ B ∈ ℝ ⋀ (A + (i · B)) ≠ 0) → ((A · A) +
(B · B)) ≠ 0) |