Proof of Theorem bcs
| Step | Hyp | Ref
| Expression |
| 1 | | fveq2 2832 |
. . 3
⊢ ((A
·i B) = 0
→ (abs ‘(A
·i B)) =
(abs ‘0)) |
| 2 | | cleqid 1102 |
. . . . 5
⊢ 0 = 0 |
| 3 | | 0cn 4100 |
. . . . . 6
⊢ 0 ∈ ℂ |
| 4 | 3 | abs00 4839 |
. . . . 5
⊢ ((abs ‘0) = 0 ↔ 0 =
0) |
| 5 | 2, 4 | mpbir 165 |
. . . 4
⊢ (abs ‘0) = 0 |
| 6 | | bcs.1 |
. . . . . 6
⊢ A
∈ ℋ |
| 7 | | normge0t 5077 |
. . . . . 6
⊢ (A
∈ ℋ → 0 ≤ (norm ‘A)) |
| 8 | 6, 7 | ax-mp 6 |
. . . . 5
⊢ 0 ≤ (norm ‘A) |
| 9 | | bcs.2 |
. . . . . 6
⊢ B
∈ ℋ |
| 10 | | normge0t 5077 |
. . . . . 6
⊢ (B
∈ ℋ → 0 ≤ (norm ‘B)) |
| 11 | 9, 10 | ax-mp 6 |
. . . . 5
⊢ 0 ≤ (norm ‘B) |
| 12 | 6 | normcl 5081 |
. . . . . 6
⊢ (norm ‘A) ∈ ℝ |
| 13 | 9 | normcl 5081 |
. . . . . 6
⊢ (norm ‘B) ∈ ℝ |
| 14 | 12, 13 | mulge0 4335 |
. . . . 5
⊢ ((0 ≤ (norm ‘A) ∧ 0 ≤ (norm ‘B)) → 0 ≤ ((norm ‘A) · (norm ‘B))) |
| 15 | 8, 11, 14 | mp2an 520 |
. . . 4
⊢ 0 ≤ ((norm ‘A) · (norm ‘B)) |
| 16 | 5, 15 | eqbrtr 2076 |
. . 3
⊢ (abs ‘0) ≤ ((norm ‘A) · (norm ‘B)) |
| 17 | 1, 16 | syl6eqbr 2092 |
. 2
⊢ ((A
·i B) = 0
→ (abs ‘(A
·i B)) ≤
((norm ‘A) · (norm
‘B))) |
| 18 | | df-ne 1192 |
. . . 4
⊢ ((A
·i B) ≠
0 ↔ ¬ (A
·i B) =
0) |
| 19 | 6, 9 | hicl 5044 |
. . . . . . 7
⊢ (A
·i B)
∈ ℂ |
| 20 | 19 | abslem2 4867 |
. . . . . 6
⊢ ((A
·i B) ≠
0 → (((∗ ‘((A
·i B) /
(abs ‘(A
·i B))))
· (A
·i B)) +
(((A ·i
B) / (abs ‘(A ·i B))) · (∗ ‘(A ·i B)))) = (2 · (abs ‘(A ·i B)))) |
| 21 | | ax-his1 5045 |
. . . . . . . . 9
⊢ ((B
∈ ℋ ∧ A ∈ ℋ )
→ (B
·i A) =
(∗ ‘(A
·i B))) |
| 22 | 9, 6, 21 | mp2an 520 |
. . . . . . . 8
⊢ (B
·i A) =
(∗ ‘(A
·i B)) |
| 23 | 22 | opreq2i 3010 |
. . . . . . 7
⊢ (((A
·i B) /
(abs ‘(A
·i B)))
· (B
·i A)) =
(((A ·i
B) / (abs ‘(A ·i B))) · (∗ ‘(A ·i B))) |
| 24 | 23 | opreq2i 3010 |
. . . . . 6
⊢ (((∗ ‘((A ·i B) / (abs ‘(A ·i B)))) · (A ·i B)) + (((A
·i B) /
(abs ‘(A
·i B)))
· (B
·i A))) =
(((∗ ‘((A
·i B) /
(abs ‘(A
·i B))))
· (A
·i B)) +
(((A ·i
B) / (abs ‘(A ·i B))) · (∗ ‘(A ·i B)))) |
| 25 | 20, 24 | syl5req 1137 |
. . . . 5
⊢ ((A
·i B) ≠
0 → (2 · (abs ‘(A
·i B))) =
(((∗ ‘((A
·i B) /
(abs ‘(A
·i B))))
· (A
·i B)) +
(((A ·i
B) / (abs ‘(A ·i B))) · (B
·i A)))) |
| 26 | 19 | abs00 4839 |
. . . . . . . . 9
⊢ ((abs ‘(A ·i B)) = 0 ↔ (A ·i B) = 0) |
| 27 | 26 | negbii 162 |
. . . . . . . 8
⊢ (¬ (abs ‘(A ·i B)) = 0 ↔ ¬ (A ·i B) = 0) |
| 28 | | df-ne 1192 |
. . . . . . . 8
⊢ ((abs ‘(A ·i B)) ≠ 0 ↔ ¬ (abs ‘(A ·i B)) = 0) |
| 29 | 27, 28, 18 | 3bitr4 158 |
. . . . . . 7
⊢ ((abs ‘(A ·i B)) ≠ 0 ↔ (A ·i B) ≠ 0) |
| 30 | 19 | abscl 4840 |
. . . . . . . . . 10
⊢ (abs ‘(A ·i B)) ∈ ℝ |
| 31 | 30 | recn 4098 |
. . . . . . . . 9
⊢ (abs ‘(A ·i B)) ∈ ℂ |
| 32 | 19, 31 | divclz 4222 |
. . . . . . . 8
⊢ ((abs ‘(A ·i B)) ≠ 0 → ((A ·i B) / (abs ‘(A ·i B))) ∈ ℂ) |
| 33 | 19, 31 | divrecz 4237 |
. . . . . . . . . 10
⊢ ((abs ‘(A ·i B)) ≠ 0 → ((A ·i B) / (abs ‘(A ·i B))) = ((A
·i B)
· (1 / (abs ‘(A
·i B))))) |
| 34 | 33 | fveq2d 2836 |
. . . . . . . . 9
⊢ ((abs ‘(A ·i B)) ≠ 0 → (abs ‘((A ·i B) / (abs ‘(A ·i B)))) = (abs ‘((A ·i B) · (1 / (abs ‘(A ·i B)))))) |
| 35 | | 1cn 4101 |
. . . . . . . . . . . . 13
⊢ 1 ∈ ℂ |
| 36 | 35, 31 | divclz 4222 |
. . . . . . . . . . . 12
⊢ ((abs ‘(A ·i B)) ≠ 0 → (1 / (abs ‘(A ·i B))) ∈ ℂ) |
| 37 | 36, 19 | jctil 240 |
. . . . . . . . . . 11
⊢ ((abs ‘(A ·i B)) ≠ 0 → ((A ·i B) ∈ ℂ ∧ (1 / (abs ‘(A ·i B))) ∈ ℂ)) |
| 38 | | absmult 4849 |
. . . . . . . . . . 11
⊢ (((A
·i B)
∈ ℂ ∧ (1 / (abs ‘(A
·i B)))
∈ ℂ) → (abs ‘((A
·i B)
· (1 / (abs ‘(A
·i B))))) =
((abs ‘(A
·i B))
· (abs ‘(1 / (abs ‘(A
·i B)))))) |
| 39 | 37, 38 | syl 12 |
. . . . . . . . . 10
⊢ ((abs ‘(A ·i B)) ≠ 0 → (abs ‘((A ·i B) · (1 / (abs ‘(A ·i B))))) = ((abs ‘(A ·i B)) · (abs ‘(1 / (abs ‘(A ·i B)))))) |
| 40 | | absidt 4862 |
. . . . . . . . . . . 12
⊢ ((1 / (abs ‘(A ·i B))) ∈ ℝ → (0 ≤ (1 / (abs
‘(A
·i B)))
→ (abs ‘(1 / (abs ‘(A
·i B)))) =
(1 / (abs ‘(A
·i B))))) |
| 41 | | ax1re 4064 |
. . . . . . . . . . . . 13
⊢ 1 ∈ ℝ |
| 42 | 41, 30 | redivclz 4275 |
. . . . . . . . . . . 12
⊢ ((abs ‘(A ·i B)) ≠ 0 → (1 / (abs ‘(A ·i B))) ∈ ℝ) |
| 43 | | ltlet 4286 |
. . . . . . . . . . . . 13
⊢ ((0 ∈ ℝ ∧ (1 / (abs
‘(A
·i B)))
∈ ℝ) → (0 < (1 / (abs ‘(A ·i B))) → 0 ≤ (1 / (abs ‘(A ·i B))))) |
| 44 | | ax0re 4063 |
. . . . . . . . . . . . . 14
⊢ 0 ∈ ℝ |
| 45 | 42, 44 | jctil 240 |
. . . . . . . . . . . . 13
⊢ ((abs ‘(A ·i B)) ≠ 0 → (0 ∈ ℝ ∧ (1 / (abs
‘(A
·i B)))
∈ ℝ)) |
| 46 | 19 | absgt0 4842 |
. . . . . . . . . . . . . . 15
⊢ (¬ (A ·i B) = 0 ↔ 0 < (abs ‘(A ·i B))) |
| 47 | 28, 27, 46 | 3bitr 155 |
. . . . . . . . . . . . . 14
⊢ ((abs ‘(A ·i B)) ≠ 0 ↔ 0 < (abs ‘(A ·i B))) |
| 48 | 30 | recgt0 4386 |
. . . . . . . . . . . . . 14
⊢ (0 < (abs ‘(A ·i B)) → 0 < (1 / (abs ‘(A ·i B)))) |
| 49 | 47, 48 | sylbi 174 |
. . . . . . . . . . . . 13
⊢ ((abs ‘(A ·i B)) ≠ 0 → 0 < (1 / (abs ‘(A ·i B)))) |
| 50 | 43, 45, 49 | sylc 62 |
. . . . . . . . . . . 12
⊢ ((abs ‘(A ·i B)) ≠ 0 → 0 ≤ (1 / (abs ‘(A ·i B)))) |
| 51 | 40, 42, 50 | sylc 62 |
. . . . . . . . . . 11
⊢ ((abs ‘(A ·i B)) ≠ 0 → (abs ‘(1 / (abs
‘(A
·i B)))) =
(1 / (abs ‘(A
·i B)))) |
| 52 | 51 | opreq2d 3013 |
. . . . . . . . . 10
⊢ ((abs ‘(A ·i B)) ≠ 0 → ((abs ‘(A ·i B)) · (abs ‘(1 / (abs ‘(A ·i B))))) = ((abs ‘(A ·i B)) · (1 / (abs ‘(A ·i B))))) |
| 53 | 39, 52 | eqtrd 1128 |
. . . . . . . . 9
⊢ ((abs ‘(A ·i B)) ≠ 0 → (abs ‘((A ·i B) · (1 / (abs ‘(A ·i B))))) = ((abs ‘(A ·i B)) · (1 / (abs ‘(A ·i B))))) |
| 54 | 31 | recidz 4234 |
. . . . . . . . 9
⊢ ((abs ‘(A ·i B)) ≠ 0 → ((abs ‘(A ·i B)) · (1 / (abs ‘(A ·i B)))) = 1) |
| 55 | 34, 53, 54 | 3eqtrd 1132 |
. . . . . . . 8
⊢ ((abs ‘(A ·i B)) ≠ 0 → (abs ‘((A ·i B) / (abs ‘(A ·i B)))) = 1) |
| 56 | 32, 55 | jca 236 |
. . . . . . 7
⊢ ((abs ‘(A ·i B)) ≠ 0 → (((A ·i B) / (abs ‘(A ·i B))) ∈ ℂ ∧ (abs ‘((A ·i B) / (abs ‘(A ·i B)))) = 1)) |
| 57 | 29, 56 | sylbir 176 |
. . . . . 6
⊢ ((A
·i B) ≠
0 → (((A
·i B) /
(abs ‘(A
·i B)))
∈ ℂ ∧ (abs ‘((A
·i B) /
(abs ‘(A
·i B)))) =
1)) |
| 58 | 6, 9 | normlem7t 5072 |
. . . . . 6
⊢ ((((A
·i B) /
(abs ‘(A
·i B)))
∈ ℂ ∧ (abs ‘((A
·i B) /
(abs ‘(A
·i B)))) =
1) → (((∗ ‘((A
·i B) /
(abs ‘(A
·i B))))
· (A
·i B)) +
(((A ·i
B) / (abs ‘(A ·i B))) · (B
·i A)))
≤ (2 · ((√ ‘(B
·i B))
· (√ ‘(A
·i A))))) |
| 59 | 57, 58 | syl 12 |
. . . . 5
⊢ ((A
·i B) ≠
0 → (((∗ ‘((A
·i B) /
(abs ‘(A
·i B))))
· (A
·i B)) +
(((A ·i
B) / (abs ‘(A ·i B))) · (B
·i A)))
≤ (2 · ((√ ‘(B
·i B))
· (√ ‘(A
·i A))))) |
| 60 | 25, 59 | eqbrtrd 2077 |
. . . 4
⊢ ((A
·i B) ≠
0 → (2 · (abs ‘(A
·i B)))
≤ (2 · ((√ ‘(B
·i B))
· (√ ‘(A
·i A))))) |
| 61 | 18, 60 | sylbir 176 |
. . 3
⊢ (¬ (A ·i B) = 0 → (2 · (abs ‘(A ·i B))) ≤ (2 · ((√ ‘(B ·i B)) · (√ ‘(A ·i A))))) |
| 62 | 12 | recn 4098 |
. . . . . . 7
⊢ (norm ‘A) ∈ ℂ |
| 63 | 13 | recn 4098 |
. . . . . . 7
⊢ (norm ‘B) ∈ ℂ |
| 64 | 62, 63 | mulcom 4107 |
. . . . . 6
⊢ ((norm ‘A) · (norm ‘B)) = ((norm ‘B) · (norm ‘A)) |
| 65 | | normvalt 5075 |
. . . . . . . 8
⊢ (B
∈ ℋ → (norm ‘B) =
(√ ‘(B
·i B))) |
| 66 | 9, 65 | ax-mp 6 |
. . . . . . 7
⊢ (norm ‘B) = (√ ‘(B ·i B)) |
| 67 | | normvalt 5075 |
. . . . . . . 8
⊢ (A
∈ ℋ → (norm ‘A) =
(√ ‘(A
·i A))) |
| 68 | 6, 67 | ax-mp 6 |
. . . . . . 7
⊢ (norm ‘A) = (√ ‘(A ·i A)) |
| 69 | 66, 68 | opreq12i 3011 |
. . . . . 6
⊢ ((norm ‘B) · (norm ‘A)) = ((√ ‘(B ·i B)) · (√ ‘(A ·i A))) |
| 70 | 64, 69 | eqtr 1119 |
. . . . 5
⊢ ((norm ‘A) · (norm ‘B)) = ((√ ‘(B ·i B)) · (√ ‘(A ·i A))) |
| 71 | 70 | breq2i 2069 |
. . . 4
⊢ ((abs ‘(A ·i B)) ≤ ((norm ‘A) · (norm ‘B)) ↔ (abs ‘(A ·i B)) ≤ ((√ ‘(B ·i B)) · (√ ‘(A ·i A)))) |
| 72 | | 2pos 4479 |
. . . . 5
⊢ 0 < 2 |
| 73 | | hiidge0t 5056 |
. . . . . . . . 9
⊢ (B
∈ ℋ → 0 ≤ (B
·i B)) |
| 74 | 9, 73 | ax-mp 6 |
. . . . . . . 8
⊢ 0 ≤ (B ·i B) |
| 75 | | hiidrclt 5053 |
. . . . . . . . . 10
⊢ (B
∈ ℋ → (B
·i B)
∈ ℝ) |
| 76 | 9, 75 | ax-mp 6 |
. . . . . . . . 9
⊢ (B
·i B)
∈ ℝ |
| 77 | 76 | sqrcl 4758 |
. . . . . . . 8
⊢ (0 ≤ (B ·i B) → (√ ‘(B ·i B)) ∈ ℝ) |
| 78 | 74, 77 | ax-mp 6 |
. . . . . . 7
⊢ (√ ‘(B ·i B)) ∈ ℝ |
| 79 | | hiidge0t 5056 |
. . . . . . . . 9
⊢ (A
∈ ℋ → 0 ≤ (A
·i A)) |
| 80 | 6, 79 | ax-mp 6 |
. . . . . . . 8
⊢ 0 ≤ (A ·i A) |
| 81 | | hiidrclt 5053 |
. . . . . . . . . 10
⊢ (A
∈ ℋ → (A
·i A)
∈ ℝ) |
| 82 | 6, 81 | ax-mp 6 |
. . . . . . . . 9
⊢ (A
·i A)
∈ ℝ |
| 83 | 82 | sqrcl 4758 |
. . . . . . . 8
⊢ (0 ≤ (A ·i A) → (√ ‘(A ·i A)) ∈ ℝ) |
| 84 | 80, 83 | ax-mp 6 |
. . . . . . 7
⊢ (√ ‘(A ·i A)) ∈ ℝ |
| 85 | 78, 84 | remulcl 4119 |
. . . . . 6
⊢ ((√ ‘(B ·i B)) · (√ ‘(A ·i A))) ∈ ℝ |
| 86 | | 2re 4470 |
. . . . . 6
⊢ 2 ∈ ℝ |
| 87 | 30, 85, 86 | lemul2 4396 |
. . . . 5
⊢ (0 < 2 → ((abs ‘(A ·i B)) ≤ ((√ ‘(B ·i B)) · (√ ‘(A ·i A))) ↔ (2 · (abs ‘(A ·i B))) ≤ (2 · ((√ ‘(B ·i B)) · (√ ‘(A ·i A)))))) |
| 88 | 72, 87 | ax-mp 6 |
. . . 4
⊢ ((abs ‘(A ·i B)) ≤ ((√ ‘(B ·i B)) · (√ ‘(A ·i A))) ↔ (2 · (abs ‘(A ·i<ŠI> B))) ≤ (2 · ((√ ‘(B ·i B)) · (√ ‘(A ·i A))))) |
| 89 | 71, 88 | bitr 151 |
. . 3
⊢ ((abs ‘(A ·i B)) ≤ ((norm ‘A) · (norm ‘B)) ↔ (2 · (abs ‘(A ·i B))) ≤ (2 · ((√ ‘(B ·i B)) · (√ ‘(A ·i A))))) |
| 90 | 61, 89 | sylibr 175 |
. 2
⊢ (¬ (A ·i B) = 0 → (abs ‘(A ·i B)) ≤ ((norm ‘A) · (norm ‘B))) |
| 91 | 17, 90 | pm2.61i 110 |
1
⊢ (abs ‘(A ·i B)) ≤ ((norm ‘A) · (norm ‘B)) |