Step | Hyp | Ref
| Expression |
1 | | rrnequiv.d |
. . . . . 6
β’ π· = (distβπ) |
2 | | ovex 7439 |
. . . . . . . 8
β’
(βfld βΎs β) β
V |
3 | | rrnequiv.i |
. . . . . . . . 9
β’ (π β πΌ β Fin) |
4 | 3 | adantr 482 |
. . . . . . . 8
β’ ((π β§ (πΉ β π β§ πΊ β π)) β πΌ β Fin) |
5 | | rrnequiv.y |
. . . . . . . . 9
β’ π = ((βfld
βΎs β) βs πΌ) |
6 | | reex 11198 |
. . . . . . . . . 10
β’ β
β V |
7 | | eqid 2733 |
. . . . . . . . . . 11
β’
(βfld βΎs β) =
(βfld βΎs β) |
8 | | eqid 2733 |
. . . . . . . . . . 11
β’
(Scalarββfld) =
(Scalarββfld) |
9 | 7, 8 | resssca 17285 |
. . . . . . . . . 10
β’ (β
β V β (Scalarββfld) =
(Scalarβ(βfld βΎs
β))) |
10 | 6, 9 | ax-mp 5 |
. . . . . . . . 9
β’
(Scalarββfld) =
(Scalarβ(βfld βΎs
β)) |
11 | 5, 10 | pwsval 17429 |
. . . . . . . 8
β’
(((βfld βΎs β) β V β§
πΌ β Fin) β π =
((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)}))) |
12 | 2, 4, 11 | sylancr 588 |
. . . . . . 7
β’ ((π β§ (πΉ β π β§ πΊ β π)) β π =
((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)}))) |
13 | 12 | fveq2d 6893 |
. . . . . 6
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (distβπ) =
(distβ((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)})))) |
14 | 1, 13 | eqtrid 2785 |
. . . . 5
β’ ((π β§ (πΉ β π β§ πΊ β π)) β π· =
(distβ((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)})))) |
15 | 14 | oveqd 7423 |
. . . 4
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (πΉπ·πΊ) = (πΉ(distβ((Scalarββfld)Xs(πΌ Γ {(βfld βΎs
β)})))πΊ)) |
16 | | fconstmpt 5737 |
. . . . . 6
β’ (πΌ Γ {(βfld
βΎs β)}) = (π β πΌ β¦ (βfld
βΎs β)) |
17 | 16 | oveq2i 7417 |
. . . . 5
β’
((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)})) = ((Scalarββfld)Xs(π β πΌ β¦ (βfld
βΎs β))) |
18 | | eqid 2733 |
. . . . 5
β’
(Baseβ((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)}))) =
(Baseβ((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)}))) |
19 | | fvexd 6904 |
. . . . 5
β’ ((π β§ (πΉ β π β§ πΊ β π)) β
(Scalarββfld) β V) |
20 | 2 | a1i 11 |
. . . . . 6
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ π β πΌ) β (βfld
βΎs β) β V) |
21 | 20 | ralrimiva 3147 |
. . . . 5
β’ ((π β§ (πΉ β π β§ πΊ β π)) β βπ β πΌ (βfld βΎs
β) β V) |
22 | | simprl 770 |
. . . . . 6
β’ ((π β§ (πΉ β π β§ πΊ β π)) β πΉ β π) |
23 | | rrnequiv.1 |
. . . . . . 7
β’ π = (β βm
πΌ) |
24 | | ax-resscn 11164 |
. . . . . . . . . . 11
β’ β
β β |
25 | | cnfldbas 20941 |
. . . . . . . . . . . 12
β’ β =
(Baseββfld) |
26 | 7, 25 | ressbas2 17179 |
. . . . . . . . . . 11
β’ (β
β β β β = (Baseβ(βfld
βΎs β))) |
27 | 24, 26 | ax-mp 5 |
. . . . . . . . . 10
β’ β =
(Baseβ(βfld βΎs
β)) |
28 | 5, 27 | pwsbas 17430 |
. . . . . . . . 9
β’
(((βfld βΎs β) β V β§
πΌ β Fin) β
(β βm πΌ) = (Baseβπ)) |
29 | 2, 4, 28 | sylancr 588 |
. . . . . . . 8
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (β βm πΌ) = (Baseβπ)) |
30 | 12 | fveq2d 6893 |
. . . . . . . 8
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (Baseβπ) =
(Baseβ((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)})))) |
31 | 29, 30 | eqtrd 2773 |
. . . . . . 7
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (β βm πΌ) =
(Baseβ((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)})))) |
32 | 23, 31 | eqtrid 2785 |
. . . . . 6
β’ ((π β§ (πΉ β π β§ πΊ β π)) β π =
(Baseβ((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)})))) |
33 | 22, 32 | eleqtrd 2836 |
. . . . 5
β’ ((π β§ (πΉ β π β§ πΊ β π)) β πΉ β
(Baseβ((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)})))) |
34 | | simprr 772 |
. . . . . 6
β’ ((π β§ (πΉ β π β§ πΊ β π)) β πΊ β π) |
35 | 34, 32 | eleqtrd 2836 |
. . . . 5
β’ ((π β§ (πΉ β π β§ πΊ β π)) β πΊ β
(Baseβ((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)})))) |
36 | | cnfldds 20947 |
. . . . . . . 8
β’ (abs
β β ) = (distββfld) |
37 | 7, 36 | ressds 17352 |
. . . . . . 7
β’ (β
β V β (abs β β ) = (distβ(βfld
βΎs β))) |
38 | 6, 37 | ax-mp 5 |
. . . . . 6
β’ (abs
β β ) = (distβ(βfld βΎs
β)) |
39 | 38 | reseq1i 5976 |
. . . . 5
β’ ((abs
β β ) βΎ (β Γ β)) =
((distβ(βfld βΎs β)) βΎ
(β Γ β)) |
40 | | eqid 2733 |
. . . . 5
β’
(distβ((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)}))) =
(distβ((Scalarββfld)Xs(πΌ Γ {(βfld
βΎs β)}))) |
41 | 17, 18, 19, 4, 21, 33, 35, 27, 39, 40 | prdsdsval3 17428 |
. . . 4
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (πΉ(distβ((Scalarββfld)Xs(πΌ Γ {(βfld βΎs
β)})))πΊ) = sup((ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β Γ
β))(πΊβπ))) βͺ {0}), β*, <
)) |
42 | 15, 41 | eqtrd 2773 |
. . 3
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (πΉπ·πΊ) = sup((ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0}), β*, <
)) |
43 | | eqid 2733 |
. . . . . . . . . 10
β’ ((abs
β β ) βΎ (β Γ β)) = ((abs β β )
βΎ (β Γ β)) |
44 | 23, 43 | rrndstprj1 36687 |
. . . . . . . . 9
β’ (((πΌ β Fin β§ π β πΌ) β§ (πΉ β π β§ πΊ β π)) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β€ (πΉ(βnβπΌ)πΊ)) |
45 | 44 | an32s 651 |
. . . . . . . 8
β’ (((πΌ β Fin β§ (πΉ β π β§ πΊ β π)) β§ π β πΌ) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β€ (πΉ(βnβπΌ)πΊ)) |
46 | 3, 45 | sylanl1 679 |
. . . . . . 7
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ π β πΌ) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β€ (πΉ(βnβπΌ)πΊ)) |
47 | 46 | ralrimiva 3147 |
. . . . . 6
β’ ((π β§ (πΉ β π β§ πΊ β π)) β βπ β πΌ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β€ (πΉ(βnβπΌ)πΊ)) |
48 | | ovex 7439 |
. . . . . . . 8
β’ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β V |
49 | 48 | rgenw 3066 |
. . . . . . 7
β’
βπ β
πΌ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β V |
50 | | eqid 2733 |
. . . . . . . 8
β’ (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) = (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) |
51 | | breq1 5151 |
. . . . . . . 8
β’ (π§ = ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β (π§ β€ (πΉ(βnβπΌ)πΊ) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β€ (πΉ(βnβπΌ)πΊ))) |
52 | 50, 51 | ralrnmptw 7093 |
. . . . . . 7
β’
(βπ β
πΌ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β V β (βπ§ β ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)))π§ β€ (πΉ(βnβπΌ)πΊ) β βπ β πΌ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β€ (πΉ(βnβπΌ)πΊ))) |
53 | 49, 52 | ax-mp 5 |
. . . . . 6
β’
(βπ§ β
ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)))π§ β€ (πΉ(βnβπΌ)πΊ) β βπ β πΌ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β€ (πΉ(βnβπΌ)πΊ)) |
54 | 47, 53 | sylibr 233 |
. . . . 5
β’ ((π β§ (πΉ β π β§ πΊ β π)) β βπ§ β ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)))π§ β€ (πΉ(βnβπΌ)πΊ)) |
55 | 23 | rrnmet 36686 |
. . . . . . . . 9
β’ (πΌ β Fin β
(βnβπΌ) β (Metβπ)) |
56 | 4, 55 | syl 17 |
. . . . . . . 8
β’ ((π β§ (πΉ β π β§ πΊ β π)) β
(βnβπΌ) β (Metβπ)) |
57 | | metge0 23843 |
. . . . . . . 8
β’
(((βnβπΌ) β (Metβπ) β§ πΉ β π β§ πΊ β π) β 0 β€ (πΉ(βnβπΌ)πΊ)) |
58 | 56, 22, 34, 57 | syl3anc 1372 |
. . . . . . 7
β’ ((π β§ (πΉ β π β§ πΊ β π)) β 0 β€ (πΉ(βnβπΌ)πΊ)) |
59 | | elsni 4645 |
. . . . . . . 8
β’ (π§ β {0} β π§ = 0) |
60 | 59 | breq1d 5158 |
. . . . . . 7
β’ (π§ β {0} β (π§ β€ (πΉ(βnβπΌ)πΊ) β 0 β€ (πΉ(βnβπΌ)πΊ))) |
61 | 58, 60 | syl5ibrcom 246 |
. . . . . 6
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (π§ β {0} β π§ β€ (πΉ(βnβπΌ)πΊ))) |
62 | 61 | ralrimiv 3146 |
. . . . 5
β’ ((π β§ (πΉ β π β§ πΊ β π)) β βπ§ β {0}π§ β€ (πΉ(βnβπΌ)πΊ)) |
63 | | ralunb 4191 |
. . . . 5
β’
(βπ§ β
(ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0})π§ β€ (πΉ(βnβπΌ)πΊ) β (βπ§ β ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)))π§ β€ (πΉ(βnβπΌ)πΊ) β§ βπ§ β {0}π§ β€ (πΉ(βnβπΌ)πΊ))) |
64 | 54, 62, 63 | sylanbrc 584 |
. . . 4
β’ ((π β§ (πΉ β π β§ πΊ β π)) β βπ§ β (ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0})π§ β€ (πΉ(βnβπΌ)πΊ)) |
65 | 17, 18, 19, 4, 21, 27, 33 | prdsbascl 17426 |
. . . . . . . . . . 11
β’ ((π β§ (πΉ β π β§ πΊ β π)) β βπ β πΌ (πΉβπ) β β) |
66 | 65 | r19.21bi 3249 |
. . . . . . . . . 10
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ π β πΌ) β (πΉβπ) β β) |
67 | 17, 18, 19, 4, 21, 27, 35 | prdsbascl 17426 |
. . . . . . . . . . 11
β’ ((π β§ (πΉ β π β§ πΊ β π)) β βπ β πΌ (πΊβπ) β β) |
68 | 67 | r19.21bi 3249 |
. . . . . . . . . 10
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ π β πΌ) β (πΊβπ) β β) |
69 | 43 | remet 24298 |
. . . . . . . . . . 11
β’ ((abs
β β ) βΎ (β Γ β)) β
(Metββ) |
70 | | metcl 23830 |
. . . . . . . . . . 11
β’ ((((abs
β β ) βΎ (β Γ β)) β (Metββ)
β§ (πΉβπ) β β β§ (πΊβπ) β β) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β β) |
71 | 69, 70 | mp3an1 1449 |
. . . . . . . . . 10
β’ (((πΉβπ) β β β§ (πΊβπ) β β) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β β) |
72 | 66, 68, 71 | syl2anc 585 |
. . . . . . . . 9
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ π β πΌ) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β β) |
73 | 72 | fmpttd 7112 |
. . . . . . . 8
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))):πΌβΆβ) |
74 | 73 | frnd 6723 |
. . . . . . 7
β’ ((π β§ (πΉ β π β§ πΊ β π)) β ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) β β) |
75 | | ressxr 11255 |
. . . . . . 7
β’ β
β β* |
76 | 74, 75 | sstrdi 3994 |
. . . . . 6
β’ ((π β§ (πΉ β π β§ πΊ β π)) β ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) β
β*) |
77 | | 0xr 11258 |
. . . . . . . 8
β’ 0 β
β* |
78 | 77 | a1i 11 |
. . . . . . 7
β’ ((π β§ (πΉ β π β§ πΊ β π)) β 0 β
β*) |
79 | 78 | snssd 4812 |
. . . . . 6
β’ ((π β§ (πΉ β π β§ πΊ β π)) β {0} β
β*) |
80 | 76, 79 | unssd 4186 |
. . . . 5
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0}) β
β*) |
81 | | metcl 23830 |
. . . . . . 7
β’
(((βnβπΌ) β (Metβπ) β§ πΉ β π β§ πΊ β π) β (πΉ(βnβπΌ)πΊ) β β) |
82 | 56, 22, 34, 81 | syl3anc 1372 |
. . . . . 6
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (πΉ(βnβπΌ)πΊ) β β) |
83 | 75, 82 | sselid 3980 |
. . . . 5
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (πΉ(βnβπΌ)πΊ) β
β*) |
84 | | supxrleub 13302 |
. . . . 5
β’ (((ran
(π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0}) β β*
β§ (πΉ(βnβπΌ)πΊ) β β*) β
(sup((ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0}), β*, < )
β€ (πΉ(βnβπΌ)πΊ) β βπ§ β (ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0})π§ β€ (πΉ(βnβπΌ)πΊ))) |
85 | 80, 83, 84 | syl2anc 585 |
. . . 4
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (sup((ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0}), β*, < )
β€ (πΉ(βnβπΌ)πΊ) β βπ§ β (ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0})π§ β€ (πΉ(βnβπΌ)πΊ))) |
86 | 64, 85 | mpbird 257 |
. . 3
β’ ((π β§ (πΉ β π β§ πΊ β π)) β sup((ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0}), β*, < )
β€ (πΉ(βnβπΌ)πΊ)) |
87 | 42, 86 | eqbrtrd 5170 |
. 2
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (πΉπ·πΊ) β€ (πΉ(βnβπΌ)πΊ)) |
88 | | rzal 4508 |
. . . . . . 7
β’ (πΌ = β
β βπ β πΌ (πΉβπ) = (πΊβπ)) |
89 | 22, 23 | eleqtrdi 2844 |
. . . . . . . . 9
β’ ((π β§ (πΉ β π β§ πΊ β π)) β πΉ β (β βm πΌ)) |
90 | | elmapi 8840 |
. . . . . . . . 9
β’ (πΉ β (β
βm πΌ)
β πΉ:πΌβΆβ) |
91 | | ffn 6715 |
. . . . . . . . 9
β’ (πΉ:πΌβΆβ β πΉ Fn πΌ) |
92 | 89, 90, 91 | 3syl 18 |
. . . . . . . 8
β’ ((π β§ (πΉ β π β§ πΊ β π)) β πΉ Fn πΌ) |
93 | 34, 23 | eleqtrdi 2844 |
. . . . . . . . 9
β’ ((π β§ (πΉ β π β§ πΊ β π)) β πΊ β (β βm πΌ)) |
94 | | elmapi 8840 |
. . . . . . . . 9
β’ (πΊ β (β
βm πΌ)
β πΊ:πΌβΆβ) |
95 | | ffn 6715 |
. . . . . . . . 9
β’ (πΊ:πΌβΆβ β πΊ Fn πΌ) |
96 | 93, 94, 95 | 3syl 18 |
. . . . . . . 8
β’ ((π β§ (πΉ β π β§ πΊ β π)) β πΊ Fn πΌ) |
97 | | eqfnfv 7030 |
. . . . . . . 8
β’ ((πΉ Fn πΌ β§ πΊ Fn πΌ) β (πΉ = πΊ β βπ β πΌ (πΉβπ) = (πΊβπ))) |
98 | 92, 96, 97 | syl2anc 585 |
. . . . . . 7
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (πΉ = πΊ β βπ β πΌ (πΉβπ) = (πΊβπ))) |
99 | 88, 98 | imbitrrid 245 |
. . . . . 6
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (πΌ = β
β πΉ = πΊ)) |
100 | 99 | imp 408 |
. . . . 5
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ πΌ = β
) β πΉ = πΊ) |
101 | 100 | oveq1d 7421 |
. . . 4
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ πΌ = β
) β (πΉ(βnβπΌ)πΊ) = (πΊ(βnβπΌ)πΊ)) |
102 | | met0 23841 |
. . . . . . 7
β’
(((βnβπΌ) β (Metβπ) β§ πΊ β π) β (πΊ(βnβπΌ)πΊ) = 0) |
103 | 56, 34, 102 | syl2anc 585 |
. . . . . 6
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (πΊ(βnβπΌ)πΊ) = 0) |
104 | | hashcl 14313 |
. . . . . . . . . 10
β’ (πΌ β Fin β
(β―βπΌ) β
β0) |
105 | 4, 104 | syl 17 |
. . . . . . . . 9
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (β―βπΌ) β
β0) |
106 | 105 | nn0red 12530 |
. . . . . . . 8
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (β―βπΌ) β β) |
107 | 105 | nn0ge0d 12532 |
. . . . . . . 8
β’ ((π β§ (πΉ β π β§ πΊ β π)) β 0 β€ (β―βπΌ)) |
108 | 106, 107 | resqrtcld 15361 |
. . . . . . 7
β’ ((π β§ (πΉ β π β§ πΊ β π)) β
(ββ(β―βπΌ)) β β) |
109 | 5, 1, 23 | repwsmet 36691 |
. . . . . . . . 9
β’ (πΌ β Fin β π· β (Metβπ)) |
110 | 4, 109 | syl 17 |
. . . . . . . 8
β’ ((π β§ (πΉ β π β§ πΊ β π)) β π· β (Metβπ)) |
111 | | metcl 23830 |
. . . . . . . 8
β’ ((π· β (Metβπ) β§ πΉ β π β§ πΊ β π) β (πΉπ·πΊ) β β) |
112 | 110, 22, 34, 111 | syl3anc 1372 |
. . . . . . 7
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (πΉπ·πΊ) β β) |
113 | 106, 107 | sqrtge0d 15364 |
. . . . . . 7
β’ ((π β§ (πΉ β π β§ πΊ β π)) β 0 β€
(ββ(β―βπΌ))) |
114 | | metge0 23843 |
. . . . . . . 8
β’ ((π· β (Metβπ) β§ πΉ β π β§ πΊ β π) β 0 β€ (πΉπ·πΊ)) |
115 | 110, 22, 34, 114 | syl3anc 1372 |
. . . . . . 7
β’ ((π β§ (πΉ β π β§ πΊ β π)) β 0 β€ (πΉπ·πΊ)) |
116 | 108, 112,
113, 115 | mulge0d 11788 |
. . . . . 6
β’ ((π β§ (πΉ β π β§ πΊ β π)) β 0 β€
((ββ(β―βπΌ)) Β· (πΉπ·πΊ))) |
117 | 103, 116 | eqbrtrd 5170 |
. . . . 5
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (πΊ(βnβπΌ)πΊ) β€ ((ββ(β―βπΌ)) Β· (πΉπ·πΊ))) |
118 | 117 | adantr 482 |
. . . 4
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ πΌ = β
) β (πΊ(βnβπΌ)πΊ) β€ ((ββ(β―βπΌ)) Β· (πΉπ·πΊ))) |
119 | 101, 118 | eqbrtrd 5170 |
. . 3
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ πΌ = β
) β (πΉ(βnβπΌ)πΊ) β€ ((ββ(β―βπΌ)) Β· (πΉπ·πΊ))) |
120 | 82 | adantr 482 |
. . . . . . 7
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β (πΉ(βnβπΌ)πΊ) β β) |
121 | 108, 112 | remulcld 11241 |
. . . . . . . . 9
β’ ((π β§ (πΉ β π β§ πΊ β π)) β
((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) β β) |
122 | 121 | adantr 482 |
. . . . . . . 8
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β
((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) β β) |
123 | | rpre 12979 |
. . . . . . . . 9
β’ (π β β+
β π β
β) |
124 | 123 | ad2antll 728 |
. . . . . . . 8
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β π β
β) |
125 | 122, 124 | readdcld 11240 |
. . . . . . 7
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β
(((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) + π) β β) |
126 | 4 | adantr 482 |
. . . . . . . . . 10
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β πΌ β Fin) |
127 | | simprl 770 |
. . . . . . . . . 10
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β πΌ β β
) |
128 | | eldifsn 4790 |
. . . . . . . . . 10
β’ (πΌ β (Fin β {β
})
β (πΌ β Fin β§
πΌ β
β
)) |
129 | 126, 127,
128 | sylanbrc 584 |
. . . . . . . . 9
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β πΌ β (Fin β
{β
})) |
130 | 22 | adantr 482 |
. . . . . . . . 9
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β πΉ β π) |
131 | 34 | adantr 482 |
. . . . . . . . 9
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β πΊ β π) |
132 | 112 | adantr 482 |
. . . . . . . . . . 11
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β (πΉπ·πΊ) β β) |
133 | | simprr 772 |
. . . . . . . . . . . . 13
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β π β
β+) |
134 | | hashnncl 14323 |
. . . . . . . . . . . . . . . . 17
β’ (πΌ β Fin β
((β―βπΌ) β
β β πΌ β
β
)) |
135 | 126, 134 | syl 17 |
. . . . . . . . . . . . . . . 16
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β
((β―βπΌ) β
β β πΌ β
β
)) |
136 | 127, 135 | mpbird 257 |
. . . . . . . . . . . . . . 15
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β
(β―βπΌ) β
β) |
137 | 136 | nnrpd 13011 |
. . . . . . . . . . . . . 14
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β
(β―βπΌ) β
β+) |
138 | 137 | rpsqrtcld 15355 |
. . . . . . . . . . . . 13
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β
(ββ(β―βπΌ)) β
β+) |
139 | 133, 138 | rpdivcld 13030 |
. . . . . . . . . . . 12
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β (π /
(ββ(β―βπΌ))) β
β+) |
140 | 139 | rpred 13013 |
. . . . . . . . . . 11
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β (π /
(ββ(β―βπΌ))) β β) |
141 | 132, 140 | readdcld 11240 |
. . . . . . . . . 10
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β ((πΉπ·πΊ) + (π / (ββ(β―βπΌ)))) β
β) |
142 | | 0red 11214 |
. . . . . . . . . . 11
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β 0 β
β) |
143 | 115 | adantr 482 |
. . . . . . . . . . 11
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β 0 β€
(πΉπ·πΊ)) |
144 | 132, 139 | ltaddrpd 13046 |
. . . . . . . . . . 11
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β (πΉπ·πΊ) < ((πΉπ·πΊ) + (π / (ββ(β―βπΌ))))) |
145 | 142, 132,
141, 143, 144 | lelttrd 11369 |
. . . . . . . . . 10
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β 0 <
((πΉπ·πΊ) + (π / (ββ(β―βπΌ))))) |
146 | 141, 145 | elrpd 13010 |
. . . . . . . . 9
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β ((πΉπ·πΊ) + (π / (ββ(β―βπΌ)))) β
β+) |
147 | 72 | adantlr 714 |
. . . . . . . . . . 11
β’ ((((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β§ π β πΌ) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β β) |
148 | 132 | adantr 482 |
. . . . . . . . . . 11
β’ ((((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β§ π β πΌ) β (πΉπ·πΊ) β β) |
149 | 141 | adantr 482 |
. . . . . . . . . . 11
β’ ((((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β§ π β πΌ) β ((πΉπ·πΊ) + (π / (ββ(β―βπΌ)))) β
β) |
150 | 80 | ad2antrr 725 |
. . . . . . . . . . . . 13
β’ ((((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β§ π β πΌ) β (ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0}) β
β*) |
151 | | ssun1 4172 |
. . . . . . . . . . . . . 14
β’ ran
(π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) β (ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0}) |
152 | | simpr 486 |
. . . . . . . . . . . . . . 15
β’ ((((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β§ π β πΌ) β π β πΌ) |
153 | 50 | elrnmpt1 5956 |
. . . . . . . . . . . . . . 15
β’ ((π β πΌ β§ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β V) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)))) |
154 | 152, 48, 153 | sylancl 587 |
. . . . . . . . . . . . . 14
β’ ((((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β§ π β πΌ) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)))) |
155 | 151, 154 | sselid 3980 |
. . . . . . . . . . . . 13
β’ ((((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β§ π β πΌ) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β (ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0})) |
156 | | supxrub 13300 |
. . . . . . . . . . . . 13
β’ (((ran
(π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0}) β β*
β§ ((πΉβπ)((abs β β ) βΎ
(β Γ β))(πΊβπ)) β (ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0})) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β€ sup((ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0}), β*, <
)) |
157 | 150, 155,
156 | syl2anc 585 |
. . . . . . . . . . . 12
β’ ((((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β§ π β πΌ) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β€ sup((ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0}), β*, <
)) |
158 | 42 | ad2antrr 725 |
. . . . . . . . . . . 12
β’ ((((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β§ π β πΌ) β (πΉπ·πΊ) = sup((ran (π β πΌ β¦ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ))) βͺ {0}), β*, <
)) |
159 | 157, 158 | breqtrrd 5176 |
. . . . . . . . . . 11
β’ ((((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β§ π β πΌ) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) β€ (πΉπ·πΊ)) |
160 | 144 | adantr 482 |
. . . . . . . . . . 11
β’ ((((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β§ π β πΌ) β (πΉπ·πΊ) < ((πΉπ·πΊ) + (π / (ββ(β―βπΌ))))) |
161 | 147, 148,
149, 159, 160 | lelttrd 11369 |
. . . . . . . . . 10
β’ ((((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β§ π β πΌ) β ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) < ((πΉπ·πΊ) + (π / (ββ(β―βπΌ))))) |
162 | 161 | ralrimiva 3147 |
. . . . . . . . 9
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β
βπ β πΌ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) < ((πΉπ·πΊ) + (π / (ββ(β―βπΌ))))) |
163 | 23, 43 | rrndstprj2 36688 |
. . . . . . . . 9
β’ (((πΌ β (Fin β {β
})
β§ πΉ β π β§ πΊ β π) β§ (((πΉπ·πΊ) + (π / (ββ(β―βπΌ)))) β β+
β§ βπ β
πΌ ((πΉβπ)((abs β β ) βΎ (β
Γ β))(πΊβπ)) < ((πΉπ·πΊ) + (π / (ββ(β―βπΌ)))))) β (πΉ(βnβπΌ)πΊ) < (((πΉπ·πΊ) + (π / (ββ(β―βπΌ)))) Β·
(ββ(β―βπΌ)))) |
164 | 129, 130,
131, 146, 162, 163 | syl32anc 1379 |
. . . . . . . 8
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β (πΉ(βnβπΌ)πΊ) < (((πΉπ·πΊ) + (π / (ββ(β―βπΌ)))) Β·
(ββ(β―βπΌ)))) |
165 | 132 | recnd 11239 |
. . . . . . . . . 10
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β (πΉπ·πΊ) β β) |
166 | 140 | recnd 11239 |
. . . . . . . . . 10
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β (π /
(ββ(β―βπΌ))) β β) |
167 | 108 | adantr 482 |
. . . . . . . . . . 11
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β
(ββ(β―βπΌ)) β β) |
168 | 167 | recnd 11239 |
. . . . . . . . . 10
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β
(ββ(β―βπΌ)) β β) |
169 | 165, 166,
168 | adddird 11236 |
. . . . . . . . 9
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β (((πΉπ·πΊ) + (π / (ββ(β―βπΌ)))) Β·
(ββ(β―βπΌ))) = (((πΉπ·πΊ) Β·
(ββ(β―βπΌ))) + ((π / (ββ(β―βπΌ))) Β·
(ββ(β―βπΌ))))) |
170 | 165, 168 | mulcomd 11232 |
. . . . . . . . . 10
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β ((πΉπ·πΊ) Β·
(ββ(β―βπΌ))) = ((ββ(β―βπΌ)) Β· (πΉπ·πΊ))) |
171 | 124 | recnd 11239 |
. . . . . . . . . . 11
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β π β
β) |
172 | 138 | rpne0d 13018 |
. . . . . . . . . . 11
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β
(ββ(β―βπΌ)) β 0) |
173 | 171, 168,
172 | divcan1d 11988 |
. . . . . . . . . 10
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β ((π /
(ββ(β―βπΌ))) Β·
(ββ(β―βπΌ))) = π) |
174 | 170, 173 | oveq12d 7424 |
. . . . . . . . 9
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β (((πΉπ·πΊ) Β·
(ββ(β―βπΌ))) + ((π / (ββ(β―βπΌ))) Β·
(ββ(β―βπΌ)))) = (((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) + π)) |
175 | 169, 174 | eqtrd 2773 |
. . . . . . . 8
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β (((πΉπ·πΊ) + (π / (ββ(β―βπΌ)))) Β·
(ββ(β―βπΌ))) = (((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) + π)) |
176 | 164, 175 | breqtrd 5174 |
. . . . . . 7
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β (πΉ(βnβπΌ)πΊ) < (((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) + π)) |
177 | 120, 125,
176 | ltled 11359 |
. . . . . 6
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ (πΌ β β
β§ π β β+)) β (πΉ(βnβπΌ)πΊ) β€ (((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) + π)) |
178 | 177 | anassrs 469 |
. . . . 5
β’ ((((π β§ (πΉ β π β§ πΊ β π)) β§ πΌ β β
) β§ π β β+) β (πΉ(βnβπΌ)πΊ) β€ (((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) + π)) |
179 | 178 | ralrimiva 3147 |
. . . 4
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ πΌ β β
) β βπ β β+
(πΉ(βnβπΌ)πΊ) β€ (((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) + π)) |
180 | | alrple 13182 |
. . . . . 6
β’ (((πΉ(βnβπΌ)πΊ) β β β§
((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) β β) β ((πΉ(βnβπΌ)πΊ) β€ ((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) β βπ β β+ (πΉ(βnβπΌ)πΊ) β€ (((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) + π))) |
181 | 82, 121, 180 | syl2anc 585 |
. . . . 5
β’ ((π β§ (πΉ β π β§ πΊ β π)) β ((πΉ(βnβπΌ)πΊ) β€ ((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) β βπ β β+ (πΉ(βnβπΌ)πΊ) β€ (((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) + π))) |
182 | 181 | adantr 482 |
. . . 4
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ πΌ β β
) β ((πΉ(βnβπΌ)πΊ) β€ ((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) β βπ β β+ (πΉ(βnβπΌ)πΊ) β€ (((ββ(β―βπΌ)) Β· (πΉπ·πΊ)) + π))) |
183 | 179, 182 | mpbird 257 |
. . 3
β’ (((π β§ (πΉ β π β§ πΊ β π)) β§ πΌ β β
) β (πΉ(βnβπΌ)πΊ) β€ ((ββ(β―βπΌ)) Β· (πΉπ·πΊ))) |
184 | 119, 183 | pm2.61dane 3030 |
. 2
β’ ((π β§ (πΉ β π β§ πΊ β π)) β (πΉ(βnβπΌ)πΊ) β€ ((ββ(β―βπΌ)) Β· (πΉπ·πΊ))) |
185 | 87, 184 | jca 513 |
1
β’ ((π β§ (πΉ β π β§ πΊ β π)) β ((πΉπ·πΊ) β€ (πΉ(βnβπΌ)πΊ) β§ (πΉ(βnβπΌ)πΊ) β€ ((ββ(β―βπΌ)) Β· (πΉπ·πΊ)))) |