Step | Hyp | Ref
| Expression |
1 | | elrabi 2892 |
. . . . 5
β’ (π₯ β {π€ β β β£ π€ # π΄} β π₯ β β) |
2 | 1 | a1i 9 |
. . . 4
β’ (π΄ β β β (π₯ β {π€ β β β£ π€ # π΄} β π₯ β β)) |
3 | | elun 3278 |
. . . . 5
β’ (π₯ β ((-β(,)π΄) βͺ (π΄(,)+β)) β (π₯ β (-β(,)π΄) β¨ π₯ β (π΄(,)+β))) |
4 | | rexr 8006 |
. . . . . . . 8
β’ (π΄ β β β π΄ β
β*) |
5 | | elioomnf 9971 |
. . . . . . . 8
β’ (π΄ β β*
β (π₯ β
(-β(,)π΄) β
(π₯ β β β§
π₯ < π΄))) |
6 | 4, 5 | syl 14 |
. . . . . . 7
β’ (π΄ β β β (π₯ β (-β(,)π΄) β (π₯ β β β§ π₯ < π΄))) |
7 | | simpl 109 |
. . . . . . 7
β’ ((π₯ β β β§ π₯ < π΄) β π₯ β β) |
8 | 6, 7 | biimtrdi 163 |
. . . . . 6
β’ (π΄ β β β (π₯ β (-β(,)π΄) β π₯ β β)) |
9 | | elioopnf 9970 |
. . . . . . . 8
β’ (π΄ β β*
β (π₯ β (π΄(,)+β) β (π₯ β β β§ π΄ < π₯))) |
10 | 4, 9 | syl 14 |
. . . . . . 7
β’ (π΄ β β β (π₯ β (π΄(,)+β) β (π₯ β β β§ π΄ < π₯))) |
11 | | simpl 109 |
. . . . . . 7
β’ ((π₯ β β β§ π΄ < π₯) β π₯ β β) |
12 | 10, 11 | biimtrdi 163 |
. . . . . 6
β’ (π΄ β β β (π₯ β (π΄(,)+β) β π₯ β β)) |
13 | 8, 12 | jaod 717 |
. . . . 5
β’ (π΄ β β β ((π₯ β (-β(,)π΄) β¨ π₯ β (π΄(,)+β)) β π₯ β β)) |
14 | 3, 13 | biimtrid 152 |
. . . 4
β’ (π΄ β β β (π₯ β ((-β(,)π΄) βͺ (π΄(,)+β)) β π₯ β β)) |
15 | | reaplt 8548 |
. . . . . . 7
β’ ((π₯ β β β§ π΄ β β) β (π₯ # π΄ β (π₯ < π΄ β¨ π΄ < π₯))) |
16 | 15 | ancoms 268 |
. . . . . 6
β’ ((π΄ β β β§ π₯ β β) β (π₯ # π΄ β (π₯ < π΄ β¨ π΄ < π₯))) |
17 | | breq1 4008 |
. . . . . . . 8
β’ (π€ = π₯ β (π€ # π΄ β π₯ # π΄)) |
18 | 17 | elrab 2895 |
. . . . . . 7
β’ (π₯ β {π€ β β β£ π€ # π΄} β (π₯ β β β§ π₯ # π΄)) |
19 | | ibar 301 |
. . . . . . . 8
β’ (π₯ β β β (π₯ # π΄ β (π₯ β β β§ π₯ # π΄))) |
20 | 19 | adantl 277 |
. . . . . . 7
β’ ((π΄ β β β§ π₯ β β) β (π₯ # π΄ β (π₯ β β β§ π₯ # π΄))) |
21 | 18, 20 | bitr4id 199 |
. . . . . 6
β’ ((π΄ β β β§ π₯ β β) β (π₯ β {π€ β β β£ π€ # π΄} β π₯ # π΄)) |
22 | 6 | baibd 923 |
. . . . . . . 8
β’ ((π΄ β β β§ π₯ β β) β (π₯ β (-β(,)π΄) β π₯ < π΄)) |
23 | 10 | baibd 923 |
. . . . . . . 8
β’ ((π΄ β β β§ π₯ β β) β (π₯ β (π΄(,)+β) β π΄ < π₯)) |
24 | 22, 23 | orbi12d 793 |
. . . . . . 7
β’ ((π΄ β β β§ π₯ β β) β ((π₯ β (-β(,)π΄) β¨ π₯ β (π΄(,)+β)) β (π₯ < π΄ β¨ π΄ < π₯))) |
25 | 3, 24 | bitrid 192 |
. . . . . 6
β’ ((π΄ β β β§ π₯ β β) β (π₯ β ((-β(,)π΄) βͺ (π΄(,)+β)) β (π₯ < π΄ β¨ π΄ < π₯))) |
26 | 16, 21, 25 | 3bitr4d 220 |
. . . . 5
β’ ((π΄ β β β§ π₯ β β) β (π₯ β {π€ β β β£ π€ # π΄} β π₯ β ((-β(,)π΄) βͺ (π΄(,)+β)))) |
27 | 26 | ex 115 |
. . . 4
β’ (π΄ β β β (π₯ β β β (π₯ β {π€ β β β£ π€ # π΄} β π₯ β ((-β(,)π΄) βͺ (π΄(,)+β))))) |
28 | 2, 14, 27 | pm5.21ndd 705 |
. . 3
β’ (π΄ β β β (π₯ β {π€ β β β£ π€ # π΄} β π₯ β ((-β(,)π΄) βͺ (π΄(,)+β)))) |
29 | 28 | eqrdv 2175 |
. 2
β’ (π΄ β β β {π€ β β β£ π€ # π΄} = ((-β(,)π΄) βͺ (π΄(,)+β))) |
30 | | retop 14164 |
. . 3
β’
(topGenβran (,)) β Top |
31 | | mnfxr 8017 |
. . . 4
β’ -β
β β* |
32 | | iooretopg 14168 |
. . . 4
β’
((-β β β* β§ π΄ β β*) β
(-β(,)π΄) β
(topGenβran (,))) |
33 | 31, 4, 32 | sylancr 414 |
. . 3
β’ (π΄ β β β
(-β(,)π΄) β
(topGenβran (,))) |
34 | | pnfxr 8013 |
. . . 4
β’ +β
β β* |
35 | | iooretopg 14168 |
. . . 4
β’ ((π΄ β β*
β§ +β β β*) β (π΄(,)+β) β (topGenβran
(,))) |
36 | 4, 34, 35 | sylancl 413 |
. . 3
β’ (π΄ β β β (π΄(,)+β) β
(topGenβran (,))) |
37 | | unopn 13645 |
. . 3
β’
(((topGenβran (,)) β Top β§ (-β(,)π΄) β (topGenβran (,)) β§ (π΄(,)+β) β
(topGenβran (,))) β ((-β(,)π΄) βͺ (π΄(,)+β)) β (topGenβran
(,))) |
38 | 30, 33, 36, 37 | mp3an2i 1342 |
. 2
β’ (π΄ β β β
((-β(,)π΄) βͺ
(π΄(,)+β)) β
(topGenβran (,))) |
39 | 29, 38 | eqeltrd 2254 |
1
β’ (π΄ β β β {π€ β β β£ π€ # π΄} β (topGenβran
(,))) |