Step | Hyp | Ref
| Expression |
1 | | rexr 11257 |
. . . . . . 7
β’ (π₯ β β β π₯ β
β*) |
2 | | peano2re 11384 |
. . . . . . . 8
β’ (π₯ β β β (π₯ + 1) β
β) |
3 | | rexr 11257 |
. . . . . . . 8
β’ ((π₯ + 1) β β β
(π₯ + 1) β
β*) |
4 | 2, 3 | syl 17 |
. . . . . . 7
β’ (π₯ β β β (π₯ + 1) β
β*) |
5 | | ltp1 12051 |
. . . . . . 7
β’ (π₯ β β β π₯ < (π₯ + 1)) |
6 | | lbico1 13375 |
. . . . . . 7
β’ ((π₯ β β*
β§ (π₯ + 1) β
β* β§ π₯
< (π₯ + 1)) β π₯ β (π₯[,)(π₯ + 1))) |
7 | 1, 4, 5, 6 | syl3anc 1372 |
. . . . . 6
β’ (π₯ β β β π₯ β (π₯[,)(π₯ + 1))) |
8 | | df-ov 7409 |
. . . . . 6
β’ (π₯[,)(π₯ + 1)) = ([,)ββ¨π₯, (π₯ + 1)β©) |
9 | 7, 8 | eleqtrdi 2844 |
. . . . 5
β’ (π₯ β β β π₯ β ([,)ββ¨π₯, (π₯ + 1)β©)) |
10 | | opelxpi 5713 |
. . . . . . 7
β’ ((π₯ β β β§ (π₯ + 1) β β) β
β¨π₯, (π₯ + 1)β© β (β
Γ β)) |
11 | 2, 10 | mpdan 686 |
. . . . . 6
β’ (π₯ β β β
β¨π₯, (π₯ + 1)β© β (β
Γ β)) |
12 | | fvres 6908 |
. . . . . 6
β’
(β¨π₯, (π₯ + 1)β© β (β
Γ β) β (([,) βΎ (β Γ
β))ββ¨π₯,
(π₯ + 1)β©) =
([,)ββ¨π₯, (π₯ + 1)β©)) |
13 | 11, 12 | syl 17 |
. . . . 5
β’ (π₯ β β β (([,)
βΎ (β Γ β))ββ¨π₯, (π₯ + 1)β©) = ([,)ββ¨π₯, (π₯ + 1)β©)) |
14 | 9, 13 | eleqtrrd 2837 |
. . . 4
β’ (π₯ β β β π₯ β (([,) βΎ (β
Γ β))ββ¨π₯, (π₯ + 1)β©)) |
15 | | icoreresf 36222 |
. . . . . . . 8
β’ ([,)
βΎ (β Γ β)):(β Γ β)βΆπ«
β |
16 | 15 | fdmi 6727 |
. . . . . . 7
β’ dom ([,)
βΎ (β Γ β)) = (β Γ β) |
17 | 10, 16 | eleqtrrdi 2845 |
. . . . . 6
β’ ((π₯ β β β§ (π₯ + 1) β β) β
β¨π₯, (π₯ + 1)β© β dom ([,)
βΎ (β Γ β))) |
18 | 2, 17 | mpdan 686 |
. . . . 5
β’ (π₯ β β β
β¨π₯, (π₯ + 1)β© β dom ([,)
βΎ (β Γ β))) |
19 | | ffun 6718 |
. . . . . . . 8
β’ (([,)
βΎ (β Γ β)):(β Γ β)βΆπ«
β β Fun ([,) βΎ (β Γ β))) |
20 | 15, 19 | ax-mp 5 |
. . . . . . 7
β’ Fun ([,)
βΎ (β Γ β)) |
21 | | fvelrn 7076 |
. . . . . . 7
β’ ((Fun
([,) βΎ (β Γ β)) β§ β¨π₯, (π₯ + 1)β© β dom ([,) βΎ (β
Γ β))) β (([,) βΎ (β Γ
β))ββ¨π₯,
(π₯ + 1)β©) β ran
([,) βΎ (β Γ β))) |
22 | 20, 21 | mpan 689 |
. . . . . 6
β’
(β¨π₯, (π₯ + 1)β© β dom ([,)
βΎ (β Γ β)) β (([,) βΎ (β Γ
β))ββ¨π₯,
(π₯ + 1)β©) β ran
([,) βΎ (β Γ β))) |
23 | | icoreunrn.1 |
. . . . . . 7
β’ πΌ = ([,) β (β Γ
β)) |
24 | | df-ima 5689 |
. . . . . . 7
β’ ([,)
β (β Γ β)) = ran ([,) βΎ (β Γ
β)) |
25 | 23, 24 | eqtri 2761 |
. . . . . 6
β’ πΌ = ran ([,) βΎ (β
Γ β)) |
26 | 22, 25 | eleqtrrdi 2845 |
. . . . 5
β’
(β¨π₯, (π₯ + 1)β© β dom ([,)
βΎ (β Γ β)) β (([,) βΎ (β Γ
β))ββ¨π₯,
(π₯ + 1)β©) β πΌ) |
27 | 18, 26 | syl 17 |
. . . 4
β’ (π₯ β β β (([,)
βΎ (β Γ β))ββ¨π₯, (π₯ + 1)β©) β πΌ) |
28 | | elunii 4913 |
. . . 4
β’ ((π₯ β (([,) βΎ (β
Γ β))ββ¨π₯, (π₯ + 1)β©) β§ (([,) βΎ (β
Γ β))ββ¨π₯, (π₯ + 1)β©) β πΌ) β π₯ β βͺ πΌ) |
29 | 14, 27, 28 | syl2anc 585 |
. . 3
β’ (π₯ β β β π₯ β βͺ πΌ) |
30 | 29 | ssriv 3986 |
. 2
β’ β
β βͺ πΌ |
31 | | frn 6722 |
. . . . 5
β’ (([,)
βΎ (β Γ β)):(β Γ β)βΆπ«
β β ran ([,) βΎ (β Γ β)) β π«
β) |
32 | 15, 31 | ax-mp 5 |
. . . 4
β’ ran ([,)
βΎ (β Γ β)) β π« β |
33 | 25, 32 | eqsstri 4016 |
. . 3
β’ πΌ β π«
β |
34 | | uniss 4916 |
. . . 4
β’ (πΌ β π« β
β βͺ πΌ β βͺ
π« β) |
35 | | unipw 5450 |
. . . 4
β’ βͺ π« β = β |
36 | 34, 35 | sseqtrdi 4032 |
. . 3
β’ (πΌ β π« β
β βͺ πΌ β β) |
37 | 33, 36 | ax-mp 5 |
. 2
β’ βͺ πΌ
β β |
38 | 30, 37 | eqssi 3998 |
1
β’ β =
βͺ πΌ |