Step | Hyp | Ref
| Expression |
1 | | eqid 2733 |
. . . . . . . . 9
β’ ran
(π₯ β
β* β¦ (π₯(,]+β)) = ran (π₯ β β* β¦ (π₯(,]+β)) |
2 | | eqid 2733 |
. . . . . . . . 9
β’ ran
(π₯ β
β* β¦ (-β[,)π₯)) = ran (π₯ β β* β¦
(-β[,)π₯)) |
3 | | eqid 2733 |
. . . . . . . . 9
β’ ran (,) =
ran (,) |
4 | 1, 2, 3 | leordtval 22709 |
. . . . . . . 8
β’
(ordTopβ β€ ) = (topGenβ((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,))) |
5 | | letop 22702 |
. . . . . . . 8
β’
(ordTopβ β€ ) β Top |
6 | 4, 5 | eqeltrri 2831 |
. . . . . . 7
β’
(topGenβ((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,))) β Top |
7 | | tgclb 22465 |
. . . . . . 7
β’ (((ran
(π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,)) β TopBases β (topGenβ((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,))) β Top) |
8 | 6, 7 | mpbir 230 |
. . . . . 6
β’ ((ran
(π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,)) β TopBases |
9 | | bastg 22461 |
. . . . . 6
β’ (((ran
(π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,)) β TopBases β ((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,)) β (topGenβ((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,)))) |
10 | 8, 9 | ax-mp 5 |
. . . . 5
β’ ((ran
(π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,)) β (topGenβ((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,))) |
11 | 10, 4 | sseqtrri 4019 |
. . . 4
β’ ((ran
(π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,)) β (ordTopβ β€ ) |
12 | | ssun1 4172 |
. . . . 5
β’ (ran
(π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) β
((ran (π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,)) |
13 | | ssun1 4172 |
. . . . . 6
β’ ran
(π₯ β
β* β¦ (π₯(,]+β)) β (ran (π₯ β β*
β¦ (π₯(,]+β))
βͺ ran (π₯ β
β* β¦ (-β[,)π₯))) |
14 | | eqid 2733 |
. . . . . . . 8
β’ (π΄(,]+β) = (π΄(,]+β) |
15 | | oveq1 7413 |
. . . . . . . . 9
β’ (π₯ = π΄ β (π₯(,]+β) = (π΄(,]+β)) |
16 | 15 | rspceeqv 3633 |
. . . . . . . 8
β’ ((π΄ β β*
β§ (π΄(,]+β) =
(π΄(,]+β)) β
βπ₯ β
β* (π΄(,]+β) = (π₯(,]+β)) |
17 | 14, 16 | mpan2 690 |
. . . . . . 7
β’ (π΄ β β*
β βπ₯ β
β* (π΄(,]+β) = (π₯(,]+β)) |
18 | | eqid 2733 |
. . . . . . . 8
β’ (π₯ β β*
β¦ (π₯(,]+β)) =
(π₯ β
β* β¦ (π₯(,]+β)) |
19 | | ovex 7439 |
. . . . . . . 8
β’ (π₯(,]+β) β
V |
20 | 18, 19 | elrnmpti 5958 |
. . . . . . 7
β’ ((π΄(,]+β) β ran (π₯ β β*
β¦ (π₯(,]+β))
β βπ₯ β
β* (π΄(,]+β) = (π₯(,]+β)) |
21 | 17, 20 | sylibr 233 |
. . . . . 6
β’ (π΄ β β*
β (π΄(,]+β)
β ran (π₯ β
β* β¦ (π₯(,]+β))) |
22 | 13, 21 | sselid 3980 |
. . . . 5
β’ (π΄ β β*
β (π΄(,]+β)
β (ran (π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯)))) |
23 | 12, 22 | sselid 3980 |
. . . 4
β’ (π΄ β β*
β (π΄(,]+β)
β ((ran (π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,))) |
24 | 11, 23 | sselid 3980 |
. . 3
β’ (π΄ β β*
β (π΄(,]+β)
β (ordTopβ β€ )) |
25 | 24 | adantr 482 |
. 2
β’ ((π΄ β β*
β§ +β β β*) β (π΄(,]+β) β (ordTopβ β€
)) |
26 | | df-ioc 13326 |
. . . . . 6
β’ (,] =
(π₯ β
β*, π¦
β β* β¦ {π§ β β* β£ (π₯ < π§ β§ π§ β€ π¦)}) |
27 | 26 | ixxf 13331 |
. . . . 5
β’
(,]:(β* Γ β*)βΆπ«
β* |
28 | 27 | fdmi 6727 |
. . . 4
β’ dom (,] =
(β* Γ β*) |
29 | 28 | ndmov 7588 |
. . 3
β’ (Β¬
(π΄ β
β* β§ +β β β*) β (π΄(,]+β) =
β
) |
30 | | 0opn 22398 |
. . . 4
β’
((ordTopβ β€ ) β Top β β
β (ordTopβ
β€ )) |
31 | 5, 30 | ax-mp 5 |
. . 3
β’ β
β (ordTopβ β€ ) |
32 | 29, 31 | eqeltrdi 2842 |
. 2
β’ (Β¬
(π΄ β
β* β§ +β β β*) β (π΄(,]+β) β
(ordTopβ β€ )) |
33 | 25, 32 | pm2.61i 182 |
1
β’ (π΄(,]+β) β
(ordTopβ β€ ) |