Proof of Theorem siilem2
Step | Hyp | Ref
| Expression |
1 | | oveq1 7220 |
. . . 4
⊢ (𝐶 = if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → (𝐶 · ((𝑁‘𝐵)↑2)) = (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · ((𝑁‘𝐵)↑2))) |
2 | 1 | eqeq2d 2748 |
. . 3
⊢ (𝐶 = if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → ((𝐵𝑃𝐴) = (𝐶 · ((𝑁‘𝐵)↑2)) ↔ (𝐵𝑃𝐴) = (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · ((𝑁‘𝐵)↑2)))) |
3 | 1 | oveq2d 7229 |
. . . . 5
⊢ (𝐶 = if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → ((𝐴𝑃𝐵) · (𝐶 · ((𝑁‘𝐵)↑2))) = ((𝐴𝑃𝐵) · (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · ((𝑁‘𝐵)↑2)))) |
4 | 3 | fveq2d 6721 |
. . . 4
⊢ (𝐶 = if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → (√‘((𝐴𝑃𝐵) · (𝐶 · ((𝑁‘𝐵)↑2)))) = (√‘((𝐴𝑃𝐵) · (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · ((𝑁‘𝐵)↑2))))) |
5 | 4 | breq1d 5063 |
. . 3
⊢ (𝐶 = if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → ((√‘((𝐴𝑃𝐵) · (𝐶 · ((𝑁‘𝐵)↑2)))) ≤ ((𝑁‘𝐴) · (𝑁‘𝐵)) ↔ (√‘((𝐴𝑃𝐵) · (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · ((𝑁‘𝐵)↑2)))) ≤ ((𝑁‘𝐴) · (𝑁‘𝐵)))) |
6 | 2, 5 | imbi12d 348 |
. 2
⊢ (𝐶 = if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → (((𝐵𝑃𝐴) = (𝐶 · ((𝑁‘𝐵)↑2)) → (√‘((𝐴𝑃𝐵) · (𝐶 · ((𝑁‘𝐵)↑2)))) ≤ ((𝑁‘𝐴) · (𝑁‘𝐵))) ↔ ((𝐵𝑃𝐴) = (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · ((𝑁‘𝐵)↑2)) → (√‘((𝐴𝑃𝐵) · (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · ((𝑁‘𝐵)↑2)))) ≤ ((𝑁‘𝐴) · (𝑁‘𝐵))))) |
7 | | siii.1 |
. . 3
⊢ 𝑋 = (BaseSet‘𝑈) |
8 | | siii.6 |
. . 3
⊢ 𝑁 =
(normCV‘𝑈) |
9 | | siii.7 |
. . 3
⊢ 𝑃 =
(·𝑖OLD‘𝑈) |
10 | | siii.9 |
. . 3
⊢ 𝑈 ∈
CPreHilOLD |
11 | | siii.a |
. . 3
⊢ 𝐴 ∈ 𝑋 |
12 | | siii.b |
. . 3
⊢ 𝐵 ∈ 𝑋 |
13 | | siii2.3 |
. . 3
⊢ 𝑀 = ( −𝑣
‘𝑈) |
14 | | siii2.4 |
. . 3
⊢ 𝑆 = (
·𝑠OLD ‘𝑈) |
15 | | eleq1 2825 |
. . . . . 6
⊢ (𝐶 = if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → (𝐶 ∈ ℂ ↔ if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) ∈ ℂ)) |
16 | | oveq1 7220 |
. . . . . . 7
⊢ (𝐶 = if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → (𝐶 · (𝐴𝑃𝐵)) = (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵))) |
17 | 16 | eleq1d 2822 |
. . . . . 6
⊢ (𝐶 = if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → ((𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ↔ (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵)) ∈ ℝ)) |
18 | 16 | breq2d 5065 |
. . . . . 6
⊢ (𝐶 = if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → (0 ≤ (𝐶 · (𝐴𝑃𝐵)) ↔ 0 ≤ (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵)))) |
19 | 15, 17, 18 | 3anbi123d 1438 |
. . . . 5
⊢ (𝐶 = if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → ((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))) ↔ (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) ∈ ℂ ∧ (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵))))) |
20 | | eleq1 2825 |
. . . . . 6
⊢ (0 =
if((𝐶 ∈ ℂ ∧
(𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → (0 ∈ ℂ ↔
if((𝐶 ∈ ℂ ∧
(𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) ∈ ℂ)) |
21 | | oveq1 7220 |
. . . . . . 7
⊢ (0 =
if((𝐶 ∈ ℂ ∧
(𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → (0 · (𝐴𝑃𝐵)) = (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵))) |
22 | 21 | eleq1d 2822 |
. . . . . 6
⊢ (0 =
if((𝐶 ∈ ℂ ∧
(𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → ((0 · (𝐴𝑃𝐵)) ∈ ℝ ↔ (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵)) ∈ ℝ)) |
23 | 21 | breq2d 5065 |
. . . . . 6
⊢ (0 =
if((𝐶 ∈ ℂ ∧
(𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → (0 ≤ (0 · (𝐴𝑃𝐵)) ↔ 0 ≤ (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵)))) |
24 | 20, 22, 23 | 3anbi123d 1438 |
. . . . 5
⊢ (0 =
if((𝐶 ∈ ℂ ∧
(𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) → ((0 ∈ ℂ ∧ (0
· (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (0 ·
(𝐴𝑃𝐵))) ↔ (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) ∈ ℂ ∧ (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵))))) |
25 | | 0cn 10825 |
. . . . . 6
⊢ 0 ∈
ℂ |
26 | 10 | phnvi 28897 |
. . . . . . . . 9
⊢ 𝑈 ∈ NrmCVec |
27 | 7, 9 | dipcl 28793 |
. . . . . . . . 9
⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐴𝑃𝐵) ∈ ℂ) |
28 | 26, 11, 12, 27 | mp3an 1463 |
. . . . . . . 8
⊢ (𝐴𝑃𝐵) ∈ ℂ |
29 | 28 | mul02i 11021 |
. . . . . . 7
⊢ (0
· (𝐴𝑃𝐵)) = 0 |
30 | | 0re 10835 |
. . . . . . 7
⊢ 0 ∈
ℝ |
31 | 29, 30 | eqeltri 2834 |
. . . . . 6
⊢ (0
· (𝐴𝑃𝐵)) ∈ ℝ |
32 | | 0le0 11931 |
. . . . . . 7
⊢ 0 ≤
0 |
33 | 32, 29 | breqtrri 5080 |
. . . . . 6
⊢ 0 ≤ (0
· (𝐴𝑃𝐵)) |
34 | 25, 31, 33 | 3pm3.2i 1341 |
. . . . 5
⊢ (0 ∈
ℂ ∧ (0 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (0 ·
(𝐴𝑃𝐵))) |
35 | 19, 24, 34 | elimhyp 4504 |
. . . 4
⊢
(if((𝐶 ∈
ℂ ∧ (𝐶 ·
(𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) ∈ ℂ ∧ (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵))) |
36 | 35 | simp1i 1141 |
. . 3
⊢ if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) ∈ ℂ |
37 | 35 | simp2i 1142 |
. . 3
⊢
(if((𝐶 ∈
ℂ ∧ (𝐶 ·
(𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵)) ∈ ℝ |
38 | 35 | simp3i 1143 |
. . 3
⊢ 0 ≤
(if((𝐶 ∈ ℂ ∧
(𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · (𝐴𝑃𝐵)) |
39 | 7, 8, 9, 10, 11, 12, 13, 14, 36, 37, 38 | siilem1 28932 |
. 2
⊢ ((𝐵𝑃𝐴) = (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · ((𝑁‘𝐵)↑2)) → (√‘((𝐴𝑃𝐵) · (if((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))), 𝐶, 0) · ((𝑁‘𝐵)↑2)))) ≤ ((𝑁‘𝐴) · (𝑁‘𝐵))) |
40 | 6, 39 | dedth 4497 |
1
⊢ ((𝐶 ∈ ℂ ∧ (𝐶 · (𝐴𝑃𝐵)) ∈ ℝ ∧ 0 ≤ (𝐶 · (𝐴𝑃𝐵))) → ((𝐵𝑃𝐴) = (𝐶 · ((𝑁‘𝐵)↑2)) → (√‘((𝐴𝑃𝐵) · (𝐶 · ((𝑁‘𝐵)↑2)))) ≤ ((𝑁‘𝐴) · (𝑁‘𝐵)))) |