Step | Hyp | Ref
| Expression |
1 | | nlmvscn.t |
. . . 4
β’ π = ((π
/ 2) / ((π΄βπ΅) + 1)) |
2 | | nlmvscn.r |
. . . . . 6
β’ (π β π
β
β+) |
3 | 2 | rphalfcld 13024 |
. . . . 5
β’ (π β (π
/ 2) β
β+) |
4 | | nlmvscn.w |
. . . . . . . 8
β’ (π β π β NrmMod) |
5 | | nlmvscn.f |
. . . . . . . . 9
β’ πΉ = (Scalarβπ) |
6 | 5 | nlmngp2 24188 |
. . . . . . . 8
β’ (π β NrmMod β πΉ β NrmGrp) |
7 | 4, 6 | syl 17 |
. . . . . . 7
β’ (π β πΉ β NrmGrp) |
8 | | nlmvscn.b |
. . . . . . 7
β’ (π β π΅ β πΎ) |
9 | | nlmvscn.k |
. . . . . . . 8
β’ πΎ = (BaseβπΉ) |
10 | | nlmvscn.a |
. . . . . . . 8
β’ π΄ = (normβπΉ) |
11 | 9, 10 | nmcl 24116 |
. . . . . . 7
β’ ((πΉ β NrmGrp β§ π΅ β πΎ) β (π΄βπ΅) β β) |
12 | 7, 8, 11 | syl2anc 584 |
. . . . . 6
β’ (π β (π΄βπ΅) β β) |
13 | 9, 10 | nmge0 24117 |
. . . . . . 7
β’ ((πΉ β NrmGrp β§ π΅ β πΎ) β 0 β€ (π΄βπ΅)) |
14 | 7, 8, 13 | syl2anc 584 |
. . . . . 6
β’ (π β 0 β€ (π΄βπ΅)) |
15 | 12, 14 | ge0p1rpd 13042 |
. . . . 5
β’ (π β ((π΄βπ΅) + 1) β
β+) |
16 | 3, 15 | rpdivcld 13029 |
. . . 4
β’ (π β ((π
/ 2) / ((π΄βπ΅) + 1)) β
β+) |
17 | 1, 16 | eqeltrid 2837 |
. . 3
β’ (π β π β
β+) |
18 | | nlmvscn.u |
. . . 4
β’ π = ((π
/ 2) / ((πβπ) + π)) |
19 | | nlmngp 24185 |
. . . . . . . . 9
β’ (π β NrmMod β π β NrmGrp) |
20 | 4, 19 | syl 17 |
. . . . . . . 8
β’ (π β π β NrmGrp) |
21 | | nlmvscn.x |
. . . . . . . 8
β’ (π β π β π) |
22 | | nlmvscn.v |
. . . . . . . . 9
β’ π = (Baseβπ) |
23 | | nlmvscn.n |
. . . . . . . . 9
β’ π = (normβπ) |
24 | 22, 23 | nmcl 24116 |
. . . . . . . 8
β’ ((π β NrmGrp β§ π β π) β (πβπ) β β) |
25 | 20, 21, 24 | syl2anc 584 |
. . . . . . 7
β’ (π β (πβπ) β β) |
26 | 17 | rpred 13012 |
. . . . . . 7
β’ (π β π β β) |
27 | 25, 26 | readdcld 11239 |
. . . . . 6
β’ (π β ((πβπ) + π) β β) |
28 | | 0red 11213 |
. . . . . . 7
β’ (π β 0 β
β) |
29 | 22, 23 | nmge0 24117 |
. . . . . . . 8
β’ ((π β NrmGrp β§ π β π) β 0 β€ (πβπ)) |
30 | 20, 21, 29 | syl2anc 584 |
. . . . . . 7
β’ (π β 0 β€ (πβπ)) |
31 | 25, 17 | ltaddrpd 13045 |
. . . . . . 7
β’ (π β (πβπ) < ((πβπ) + π)) |
32 | 28, 25, 27, 30, 31 | lelttrd 11368 |
. . . . . 6
β’ (π β 0 < ((πβπ) + π)) |
33 | 27, 32 | elrpd 13009 |
. . . . 5
β’ (π β ((πβπ) + π) β
β+) |
34 | 3, 33 | rpdivcld 13029 |
. . . 4
β’ (π β ((π
/ 2) / ((πβπ) + π)) β
β+) |
35 | 18, 34 | eqeltrid 2837 |
. . 3
β’ (π β π β
β+) |
36 | 17, 35 | ifcld 4573 |
. 2
β’ (π β if(π β€ π, π, π) β
β+) |
37 | | nlmvscn.d |
. . . . 5
β’ π· = (distβπ) |
38 | | nlmvscn.e |
. . . . 5
β’ πΈ = (distβπΉ) |
39 | | nlmvscn.s |
. . . . 5
β’ Β· = (
Β·π βπ) |
40 | 4 | adantr 481 |
. . . . 5
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β π β NrmMod) |
41 | 2 | adantr 481 |
. . . . 5
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β π
β
β+) |
42 | 8 | adantr 481 |
. . . . 5
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β π΅ β πΎ) |
43 | 21 | adantr 481 |
. . . . 5
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β π β π) |
44 | | simprll 777 |
. . . . 5
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β π₯ β πΎ) |
45 | | simprlr 778 |
. . . . 5
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β π¦ β π) |
46 | 7 | adantr 481 |
. . . . . . . 8
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β πΉ β NrmGrp) |
47 | | ngpms 24100 |
. . . . . . . 8
β’ (πΉ β NrmGrp β πΉ β MetSp) |
48 | 46, 47 | syl 17 |
. . . . . . 7
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β πΉ β MetSp) |
49 | 9, 38 | mscl 23958 |
. . . . . . 7
β’ ((πΉ β MetSp β§ π΅ β πΎ β§ π₯ β πΎ) β (π΅πΈπ₯) β β) |
50 | 48, 42, 44, 49 | syl3anc 1371 |
. . . . . 6
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β (π΅πΈπ₯) β β) |
51 | 36 | adantr 481 |
. . . . . . 7
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β if(π β€ π, π, π) β
β+) |
52 | 51 | rpred 13012 |
. . . . . 6
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β if(π β€ π, π, π) β β) |
53 | 35 | rpred 13012 |
. . . . . . 7
β’ (π β π β β) |
54 | 53 | adantr 481 |
. . . . . 6
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β π β β) |
55 | | simprrl 779 |
. . . . . 6
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β (π΅πΈπ₯) < if(π β€ π, π, π)) |
56 | 26 | adantr 481 |
. . . . . . 7
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β π β β) |
57 | | min2 13165 |
. . . . . . 7
β’ ((π β β β§ π β β) β if(π β€ π, π, π) β€ π) |
58 | 56, 54, 57 | syl2anc 584 |
. . . . . 6
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β if(π β€ π, π, π) β€ π) |
59 | 50, 52, 54, 55, 58 | ltletrd 11370 |
. . . . 5
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β (π΅πΈπ₯) < π) |
60 | | ngpms 24100 |
. . . . . . . . 9
β’ (π β NrmGrp β π β MetSp) |
61 | 20, 60 | syl 17 |
. . . . . . . 8
β’ (π β π β MetSp) |
62 | 61 | adantr 481 |
. . . . . . 7
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β π β MetSp) |
63 | 22, 37 | mscl 23958 |
. . . . . . 7
β’ ((π β MetSp β§ π β π β§ π¦ β π) β (ππ·π¦) β β) |
64 | 62, 43, 45, 63 | syl3anc 1371 |
. . . . . 6
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β (ππ·π¦) β β) |
65 | | simprrr 780 |
. . . . . 6
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β (ππ·π¦) < if(π β€ π, π, π)) |
66 | | min1 13164 |
. . . . . . 7
β’ ((π β β β§ π β β) β if(π β€ π, π, π) β€ π) |
67 | 56, 54, 66 | syl2anc 584 |
. . . . . 6
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β if(π β€ π, π, π) β€ π) |
68 | 64, 52, 56, 65, 67 | ltletrd 11370 |
. . . . 5
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β (ππ·π¦) < π) |
69 | 5, 22, 9, 37, 38, 23, 10, 39, 1, 18, 40, 41, 42, 43, 44, 45, 59, 68 | nlmvscnlem2 24193 |
. . . 4
β’ ((π β§ ((π₯ β πΎ β§ π¦ β π) β§ ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) β ((π΅ Β· π)π·(π₯ Β· π¦)) < π
) |
70 | 69 | expr 457 |
. . 3
β’ ((π β§ (π₯ β πΎ β§ π¦ β π)) β (((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)) β ((π΅ Β· π)π·(π₯ Β· π¦)) < π
)) |
71 | 70 | ralrimivva 3200 |
. 2
β’ (π β βπ₯ β πΎ βπ¦ β π (((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)) β ((π΅ Β· π)π·(π₯ Β· π¦)) < π
)) |
72 | | breq2 5151 |
. . . . . 6
β’ (π = if(π β€ π, π, π) β ((π΅πΈπ₯) < π β (π΅πΈπ₯) < if(π β€ π, π, π))) |
73 | | breq2 5151 |
. . . . . 6
β’ (π = if(π β€ π, π, π) β ((ππ·π¦) < π β (ππ·π¦) < if(π β€ π, π, π))) |
74 | 72, 73 | anbi12d 631 |
. . . . 5
β’ (π = if(π β€ π, π, π) β (((π΅πΈπ₯) < π β§ (ππ·π¦) < π) β ((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)))) |
75 | 74 | imbi1d 341 |
. . . 4
β’ (π = if(π β€ π, π, π) β ((((π΅πΈπ₯) < π β§ (ππ·π¦) < π) β ((π΅ Β· π)π·(π₯ Β· π¦)) < π
) β (((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)) β ((π΅ Β· π)π·(π₯ Β· π¦)) < π
))) |
76 | 75 | 2ralbidv 3218 |
. . 3
β’ (π = if(π β€ π, π, π) β (βπ₯ β πΎ βπ¦ β π (((π΅πΈπ₯) < π β§ (ππ·π¦) < π) β ((π΅ Β· π)π·(π₯ Β· π¦)) < π
) β βπ₯ β πΎ βπ¦ β π (((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)) β ((π΅ Β· π)π·(π₯ Β· π¦)) < π
))) |
77 | 76 | rspcev 3612 |
. 2
β’
((if(π β€ π, π, π) β β+ β§
βπ₯ β πΎ βπ¦ β π (((π΅πΈπ₯) < if(π β€ π, π, π) β§ (ππ·π¦) < if(π β€ π, π, π)) β ((π΅ Β· π)π·(π₯ Β· π¦)) < π
)) β βπ β β+ βπ₯ β πΎ βπ¦ β π (((π΅πΈπ₯) < π β§ (ππ·π¦) < π) β ((π΅ Β· π)π·(π₯ Β· π¦)) < π
)) |
78 | 36, 71, 77 | syl2anc 584 |
1
β’ (π β βπ β β+ βπ₯ β πΎ βπ¦ β π (((π΅πΈπ₯) < π β§ (ππ·π¦) < π) β ((π΅ Β· π)π·(π₯ Β· π¦)) < π
)) |