Step | Hyp | Ref
| Expression |
1 | | eqid 2731 |
. 2
β’
(β€β₯βπ) = (β€β₯βπ) |
2 | | simp3 1137 |
. . 3
β’ ((π΄ β π΅ β§ π΅ β β β§ π β β) β π β β) |
3 | 2 | nnzd 12590 |
. 2
β’ ((π΄ β π΅ β§ π΅ β β β§ π β β) β π β β€) |
4 | | eqidd 2732 |
. 2
β’ (((π΄ β π΅ β§ π΅ β β β§ π β β) β§ π β (β€β₯βπ)) β ((πΉβπ΄)βπ) = ((πΉβπ΄)βπ)) |
5 | | eluznn 12907 |
. . . 4
β’ ((π β β β§ π β
(β€β₯βπ)) β π β β) |
6 | 2, 5 | sylan 579 |
. . 3
β’ (((π΄ β π΅ β§ π΅ β β β§ π β β) β§ π β (β€β₯βπ)) β π β β) |
7 | | sstr 3990 |
. . . . . 6
β’ ((π΄ β π΅ β§ π΅ β β) β π΄ β β) |
8 | 7 | 3adant3 1131 |
. . . . 5
β’ ((π΄ β π΅ β§ π΅ β β β§ π β β) β π΄ β β) |
9 | | rpnnen2.1 |
. . . . . 6
β’ πΉ = (π₯ β π« β β¦ (π β β β¦ if(π β π₯, ((1 / 3)βπ), 0))) |
10 | 9 | rpnnen2lem2 16163 |
. . . . 5
β’ (π΄ β β β (πΉβπ΄):ββΆβ) |
11 | 8, 10 | syl 17 |
. . . 4
β’ ((π΄ β π΅ β§ π΅ β β β§ π β β) β (πΉβπ΄):ββΆβ) |
12 | 11 | ffvelcdmda 7086 |
. . 3
β’ (((π΄ β π΅ β§ π΅ β β β§ π β β) β§ π β β) β ((πΉβπ΄)βπ) β β) |
13 | 6, 12 | syldan 590 |
. 2
β’ (((π΄ β π΅ β§ π΅ β β β§ π β β) β§ π β (β€β₯βπ)) β ((πΉβπ΄)βπ) β β) |
14 | | eqidd 2732 |
. 2
β’ (((π΄ β π΅ β§ π΅ β β β§ π β β) β§ π β (β€β₯βπ)) β ((πΉβπ΅)βπ) = ((πΉβπ΅)βπ)) |
15 | 9 | rpnnen2lem2 16163 |
. . . . 5
β’ (π΅ β β β (πΉβπ΅):ββΆβ) |
16 | 15 | 3ad2ant2 1133 |
. . . 4
β’ ((π΄ β π΅ β§ π΅ β β β§ π β β) β (πΉβπ΅):ββΆβ) |
17 | 16 | ffvelcdmda 7086 |
. . 3
β’ (((π΄ β π΅ β§ π΅ β β β§ π β β) β§ π β β) β ((πΉβπ΅)βπ) β β) |
18 | 6, 17 | syldan 590 |
. 2
β’ (((π΄ β π΅ β§ π΅ β β β§ π β β) β§ π β (β€β₯βπ)) β ((πΉβπ΅)βπ) β β) |
19 | 9 | rpnnen2lem4 16165 |
. . . . . 6
β’ ((π΄ β π΅ β§ π΅ β β β§ π β β) β (0 β€ ((πΉβπ΄)βπ) β§ ((πΉβπ΄)βπ) β€ ((πΉβπ΅)βπ))) |
20 | 19 | simprd 495 |
. . . . 5
β’ ((π΄ β π΅ β§ π΅ β β β§ π β β) β ((πΉβπ΄)βπ) β€ ((πΉβπ΅)βπ)) |
21 | 20 | 3expa 1117 |
. . . 4
β’ (((π΄ β π΅ β§ π΅ β β) β§ π β β) β ((πΉβπ΄)βπ) β€ ((πΉβπ΅)βπ)) |
22 | 21 | 3adantl3 1167 |
. . 3
β’ (((π΄ β π΅ β§ π΅ β β β§ π β β) β§ π β β) β ((πΉβπ΄)βπ) β€ ((πΉβπ΅)βπ)) |
23 | 6, 22 | syldan 590 |
. 2
β’ (((π΄ β π΅ β§ π΅ β β β§ π β β) β§ π β (β€β₯βπ)) β ((πΉβπ΄)βπ) β€ ((πΉβπ΅)βπ)) |
24 | 9 | rpnnen2lem5 16166 |
. . 3
β’ ((π΄ β β β§ π β β) β seqπ( + , (πΉβπ΄)) β dom β ) |
25 | 7, 24 | stoic3 1777 |
. 2
β’ ((π΄ β π΅ β§ π΅ β β β§ π β β) β seqπ( + , (πΉβπ΄)) β dom β ) |
26 | 9 | rpnnen2lem5 16166 |
. . 3
β’ ((π΅ β β β§ π β β) β seqπ( + , (πΉβπ΅)) β dom β ) |
27 | 26 | 3adant1 1129 |
. 2
β’ ((π΄ β π΅ β§ π΅ β β β§ π β β) β seqπ( + , (πΉβπ΅)) β dom β ) |
28 | 1, 3, 4, 13, 14, 18, 23, 25, 27 | isumle 15795 |
1
β’ ((π΄ β π΅ β§ π΅ β β β§ π β β) β Ξ£π β
(β€β₯βπ)((πΉβπ΄)βπ) β€ Ξ£π β (β€β₯βπ)((πΉβπ΅)βπ)) |