Step | Hyp | Ref
| Expression |
1 | | 1red 11211 |
. . . . . . . . . 10
β’ ((π β§ π₯ β βͺ dom
π) β 1 β
β) |
2 | | dstfrv.1 |
. . . . . . . . . . . 12
β’ (π β π β Prob) |
3 | | dstfrv.2 |
. . . . . . . . . . . 12
β’ (π β π β (rRndVarβπ)) |
4 | 2, 3 | rrvvf 33431 |
. . . . . . . . . . 11
β’ (π β π:βͺ dom πβΆβ) |
5 | 4 | ffvelcdmda 7083 |
. . . . . . . . . 10
β’ ((π β§ π₯ β βͺ dom
π) β (πβπ₯) β β) |
6 | 1, 5 | ifcld 4573 |
. . . . . . . . 9
β’ ((π β§ π₯ β βͺ dom
π) β if((πβπ₯) < 1, 1, (πβπ₯)) β β) |
7 | | breq2 5151 |
. . . . . . . . . 10
β’ (1 =
if((πβπ₯) < 1, 1, (πβπ₯)) β (1 β€ 1 β 1 β€ if((πβπ₯) < 1, 1, (πβπ₯)))) |
8 | | breq2 5151 |
. . . . . . . . . 10
β’ ((πβπ₯) = if((πβπ₯) < 1, 1, (πβπ₯)) β (1 β€ (πβπ₯) β 1 β€ if((πβπ₯) < 1, 1, (πβπ₯)))) |
9 | | 1le1 11838 |
. . . . . . . . . . 11
β’ 1 β€
1 |
10 | 9 | a1i 11 |
. . . . . . . . . 10
β’ (((π β§ π₯ β βͺ dom
π) β§ (πβπ₯) < 1) β 1 β€ 1) |
11 | 1, 5 | lenltd 11356 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β βͺ dom
π) β (1 β€ (πβπ₯) β Β¬ (πβπ₯) < 1)) |
12 | 11 | biimpar 478 |
. . . . . . . . . 10
β’ (((π β§ π₯ β βͺ dom
π) β§ Β¬ (πβπ₯) < 1) β 1 β€ (πβπ₯)) |
13 | 7, 8, 10, 12 | ifbothda 4565 |
. . . . . . . . 9
β’ ((π β§ π₯ β βͺ dom
π) β 1 β€ if((πβπ₯) < 1, 1, (πβπ₯))) |
14 | | flge1nn 13782 |
. . . . . . . . 9
β’
((if((πβπ₯) < 1, 1, (πβπ₯)) β β β§ 1 β€ if((πβπ₯) < 1, 1, (πβπ₯))) β (ββif((πβπ₯) < 1, 1, (πβπ₯))) β β) |
15 | 6, 13, 14 | syl2anc 584 |
. . . . . . . 8
β’ ((π β§ π₯ β βͺ dom
π) β
(ββif((πβπ₯) < 1, 1, (πβπ₯))) β β) |
16 | 15 | peano2nnd 12225 |
. . . . . . 7
β’ ((π β§ π₯ β βͺ dom
π) β
((ββif((πβπ₯) < 1, 1, (πβπ₯))) + 1) β β) |
17 | 2 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π₯ β βͺ dom
π) β π β Prob) |
18 | 3 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π₯ β βͺ dom
π) β π β (rRndVarβπ)) |
19 | 16 | nnred 12223 |
. . . . . . . 8
β’ ((π β§ π₯ β βͺ dom
π) β
((ββif((πβπ₯) < 1, 1, (πβπ₯))) + 1) β β) |
20 | | simpr 485 |
. . . . . . . 8
β’ ((π β§ π₯ β βͺ dom
π) β π₯ β βͺ dom π) |
21 | | breq2 5151 |
. . . . . . . . . 10
β’ (1 =
if((πβπ₯) < 1, 1, (πβπ₯)) β ((πβπ₯) β€ 1 β (πβπ₯) β€ if((πβπ₯) < 1, 1, (πβπ₯)))) |
22 | | breq2 5151 |
. . . . . . . . . 10
β’ ((πβπ₯) = if((πβπ₯) < 1, 1, (πβπ₯)) β ((πβπ₯) β€ (πβπ₯) β (πβπ₯) β€ if((πβπ₯) < 1, 1, (πβπ₯)))) |
23 | 5 | adantr 481 |
. . . . . . . . . . 11
β’ (((π β§ π₯ β βͺ dom
π) β§ (πβπ₯) < 1) β (πβπ₯) β β) |
24 | | 1red 11211 |
. . . . . . . . . . 11
β’ (((π β§ π₯ β βͺ dom
π) β§ (πβπ₯) < 1) β 1 β
β) |
25 | | simpr 485 |
. . . . . . . . . . 11
β’ (((π β§ π₯ β βͺ dom
π) β§ (πβπ₯) < 1) β (πβπ₯) < 1) |
26 | 23, 24, 25 | ltled 11358 |
. . . . . . . . . 10
β’ (((π β§ π₯ β βͺ dom
π) β§ (πβπ₯) < 1) β (πβπ₯) β€ 1) |
27 | 5 | leidd 11776 |
. . . . . . . . . . 11
β’ ((π β§ π₯ β βͺ dom
π) β (πβπ₯) β€ (πβπ₯)) |
28 | 27 | adantr 481 |
. . . . . . . . . 10
β’ (((π β§ π₯ β βͺ dom
π) β§ Β¬ (πβπ₯) < 1) β (πβπ₯) β€ (πβπ₯)) |
29 | 21, 22, 26, 28 | ifbothda 4565 |
. . . . . . . . 9
β’ ((π β§ π₯ β βͺ dom
π) β (πβπ₯) β€ if((πβπ₯) < 1, 1, (πβπ₯))) |
30 | | fllep1 13762 |
. . . . . . . . . 10
β’
(if((πβπ₯) < 1, 1, (πβπ₯)) β β β if((πβπ₯) < 1, 1, (πβπ₯)) β€ ((ββif((πβπ₯) < 1, 1, (πβπ₯))) + 1)) |
31 | 6, 30 | syl 17 |
. . . . . . . . 9
β’ ((π β§ π₯ β βͺ dom
π) β if((πβπ₯) < 1, 1, (πβπ₯)) β€ ((ββif((πβπ₯) < 1, 1, (πβπ₯))) + 1)) |
32 | 5, 6, 19, 29, 31 | letrd 11367 |
. . . . . . . 8
β’ ((π β§ π₯ β βͺ dom
π) β (πβπ₯) β€ ((ββif((πβπ₯) < 1, 1, (πβπ₯))) + 1)) |
33 | 17, 18, 19, 20, 32 | dstfrvel 33460 |
. . . . . . 7
β’ ((π β§ π₯ β βͺ dom
π) β π₯ β (πβRV/π β€
((ββif((πβπ₯) < 1, 1, (πβπ₯))) + 1))) |
34 | | oveq2 7413 |
. . . . . . . . 9
β’ (π = ((ββif((πβπ₯) < 1, 1, (πβπ₯))) + 1) β (πβRV/π β€ π) = (πβRV/π β€
((ββif((πβπ₯) < 1, 1, (πβπ₯))) + 1))) |
35 | 34 | eleq2d 2819 |
. . . . . . . 8
β’ (π = ((ββif((πβπ₯) < 1, 1, (πβπ₯))) + 1) β (π₯ β (πβRV/π β€ π) β π₯ β (πβRV/π β€
((ββif((πβπ₯) < 1, 1, (πβπ₯))) + 1)))) |
36 | 35 | rspcev 3612 |
. . . . . . 7
β’
((((ββif((πβπ₯) < 1, 1, (πβπ₯))) + 1) β β β§ π₯ β (πβRV/π β€
((ββif((πβπ₯) < 1, 1, (πβπ₯))) + 1))) β βπ β β π₯ β (πβRV/π β€ π)) |
37 | 16, 33, 36 | syl2anc 584 |
. . . . . 6
β’ ((π β§ π₯ β βͺ dom
π) β βπ β β π₯ β (πβRV/π β€ π)) |
38 | 37 | ex 413 |
. . . . 5
β’ (π β (π₯ β βͺ dom
π β βπ β β π₯ β (πβRV/π β€ π))) |
39 | 2 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π β β) β π β Prob) |
40 | 3 | adantr 481 |
. . . . . . . 8
β’ ((π β§ π β β) β π β (rRndVarβπ)) |
41 | | simpr 485 |
. . . . . . . . 9
β’ ((π β§ π β β) β π β β) |
42 | 41 | nnred 12223 |
. . . . . . . 8
β’ ((π β§ π β β) β π β β) |
43 | 39, 40, 42 | orvclteel 33459 |
. . . . . . 7
β’ ((π β§ π β β) β (πβRV/π β€ π) β dom π) |
44 | | elunii 4912 |
. . . . . . . 8
β’ ((π₯ β (πβRV/π β€ π) β§ (πβRV/π β€ π) β dom π) β π₯ β βͺ dom
π) |
45 | 44 | expcom 414 |
. . . . . . 7
β’ ((πβRV/π
β€ π) β dom π β (π₯ β (πβRV/π β€ π) β π₯ β βͺ dom
π)) |
46 | 43, 45 | syl 17 |
. . . . . 6
β’ ((π β§ π β β) β (π₯ β (πβRV/π β€ π) β π₯ β βͺ dom
π)) |
47 | 46 | rexlimdva 3155 |
. . . . 5
β’ (π β (βπ β β π₯ β (πβRV/π β€ π) β π₯ β βͺ dom
π)) |
48 | 38, 47 | impbid 211 |
. . . 4
β’ (π β (π₯ β βͺ dom
π β βπ β β π₯ β (πβRV/π β€ π))) |
49 | | eliun 5000 |
. . . 4
β’ (π₯ β βͺ π β β (πβRV/π β€ π) β βπ β β π₯ β (πβRV/π β€ π)) |
50 | 48, 49 | bitr4di 288 |
. . 3
β’ (π β (π₯ β βͺ dom
π β π₯ β βͺ
π β β (πβRV/π
β€ π))) |
51 | 50 | eqrdv 2730 |
. 2
β’ (π β βͺ dom π = βͺ π β β (πβRV/π
β€ π)) |
52 | | ovex 7438 |
. . 3
β’ (πβRV/π
β€ π) β
V |
53 | 52 | dfiun3 5963 |
. 2
β’ βͺ π β β (πβRV/π β€ π) = βͺ
ran (π β β
β¦ (πβRV/π β€ π)) |
54 | 51, 53 | eqtr2di 2789 |
1
β’ (π β βͺ ran (π β β β¦ (πβRV/π β€ π)) = βͺ dom π) |