Step | Hyp | Ref
| Expression |
1 | | rrvsum.3 |
. 2
β’ ((π β§ π β β) β π = (seq1( βf + , π)βπ)) |
2 | | fveq2 6889 |
. . . . . 6
β’ (π = 1 β (seq1(
βf + , π)βπ) = (seq1( βf + , π)β1)) |
3 | 2 | eleq1d 2819 |
. . . . 5
β’ (π = 1 β ((seq1(
βf + , π)βπ) β (rRndVarβπ) β (seq1( βf + ,
π)β1) β
(rRndVarβπ))) |
4 | 3 | imbi2d 341 |
. . . 4
β’ (π = 1 β ((π β (seq1( βf + , π)βπ) β (rRndVarβπ)) β (π β (seq1( βf + , π)β1) β
(rRndVarβπ)))) |
5 | | fveq2 6889 |
. . . . . 6
β’ (π = π β (seq1( βf + , π)βπ) = (seq1( βf + , π)βπ)) |
6 | 5 | eleq1d 2819 |
. . . . 5
β’ (π = π β ((seq1( βf + , π)βπ) β (rRndVarβπ) β (seq1( βf + ,
π)βπ) β (rRndVarβπ))) |
7 | 6 | imbi2d 341 |
. . . 4
β’ (π = π β ((π β (seq1( βf + , π)βπ) β (rRndVarβπ)) β (π β (seq1( βf + , π)βπ) β (rRndVarβπ)))) |
8 | | fveq2 6889 |
. . . . . 6
β’ (π = (π + 1) β (seq1( βf + ,
π)βπ) = (seq1( βf + , π)β(π + 1))) |
9 | 8 | eleq1d 2819 |
. . . . 5
β’ (π = (π + 1) β ((seq1( βf + ,
π)βπ) β (rRndVarβπ) β (seq1( βf + ,
π)β(π + 1)) β
(rRndVarβπ))) |
10 | 9 | imbi2d 341 |
. . . 4
β’ (π = (π + 1) β ((π β (seq1( βf + , π)βπ) β (rRndVarβπ)) β (π β (seq1( βf + , π)β(π + 1)) β (rRndVarβπ)))) |
11 | | fveq2 6889 |
. . . . . 6
β’ (π = π β (seq1( βf + , π)βπ) = (seq1( βf + , π)βπ)) |
12 | 11 | eleq1d 2819 |
. . . . 5
β’ (π = π β ((seq1( βf + ,
π)βπ) β (rRndVarβπ) β (seq1( βf + ,
π)βπ) β (rRndVarβπ))) |
13 | 12 | imbi2d 341 |
. . . 4
β’ (π = π β ((π β (seq1( βf + , π)βπ) β (rRndVarβπ)) β (π β (seq1( βf + , π)βπ) β (rRndVarβπ)))) |
14 | | 1z 12589 |
. . . . . 6
β’ 1 β
β€ |
15 | | seq1 13976 |
. . . . . 6
β’ (1 β
β€ β (seq1( βf + , π)β1) = (πβ1)) |
16 | 14, 15 | ax-mp 5 |
. . . . 5
β’ (seq1(
βf + , π)β1) = (πβ1) |
17 | | 1nn 12220 |
. . . . . 6
β’ 1 β
β |
18 | | rrvsum.2 |
. . . . . . 7
β’ (π β π:ββΆ(rRndVarβπ)) |
19 | 18 | ffvelcdmda 7084 |
. . . . . 6
β’ ((π β§ 1 β β) β
(πβ1) β
(rRndVarβπ)) |
20 | 17, 19 | mpan2 690 |
. . . . 5
β’ (π β (πβ1) β (rRndVarβπ)) |
21 | 16, 20 | eqeltrid 2838 |
. . . 4
β’ (π β (seq1( βf
+ , π)β1) β
(rRndVarβπ)) |
22 | | seqp1 13978 |
. . . . . . . . . 10
β’ (π β
(β€β₯β1) β (seq1( βf + , π)β(π + 1)) = ((seq1( βf + ,
π)βπ) βf + (πβ(π + 1)))) |
23 | | nnuz 12862 |
. . . . . . . . . 10
β’ β =
(β€β₯β1) |
24 | 22, 23 | eleq2s 2852 |
. . . . . . . . 9
β’ (π β β β (seq1(
βf + , π)β(π + 1)) = ((seq1( βf + ,
π)βπ) βf + (πβ(π + 1)))) |
25 | 24 | ad2antlr 726 |
. . . . . . . 8
β’ (((π β§ π β β) β§ (seq1(
βf + , π)βπ) β (rRndVarβπ)) β (seq1( βf + ,
π)β(π + 1)) = ((seq1(
βf + , π)βπ) βf + (πβ(π + 1)))) |
26 | | rrvsum.1 |
. . . . . . . . . 10
β’ (π β π β Prob) |
27 | 26 | ad2antrr 725 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ (seq1(
βf + , π)βπ) β (rRndVarβπ)) β π β Prob) |
28 | | simpr 486 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ (seq1(
βf + , π)βπ) β (rRndVarβπ)) β (seq1( βf + ,
π)βπ) β (rRndVarβπ)) |
29 | | peano2nn 12221 |
. . . . . . . . . . 11
β’ (π β β β (π + 1) β
β) |
30 | 18 | ffvelcdmda 7084 |
. . . . . . . . . . 11
β’ ((π β§ (π + 1) β β) β (πβ(π + 1)) β (rRndVarβπ)) |
31 | 29, 30 | sylan2 594 |
. . . . . . . . . 10
β’ ((π β§ π β β) β (πβ(π + 1)) β (rRndVarβπ)) |
32 | 31 | adantr 482 |
. . . . . . . . 9
β’ (((π β§ π β β) β§ (seq1(
βf + , π)βπ) β (rRndVarβπ)) β (πβ(π + 1)) β (rRndVarβπ)) |
33 | 27, 28, 32 | rrvadd 33440 |
. . . . . . . 8
β’ (((π β§ π β β) β§ (seq1(
βf + , π)βπ) β (rRndVarβπ)) β ((seq1( βf + ,
π)βπ) βf + (πβ(π + 1))) β (rRndVarβπ)) |
34 | 25, 33 | eqeltrd 2834 |
. . . . . . 7
β’ (((π β§ π β β) β§ (seq1(
βf + , π)βπ) β (rRndVarβπ)) β (seq1( βf + ,
π)β(π + 1)) β
(rRndVarβπ)) |
35 | 34 | ex 414 |
. . . . . 6
β’ ((π β§ π β β) β ((seq1(
βf + , π)βπ) β (rRndVarβπ) β (seq1( βf + ,
π)β(π + 1)) β
(rRndVarβπ))) |
36 | 35 | expcom 415 |
. . . . 5
β’ (π β β β (π β ((seq1(
βf + , π)βπ) β (rRndVarβπ) β (seq1( βf + ,
π)β(π + 1)) β
(rRndVarβπ)))) |
37 | 36 | a2d 29 |
. . . 4
β’ (π β β β ((π β (seq1( βf
+ , π)βπ) β (rRndVarβπ)) β (π β (seq1( βf + , π)β(π + 1)) β (rRndVarβπ)))) |
38 | 4, 7, 10, 13, 21, 37 | nnind 12227 |
. . 3
β’ (π β β β (π β (seq1( βf
+ , π)βπ) β (rRndVarβπ))) |
39 | 38 | impcom 409 |
. 2
β’ ((π β§ π β β) β (seq1(
βf + , π)βπ) β (rRndVarβπ)) |
40 | 1, 39 | eqeltrd 2834 |
1
β’ ((π β§ π β β) β π β (rRndVarβπ)) |