Step | Hyp | Ref
| Expression |
1 | | rrndistlt.i |
. . . . 5
β’ (π β πΌ β Fin) |
2 | | rrndistlt.z |
. . . . 5
β’ (π β πΌ β β
) |
3 | | rrndistlt.x |
. . . . . . . . . . 11
β’ (π β π β (β βm πΌ)) |
4 | | elmapi 8839 |
. . . . . . . . . . 11
β’ (π β (β
βm πΌ)
β π:πΌβΆβ) |
5 | 3, 4 | syl 17 |
. . . . . . . . . 10
β’ (π β π:πΌβΆβ) |
6 | | ax-resscn 11163 |
. . . . . . . . . . 11
β’ β
β β |
7 | 6 | a1i 11 |
. . . . . . . . . 10
β’ (π β β β
β) |
8 | 5, 7 | fssd 6732 |
. . . . . . . . 9
β’ (π β π:πΌβΆβ) |
9 | 8 | ffvelcdmda 7083 |
. . . . . . . 8
β’ ((π β§ π β πΌ) β (πβπ) β β) |
10 | | rrndistlt.y |
. . . . . . . . . . 11
β’ (π β π β (β βm πΌ)) |
11 | | elmapi 8839 |
. . . . . . . . . . 11
β’ (π β (β
βm πΌ)
β π:πΌβΆβ) |
12 | 10, 11 | syl 17 |
. . . . . . . . . 10
β’ (π β π:πΌβΆβ) |
13 | 12, 7 | fssd 6732 |
. . . . . . . . 9
β’ (π β π:πΌβΆβ) |
14 | 13 | ffvelcdmda 7083 |
. . . . . . . 8
β’ ((π β§ π β πΌ) β (πβπ) β β) |
15 | 9, 14 | subcld 11567 |
. . . . . . 7
β’ ((π β§ π β πΌ) β ((πβπ) β (πβπ)) β β) |
16 | 15 | abscld 15379 |
. . . . . 6
β’ ((π β§ π β πΌ) β (absβ((πβπ) β (πβπ))) β β) |
17 | 16 | resqcld 14086 |
. . . . 5
β’ ((π β§ π β πΌ) β ((absβ((πβπ) β (πβπ)))β2) β β) |
18 | | rrndistlt.e |
. . . . . . . 8
β’ (π β πΈ β
β+) |
19 | 18 | rpred 13012 |
. . . . . . 7
β’ (π β πΈ β β) |
20 | 19 | resqcld 14086 |
. . . . . 6
β’ (π β (πΈβ2) β β) |
21 | 20 | adantr 481 |
. . . . 5
β’ ((π β§ π β πΌ) β (πΈβ2) β β) |
22 | | rrndistlt.l |
. . . . . 6
β’ ((π β§ π β πΌ) β (absβ((πβπ) β (πβπ))) < πΈ) |
23 | 15 | absge0d 15387 |
. . . . . . 7
β’ ((π β§ π β πΌ) β 0 β€ (absβ((πβπ) β (πβπ)))) |
24 | 19 | adantr 481 |
. . . . . . 7
β’ ((π β§ π β πΌ) β πΈ β β) |
25 | 18 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π β πΌ) β πΈ β
β+) |
26 | 25 | rpge0d 13016 |
. . . . . . 7
β’ ((π β§ π β πΌ) β 0 β€ πΈ) |
27 | | lt2sq 14094 |
. . . . . . 7
β’
((((absβ((πβπ) β (πβπ))) β β β§ 0 β€
(absβ((πβπ) β (πβπ)))) β§ (πΈ β β β§ 0 β€ πΈ)) β ((absβ((πβπ) β (πβπ))) < πΈ β ((absβ((πβπ) β (πβπ)))β2) < (πΈβ2))) |
28 | 16, 23, 24, 26, 27 | syl22anc 837 |
. . . . . 6
β’ ((π β§ π β πΌ) β ((absβ((πβπ) β (πβπ))) < πΈ β ((absβ((πβπ) β (πβπ)))β2) < (πΈβ2))) |
29 | 22, 28 | mpbid 231 |
. . . . 5
β’ ((π β§ π β πΌ) β ((absβ((πβπ) β (πβπ)))β2) < (πΈβ2)) |
30 | 1, 2, 17, 21, 29 | fsumlt 15742 |
. . . 4
β’ (π β Ξ£π β πΌ ((absβ((πβπ) β (πβπ)))β2) < Ξ£π β πΌ (πΈβ2)) |
31 | 5 | ffvelcdmda 7083 |
. . . . . . . . 9
β’ ((π β§ π β πΌ) β (πβπ) β β) |
32 | 12 | ffvelcdmda 7083 |
. . . . . . . . 9
β’ ((π β§ π β πΌ) β (πβπ) β β) |
33 | 31, 32 | resubcld 11638 |
. . . . . . . 8
β’ ((π β§ π β πΌ) β ((πβπ) β (πβπ)) β β) |
34 | | absresq 15245 |
. . . . . . . 8
β’ (((πβπ) β (πβπ)) β β β ((absβ((πβπ) β (πβπ)))β2) = (((πβπ) β (πβπ))β2)) |
35 | 33, 34 | syl 17 |
. . . . . . 7
β’ ((π β§ π β πΌ) β ((absβ((πβπ) β (πβπ)))β2) = (((πβπ) β (πβπ))β2)) |
36 | 35 | eqcomd 2738 |
. . . . . 6
β’ ((π β§ π β πΌ) β (((πβπ) β (πβπ))β2) = ((absβ((πβπ) β (πβπ)))β2)) |
37 | 36 | sumeq2dv 15645 |
. . . . 5
β’ (π β Ξ£π β πΌ (((πβπ) β (πβπ))β2) = Ξ£π β πΌ ((absβ((πβπ) β (πβπ)))β2)) |
38 | 6, 20 | sselid 3979 |
. . . . . . 7
β’ (π β (πΈβ2) β β) |
39 | | fsumconst 15732 |
. . . . . . 7
β’ ((πΌ β Fin β§ (πΈβ2) β β) β
Ξ£π β πΌ (πΈβ2) = ((β―βπΌ) Β· (πΈβ2))) |
40 | 1, 38, 39 | syl2anc 584 |
. . . . . 6
β’ (π β Ξ£π β πΌ (πΈβ2) = ((β―βπΌ) Β· (πΈβ2))) |
41 | | rrndistlt.n |
. . . . . . . . 9
β’ π = (β―βπΌ) |
42 | | eqcom 2739 |
. . . . . . . . 9
β’ (π = (β―βπΌ) β (β―βπΌ) = π) |
43 | 41, 42 | mpbi 229 |
. . . . . . . 8
β’
(β―βπΌ) =
π |
44 | 43 | oveq1i 7415 |
. . . . . . 7
β’
((β―βπΌ)
Β· (πΈβ2)) =
(π Β· (πΈβ2)) |
45 | 44 | a1i 11 |
. . . . . 6
β’ (π β ((β―βπΌ) Β· (πΈβ2)) = (π Β· (πΈβ2))) |
46 | 40, 45 | eqtr2d 2773 |
. . . . 5
β’ (π β (π Β· (πΈβ2)) = Ξ£π β πΌ (πΈβ2)) |
47 | 37, 46 | breq12d 5160 |
. . . 4
β’ (π β (Ξ£π β πΌ (((πβπ) β (πβπ))β2) < (π Β· (πΈβ2)) β Ξ£π β πΌ ((absβ((πβπ) β (πβπ)))β2) < Ξ£π β πΌ (πΈβ2))) |
48 | 30, 47 | mpbird 256 |
. . 3
β’ (π β Ξ£π β πΌ (((πβπ) β (πβπ))β2) < (π Β· (πΈβ2))) |
49 | | nfv 1917 |
. . . . 5
β’
β²ππ |
50 | 33 | resqcld 14086 |
. . . . 5
β’ ((π β§ π β πΌ) β (((πβπ) β (πβπ))β2) β β) |
51 | 49, 1, 50 | fsumreclf 44278 |
. . . 4
β’ (π β Ξ£π β πΌ (((πβπ) β (πβπ))β2) β β) |
52 | 33 | sqge0d 14098 |
. . . . 5
β’ ((π β§ π β πΌ) β 0 β€ (((πβπ) β (πβπ))β2)) |
53 | 1, 50, 52 | fsumge0 15737 |
. . . 4
β’ (π β 0 β€ Ξ£π β πΌ (((πβπ) β (πβπ))β2)) |
54 | | hashcl 14312 |
. . . . . . . 8
β’ (πΌ β Fin β
(β―βπΌ) β
β0) |
55 | 1, 54 | syl 17 |
. . . . . . 7
β’ (π β (β―βπΌ) β
β0) |
56 | 41, 55 | eqeltrid 2837 |
. . . . . 6
β’ (π β π β
β0) |
57 | 56 | nn0red 12529 |
. . . . 5
β’ (π β π β β) |
58 | 57, 20 | remulcld 11240 |
. . . 4
β’ (π β (π Β· (πΈβ2)) β β) |
59 | 56 | nn0ge0d 12531 |
. . . . 5
β’ (π β 0 β€ π) |
60 | 19 | sqge0d 14098 |
. . . . 5
β’ (π β 0 β€ (πΈβ2)) |
61 | 57, 20, 59, 60 | mulge0d 11787 |
. . . 4
β’ (π β 0 β€ (π Β· (πΈβ2))) |
62 | 51, 53, 58, 61 | sqrtltd 15370 |
. . 3
β’ (π β (Ξ£π β πΌ (((πβπ) β (πβπ))β2) < (π Β· (πΈβ2)) β (ββΞ£π β πΌ (((πβπ) β (πβπ))β2)) < (ββ(π Β· (πΈβ2))))) |
63 | 48, 62 | mpbid 231 |
. 2
β’ (π β
(ββΞ£π
β πΌ (((πβπ) β (πβπ))β2)) < (ββ(π Β· (πΈβ2)))) |
64 | | rrndistlt.d |
. . . . . 6
β’ π· =
(distβ(β^βπΌ)) |
65 | 64 | a1i 11 |
. . . . 5
β’ (π β π· = (distβ(β^βπΌ))) |
66 | | eqid 2732 |
. . . . . . 7
β’
(β^βπΌ) =
(β^βπΌ) |
67 | | eqid 2732 |
. . . . . . 7
β’ (β
βm πΌ) =
(β βm πΌ) |
68 | 66, 67 | rrxdsfi 24919 |
. . . . . 6
β’ (πΌ β Fin β
(distβ(β^βπΌ)) = (π β (β βm πΌ), π β (β βm πΌ) β¦
(ββΞ£π
β πΌ (((πβπ) β (πβπ))β2)))) |
69 | 1, 68 | syl 17 |
. . . . 5
β’ (π β
(distβ(β^βπΌ)) = (π β (β βm πΌ), π β (β βm πΌ) β¦
(ββΞ£π
β πΌ (((πβπ) β (πβπ))β2)))) |
70 | 65, 69 | eqtrd 2772 |
. . . 4
β’ (π β π· = (π β (β βm πΌ), π β (β βm πΌ) β¦
(ββΞ£π
β πΌ (((πβπ) β (πβπ))β2)))) |
71 | | fveq1 6887 |
. . . . . . . . . 10
β’ (π = π β (πβπ) = (πβπ)) |
72 | 71 | adantr 481 |
. . . . . . . . 9
β’ ((π = π β§ π = π) β (πβπ) = (πβπ)) |
73 | | fveq1 6887 |
. . . . . . . . . 10
β’ (π = π β (πβπ) = (πβπ)) |
74 | 73 | adantl 482 |
. . . . . . . . 9
β’ ((π = π β§ π = π) β (πβπ) = (πβπ)) |
75 | 72, 74 | oveq12d 7423 |
. . . . . . . 8
β’ ((π = π β§ π = π) β ((πβπ) β (πβπ)) = ((πβπ) β (πβπ))) |
76 | 75 | oveq1d 7420 |
. . . . . . 7
β’ ((π = π β§ π = π) β (((πβπ) β (πβπ))β2) = (((πβπ) β (πβπ))β2)) |
77 | 76 | sumeq2sdv 15646 |
. . . . . 6
β’ ((π = π β§ π = π) β Ξ£π β πΌ (((πβπ) β (πβπ))β2) = Ξ£π β πΌ (((πβπ) β (πβπ))β2)) |
78 | 77 | fveq2d 6892 |
. . . . 5
β’ ((π = π β§ π = π) β (ββΞ£π β πΌ (((πβπ) β (πβπ))β2)) = (ββΞ£π β πΌ (((πβπ) β (πβπ))β2))) |
79 | 78 | adantl 482 |
. . . 4
β’ ((π β§ (π = π β§ π = π)) β (ββΞ£π β πΌ (((πβπ) β (πβπ))β2)) = (ββΞ£π β πΌ (((πβπ) β (πβπ))β2))) |
80 | 51, 53 | resqrtcld 15360 |
. . . 4
β’ (π β
(ββΞ£π
β πΌ (((πβπ) β (πβπ))β2)) β β) |
81 | 70, 79, 3, 10, 80 | ovmpod 7556 |
. . 3
β’ (π β (ππ·π) = (ββΞ£π β πΌ (((πβπ) β (πβπ))β2))) |
82 | | sqrtmul 15202 |
. . . . 5
β’ (((π β β β§ 0 β€
π) β§ ((πΈβ2) β β β§ 0
β€ (πΈβ2))) β
(ββ(π Β·
(πΈβ2))) =
((ββπ) Β·
(ββ(πΈβ2)))) |
83 | 57, 59, 20, 60, 82 | syl22anc 837 |
. . . 4
β’ (π β (ββ(π Β· (πΈβ2))) = ((ββπ) Β· (ββ(πΈβ2)))) |
84 | 18 | rpge0d 13016 |
. . . . . 6
β’ (π β 0 β€ πΈ) |
85 | 19, 84 | sqrtsqd 15362 |
. . . . 5
β’ (π β (ββ(πΈβ2)) = πΈ) |
86 | 85 | oveq2d 7421 |
. . . 4
β’ (π β ((ββπ) Β· (ββ(πΈβ2))) =
((ββπ) Β·
πΈ)) |
87 | 83, 86 | eqtr2d 2773 |
. . 3
β’ (π β ((ββπ) Β· πΈ) = (ββ(π Β· (πΈβ2)))) |
88 | 81, 87 | breq12d 5160 |
. 2
β’ (π β ((ππ·π) < ((ββπ) Β· πΈ) β (ββΞ£π β πΌ (((πβπ) β (πβπ))β2)) < (ββ(π Β· (πΈβ2))))) |
89 | 63, 88 | mpbird 256 |
1
β’ (π β (ππ·π) < ((ββπ) Β· πΈ)) |