Proof of Theorem normlem7
| Step | Hyp | Ref
| Expression |
| 1 | | normlem1.1 |
. . . . . 6
⊢ S
∈ ℂ |
| 2 | | normlem1.2 |
. . . . . 6
⊢ F
∈ ℋ |
| 3 | | normlem1.3 |
. . . . . 6
⊢ G
∈ ℋ |
| 4 | | cleqid 1102 |
. . . . . 6
⊢ -(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) = -(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) |
| 5 | 1, 2, 3, 4 | normlem2 5064 |
. . . . 5
⊢ -(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) ∈ ℝ |
| 6 | 1 | cjcl 4804 |
. . . . . . . 8
⊢ (∗ ‘S) ∈ ℂ |
| 7 | 2, 3 | hicl 5044 |
. . . . . . . 8
⊢ (F
·i G)
∈ ℂ |
| 8 | 6, 7 | mulcl 4105 |
. . . . . . 7
⊢ ((∗ ‘S) · (F
·i G))
∈ ℂ |
| 9 | 3, 2 | hicl 5044 |
. . . . . . . 8
⊢ (G
·i F)
∈ ℂ |
| 10 | 1, 9 | mulcl 4105 |
. . . . . . 7
⊢ (S
· (G
·i F))
∈ ℂ |
| 11 | 8, 10 | addcl 4104 |
. . . . . 6
⊢ (((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) ∈ ℂ |
| 12 | 11 | negre 4825 |
. . . . 5
⊢ (-(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) ∈ ℝ ↔ (((∗
‘S) · (F ·i G)) + (S
· (G
·i F)))
∈ ℝ) |
| 13 | 5, 12 | mpbi 164 |
. . . 4
⊢ (((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) ∈ ℝ |
| 14 | 13 | leabs 4852 |
. . 3
⊢ (((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) ≤ (abs ‘(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F)))) |
| 15 | 11 | absneg 4843 |
. . 3
⊢ (abs ‘-(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F)))) = (abs ‘(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F)))) |
| 16 | 14, 15 | breqtrr 2082 |
. 2
⊢ (((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) ≤ (abs ‘-(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F)))) |
| 17 | | cleqid 1102 |
. . 3
⊢ (G
·i G) =
(G ·i
G) |
| 18 | | cleqid 1102 |
. . 3
⊢ (F
·i F) =
(F ·i
F) |
| 19 | | normlem7.4 |
. . 3
⊢ (abs ‘S) = 1 |
| 20 | 1, 2, 3, 4, 17, 18, 19 | normlem6 5068 |
. 2
⊢ (abs ‘-(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F)))) ≤ (2 · ((√ ‘(G ·i G)) · (√ ‘(F ·i F)))) |
| 21 | 11 | negcl 4142 |
. . . 4
⊢ -(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) ∈ ℂ |
| 22 | 21 | abscl 4840 |
. . 3
⊢ (abs ‘-(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F)))) ∈ ℝ |
| 23 | | 2re 4470 |
. . . 4
⊢ 2 ∈ ℝ |
| 24 | | hiidge0t 5056 |
. . . . . . 7
⊢ (G
∈ ℋ → 0 ≤ (G
·i G)) |
| 25 | 3, 24 | ax-mp 6 |
. . . . . 6
⊢ 0 ≤ (G ·i G) |
| 26 | | hiidrclt 5053 |
. . . . . . . 8
⊢ (G
∈ ℋ → (G
·i G)
∈ ℝ) |
| 27 | 3, 26 | ax-mp 6 |
. . . . . . 7
⊢ (G
·i G)
∈ ℝ |
| 28 | 27 | sqrcl 4758 |
. . . . . 6
⊢ (0 ≤ (G ·i G) → (√ ‘(G ·i G)) ∈ ℝ) |
| 29 | 25, 28 | ax-mp 6 |
. . . . 5
⊢ (√ ‘(G ·i G)) ∈ ℝ |
| 30 | | hiidge0t 5056 |
. . . . . . 7
⊢ (F
∈ ℋ → 0 ≤ (F
·i F)) |
| 31 | 2, 30 | ax-mp 6 |
. . . . . 6
⊢ 0 ≤ (F ·i F) |
| 32 | | hiidrclt 5053 |
. . . . . . . 8
⊢ (F
∈ ℋ → (F
·i F)
∈ ℝ) |
| 33 | 2, 32 | ax-mp 6 |
. . . . . . 7
⊢ (F
·i F)
∈ ℝ |
| 34 | 33 | sqrcl 4758 |
. . . . . 6
⊢ (0 ≤ (F ·i F) → (√ ‘(F ·i F)) ∈ ℝ) |
| 35 | 31, 34 | ax-mp 6 |
. . . . 5
⊢ (√ ‘(F ·i F)) ∈ ℝ |
| 36 | 29, 35 | remulcl 4119 |
. . . 4
⊢ ((√ ‘(G ·i G)) · (√ ‘(F ·i F))) ∈ ℝ |
| 37 | 23, 36 | remulcl 4119 |
. . 3
⊢ (2 · ((√ ‘(G ·i G)) · (√ ‘(F ·i F)))) ∈ ℝ |
| 38 | 13, 22, 37 | letr 4310 |
. 2
⊢ (((((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) ≤ (abs ‘-(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F)))) ∧ (abs ‘-(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F)))) ≤ (2 · ((√ ‘(G ·i G)) · (√ ‘(F ·i F))))) → (((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) ≤ (2 · ((√ ‘(G ·i G)) · (√ ‘(F ·i F))))) |
| 39 | 16, 20, 38 | mp2an 520 |
1
⊢ (((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) ≤ (2 · ((√ ‘(G ·i G)) · (√ ‘(F ·i F)))) |