Step | Hyp | Ref
| Expression |
1 | | simpll 765 |
. . . . 5
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β πΌ β Fin) |
2 | | simprl 769 |
. . . . . . . . . 10
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β πΉ β π) |
3 | | rrnval.1 |
. . . . . . . . . 10
β’ π = (β βm
πΌ) |
4 | 2, 3 | eleqtrdi 2843 |
. . . . . . . . 9
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β πΉ β (β βm πΌ)) |
5 | | elmapi 8839 |
. . . . . . . . 9
β’ (πΉ β (β
βm πΌ)
β πΉ:πΌβΆβ) |
6 | 4, 5 | syl 17 |
. . . . . . . 8
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β πΉ:πΌβΆβ) |
7 | 6 | ffvelcdmda 7083 |
. . . . . . 7
β’ ((((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β§ π β πΌ) β (πΉβπ) β β) |
8 | | simprr 771 |
. . . . . . . . . 10
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β πΊ β π) |
9 | 8, 3 | eleqtrdi 2843 |
. . . . . . . . 9
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β πΊ β (β βm πΌ)) |
10 | | elmapi 8839 |
. . . . . . . . 9
β’ (πΊ β (β
βm πΌ)
β πΊ:πΌβΆβ) |
11 | 9, 10 | syl 17 |
. . . . . . . 8
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β πΊ:πΌβΆβ) |
12 | 11 | ffvelcdmda 7083 |
. . . . . . 7
β’ ((((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β§ π β πΌ) β (πΊβπ) β β) |
13 | 7, 12 | resubcld 11638 |
. . . . . 6
β’ ((((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β§ π β πΌ) β ((πΉβπ) β (πΊβπ)) β β) |
14 | 13 | resqcld 14086 |
. . . . 5
β’ ((((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β§ π β πΌ) β (((πΉβπ) β (πΊβπ))β2) β β) |
15 | 13 | sqge0d 14098 |
. . . . 5
β’ ((((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β§ π β πΌ) β 0 β€ (((πΉβπ) β (πΊβπ))β2)) |
16 | | fveq2 6888 |
. . . . . . 7
β’ (π = π΄ β (πΉβπ) = (πΉβπ΄)) |
17 | | fveq2 6888 |
. . . . . . 7
β’ (π = π΄ β (πΊβπ) = (πΊβπ΄)) |
18 | 16, 17 | oveq12d 7423 |
. . . . . 6
β’ (π = π΄ β ((πΉβπ) β (πΊβπ)) = ((πΉβπ΄) β (πΊβπ΄))) |
19 | 18 | oveq1d 7420 |
. . . . 5
β’ (π = π΄ β (((πΉβπ) β (πΊβπ))β2) = (((πΉβπ΄) β (πΊβπ΄))β2)) |
20 | | simplr 767 |
. . . . 5
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β π΄ β πΌ) |
21 | 1, 14, 15, 19, 20 | fsumge1 15739 |
. . . 4
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β (((πΉβπ΄) β (πΊβπ΄))β2) β€ Ξ£π β πΌ (((πΉβπ) β (πΊβπ))β2)) |
22 | 6, 20 | ffvelcdmd 7084 |
. . . . . 6
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β (πΉβπ΄) β β) |
23 | 11, 20 | ffvelcdmd 7084 |
. . . . . 6
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β (πΊβπ΄) β β) |
24 | 22, 23 | resubcld 11638 |
. . . . 5
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β ((πΉβπ΄) β (πΊβπ΄)) β β) |
25 | | absresq 15245 |
. . . . 5
β’ (((πΉβπ΄) β (πΊβπ΄)) β β β ((absβ((πΉβπ΄) β (πΊβπ΄)))β2) = (((πΉβπ΄) β (πΊβπ΄))β2)) |
26 | 24, 25 | syl 17 |
. . . 4
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β ((absβ((πΉβπ΄) β (πΊβπ΄)))β2) = (((πΉβπ΄) β (πΊβπ΄))β2)) |
27 | 1, 14 | fsumrecl 15676 |
. . . . 5
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β Ξ£π β πΌ (((πΉβπ) β (πΊβπ))β2) β β) |
28 | 1, 14, 15 | fsumge0 15737 |
. . . . 5
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β 0 β€ Ξ£π β πΌ (((πΉβπ) β (πΊβπ))β2)) |
29 | | resqrtth 15198 |
. . . . 5
β’
((Ξ£π β
πΌ (((πΉβπ) β (πΊβπ))β2) β β β§ 0 β€
Ξ£π β πΌ (((πΉβπ) β (πΊβπ))β2)) β
((ββΞ£π
β πΌ (((πΉβπ) β (πΊβπ))β2))β2) = Ξ£π β πΌ (((πΉβπ) β (πΊβπ))β2)) |
30 | 27, 28, 29 | syl2anc 584 |
. . . 4
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β ((ββΞ£π β πΌ (((πΉβπ) β (πΊβπ))β2))β2) = Ξ£π β πΌ (((πΉβπ) β (πΊβπ))β2)) |
31 | 21, 26, 30 | 3brtr4d 5179 |
. . 3
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β ((absβ((πΉβπ΄) β (πΊβπ΄)))β2) β€
((ββΞ£π
β πΌ (((πΉβπ) β (πΊβπ))β2))β2)) |
32 | 24 | recnd 11238 |
. . . . 5
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β ((πΉβπ΄) β (πΊβπ΄)) β β) |
33 | 32 | abscld 15379 |
. . . 4
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β (absβ((πΉβπ΄) β (πΊβπ΄))) β β) |
34 | 27, 28 | resqrtcld 15360 |
. . . 4
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β (ββΞ£π β πΌ (((πΉβπ) β (πΊβπ))β2)) β β) |
35 | 32 | absge0d 15387 |
. . . 4
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β 0 β€ (absβ((πΉβπ΄) β (πΊβπ΄)))) |
36 | 27, 28 | sqrtge0d 15363 |
. . . 4
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β 0 β€ (ββΞ£π β πΌ (((πΉβπ) β (πΊβπ))β2))) |
37 | 33, 34, 35, 36 | le2sqd 14216 |
. . 3
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β ((absβ((πΉβπ΄) β (πΊβπ΄))) β€ (ββΞ£π β πΌ (((πΉβπ) β (πΊβπ))β2)) β ((absβ((πΉβπ΄) β (πΊβπ΄)))β2) β€
((ββΞ£π
β πΌ (((πΉβπ) β (πΊβπ))β2))β2))) |
38 | 31, 37 | mpbird 256 |
. 2
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β (absβ((πΉβπ΄) β (πΊβπ΄))) β€ (ββΞ£π β πΌ (((πΉβπ) β (πΊβπ))β2))) |
39 | | rrndstprj1.1 |
. . . 4
β’ π = ((abs β β )
βΎ (β Γ β)) |
40 | 39 | remetdval 24296 |
. . 3
β’ (((πΉβπ΄) β β β§ (πΊβπ΄) β β) β ((πΉβπ΄)π(πΊβπ΄)) = (absβ((πΉβπ΄) β (πΊβπ΄)))) |
41 | 22, 23, 40 | syl2anc 584 |
. 2
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β ((πΉβπ΄)π(πΊβπ΄)) = (absβ((πΉβπ΄) β (πΊβπ΄)))) |
42 | 3 | rrnmval 36684 |
. . . 4
β’ ((πΌ β Fin β§ πΉ β π β§ πΊ β π) β (πΉ(βnβπΌ)πΊ) = (ββΞ£π β πΌ (((πΉβπ) β (πΊβπ))β2))) |
43 | 42 | 3expb 1120 |
. . 3
β’ ((πΌ β Fin β§ (πΉ β π β§ πΊ β π)) β (πΉ(βnβπΌ)πΊ) = (ββΞ£π β πΌ (((πΉβπ) β (πΊβπ))β2))) |
44 | 43 | adantlr 713 |
. 2
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β (πΉ(βnβπΌ)πΊ) = (ββΞ£π β πΌ (((πΉβπ) β (πΊβπ))β2))) |
45 | 38, 41, 44 | 3brtr4d 5179 |
1
β’ (((πΌ β Fin β§ π΄ β πΌ) β§ (πΉ β π β§ πΊ β π)) β ((πΉβπ΄)π(πΊβπ΄)) β€ (πΉ(βnβπΌ)πΊ)) |