Step | Hyp | Ref
| Expression |
1 | | eqid 2732 |
. . . 4
β’ ran
(π¦ β
β* β¦ (π¦(,]+β)) = ran (π¦ β β* β¦ (π¦(,]+β)) |
2 | | eqid 2732 |
. . . 4
β’ ran
(π¦ β
β* β¦ (-β[,)π¦)) = ran (π¦ β β* β¦
(-β[,)π¦)) |
3 | | eqid 2732 |
. . . 4
β’ ran (,) =
ran (,) |
4 | 1, 2, 3 | leordtval 22602 |
. . 3
β’
(ordTopβ β€ ) = (topGenβ((ran (π¦ β β* β¦ (π¦(,]+β)) βͺ ran (π¦ β β*
β¦ (-β[,)π¦)))
βͺ ran (,))) |
5 | 4 | eleq2i 2825 |
. 2
β’ (π΄ β (ordTopβ β€ )
β π΄ β
(topGenβ((ran (π¦
β β* β¦ (π¦(,]+β)) βͺ ran (π¦ β β* β¦
(-β[,)π¦))) βͺ ran
(,)))) |
6 | | tg2 22353 |
. . 3
β’ ((π΄ β (topGenβ((ran
(π¦ β
β* β¦ (π¦(,]+β)) βͺ ran (π¦ β β* β¦
(-β[,)π¦))) βͺ ran
(,))) β§ -β β π΄) β βπ’ β ((ran (π¦ β β* β¦ (π¦(,]+β)) βͺ ran (π¦ β β*
β¦ (-β[,)π¦)))
βͺ ran (,))(-β β π’ β§ π’ β π΄)) |
7 | | elun 4114 |
. . . . 5
β’ (π’ β ((ran (π¦ β β*
β¦ (π¦(,]+β))
βͺ ran (π¦ β
β* β¦ (-β[,)π¦))) βͺ ran (,)) β (π’ β (ran (π¦ β β* β¦ (π¦(,]+β)) βͺ ran (π¦ β β*
β¦ (-β[,)π¦)))
β¨ π’ β ran
(,))) |
8 | | elun 4114 |
. . . . . . 7
β’ (π’ β (ran (π¦ β β* β¦ (π¦(,]+β)) βͺ ran (π¦ β β*
β¦ (-β[,)π¦)))
β (π’ β ran (π¦ β β*
β¦ (π¦(,]+β))
β¨ π’ β ran (π¦ β β*
β¦ (-β[,)π¦)))) |
9 | | eqid 2732 |
. . . . . . . . . . 11
β’ (π¦ β β*
β¦ (π¦(,]+β)) =
(π¦ β
β* β¦ (π¦(,]+β)) |
10 | 9 | elrnmpt 5917 |
. . . . . . . . . 10
β’ (π’ β V β (π’ β ran (π¦ β β* β¦ (π¦(,]+β)) β
βπ¦ β
β* π’ =
(π¦(,]+β))) |
11 | 10 | elv 3453 |
. . . . . . . . 9
β’ (π’ β ran (π¦ β β* β¦ (π¦(,]+β)) β
βπ¦ β
β* π’ =
(π¦(,]+β)) |
12 | | nltmnf 13060 |
. . . . . . . . . . . . . 14
β’ (π¦ β β*
β Β¬ π¦ <
-β) |
13 | | pnfxr 11219 |
. . . . . . . . . . . . . . . 16
β’ +β
β β* |
14 | | elioc1 13317 |
. . . . . . . . . . . . . . . 16
β’ ((π¦ β β*
β§ +β β β*) β (-β β (π¦(,]+β) β (-β
β β* β§ π¦ < -β β§ -β β€
+β))) |
15 | 13, 14 | mpan2 690 |
. . . . . . . . . . . . . . 15
β’ (π¦ β β*
β (-β β (π¦(,]+β) β (-β β
β* β§ π¦
< -β β§ -β β€ +β))) |
16 | | simp2 1138 |
. . . . . . . . . . . . . . 15
β’
((-β β β* β§ π¦ < -β β§ -β β€ +β)
β π¦ <
-β) |
17 | 15, 16 | syl6bi 253 |
. . . . . . . . . . . . . 14
β’ (π¦ β β*
β (-β β (π¦(,]+β) β π¦ < -β)) |
18 | 12, 17 | mtod 197 |
. . . . . . . . . . . . 13
β’ (π¦ β β*
β Β¬ -β β (π¦(,]+β)) |
19 | | eleq2 2822 |
. . . . . . . . . . . . . 14
β’ (π’ = (π¦(,]+β) β (-β β π’ β -β β (π¦(,]+β))) |
20 | 19 | notbid 318 |
. . . . . . . . . . . . 13
β’ (π’ = (π¦(,]+β) β (Β¬ -β β
π’ β Β¬ -β
β (π¦(,]+β))) |
21 | 18, 20 | syl5ibrcom 247 |
. . . . . . . . . . . 12
β’ (π¦ β β*
β (π’ = (π¦(,]+β) β Β¬
-β β π’)) |
22 | 21 | rexlimiv 3142 |
. . . . . . . . . . 11
β’
(βπ¦ β
β* π’ =
(π¦(,]+β) β Β¬
-β β π’) |
23 | 22 | pm2.21d 121 |
. . . . . . . . . 10
β’
(βπ¦ β
β* π’ =
(π¦(,]+β) β
(-β β π’ β
βπ₯ β β
(-β[,)π₯) β
π΄)) |
24 | 23 | adantrd 493 |
. . . . . . . . 9
β’
(βπ¦ β
β* π’ =
(π¦(,]+β) β
((-β β π’ β§
π’ β π΄) β βπ₯ β β (-β[,)π₯) β π΄)) |
25 | 11, 24 | sylbi 216 |
. . . . . . . 8
β’ (π’ β ran (π¦ β β* β¦ (π¦(,]+β)) β ((-β
β π’ β§ π’ β π΄) β βπ₯ β β (-β[,)π₯) β π΄)) |
26 | | eqid 2732 |
. . . . . . . . . . 11
β’ (π¦ β β*
β¦ (-β[,)π¦)) =
(π¦ β
β* β¦ (-β[,)π¦)) |
27 | 26 | elrnmpt 5917 |
. . . . . . . . . 10
β’ (π’ β V β (π’ β ran (π¦ β β* β¦
(-β[,)π¦)) β
βπ¦ β
β* π’ =
(-β[,)π¦))) |
28 | 27 | elv 3453 |
. . . . . . . . 9
β’ (π’ β ran (π¦ β β* β¦
(-β[,)π¦)) β
βπ¦ β
β* π’ =
(-β[,)π¦)) |
29 | | mnfxr 11222 |
. . . . . . . . . . . . . 14
β’ -β
β β* |
30 | 29 | a1i 11 |
. . . . . . . . . . . . 13
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β -β β
β*) |
31 | | 0xr 11212 |
. . . . . . . . . . . . . 14
β’ 0 β
β* |
32 | | simprl 770 |
. . . . . . . . . . . . . 14
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β π¦ β β*) |
33 | | ifcl 4537 |
. . . . . . . . . . . . . 14
β’ ((0
β β* β§ π¦ β β*) β if(0 β€
π¦, 0, π¦) β
β*) |
34 | 31, 32, 33 | sylancr 588 |
. . . . . . . . . . . . 13
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β if(0 β€ π¦, 0, π¦) β
β*) |
35 | 13 | a1i 11 |
. . . . . . . . . . . . 13
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β +β β
β*) |
36 | | mnflt0 13056 |
. . . . . . . . . . . . . 14
β’ -β
< 0 |
37 | | simpll 766 |
. . . . . . . . . . . . . . . . 17
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β -β β π’) |
38 | | simprr 772 |
. . . . . . . . . . . . . . . . 17
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β π’ = (-β[,)π¦)) |
39 | 37, 38 | eleqtrd 2835 |
. . . . . . . . . . . . . . . 16
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β -β β
(-β[,)π¦)) |
40 | | elico1 13318 |
. . . . . . . . . . . . . . . . 17
β’
((-β β β* β§ π¦ β β*) β (-β
β (-β[,)π¦)
β (-β β β* β§ -β β€ -β β§
-β < π¦))) |
41 | 29, 32, 40 | sylancr 588 |
. . . . . . . . . . . . . . . 16
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β (-β β
(-β[,)π¦) β
(-β β β* β§ -β β€ -β β§
-β < π¦))) |
42 | 39, 41 | mpbid 231 |
. . . . . . . . . . . . . . 15
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β (-β β
β* β§ -β β€ -β β§ -β < π¦)) |
43 | 42 | simp3d 1145 |
. . . . . . . . . . . . . 14
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β -β < π¦) |
44 | | breq2 5115 |
. . . . . . . . . . . . . . 15
β’ (0 = if(0
β€ π¦, 0, π¦) β (-β < 0 β
-β < if(0 β€ π¦,
0, π¦))) |
45 | | breq2 5115 |
. . . . . . . . . . . . . . 15
β’ (π¦ = if(0 β€ π¦, 0, π¦) β (-β < π¦ β -β < if(0 β€ π¦, 0, π¦))) |
46 | 44, 45 | ifboth 4531 |
. . . . . . . . . . . . . 14
β’
((-β < 0 β§ -β < π¦) β -β < if(0 β€ π¦, 0, π¦)) |
47 | 36, 43, 46 | sylancr 588 |
. . . . . . . . . . . . 13
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β -β < if(0
β€ π¦, 0, π¦)) |
48 | 31 | a1i 11 |
. . . . . . . . . . . . . 14
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β 0 β
β*) |
49 | | xrmin1 13107 |
. . . . . . . . . . . . . . 15
β’ ((0
β β* β§ π¦ β β*) β if(0 β€
π¦, 0, π¦) β€ 0) |
50 | 31, 32, 49 | sylancr 588 |
. . . . . . . . . . . . . 14
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β if(0 β€ π¦, 0, π¦) β€ 0) |
51 | | 0re 11167 |
. . . . . . . . . . . . . . 15
β’ 0 β
β |
52 | | ltpnf 13051 |
. . . . . . . . . . . . . . 15
β’ (0 β
β β 0 < +β) |
53 | 51, 52 | mp1i 13 |
. . . . . . . . . . . . . 14
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β 0 <
+β) |
54 | 34, 48, 35, 50, 53 | xrlelttrd 13090 |
. . . . . . . . . . . . 13
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β if(0 β€ π¦, 0, π¦) < +β) |
55 | | xrre2 13100 |
. . . . . . . . . . . . 13
β’
(((-β β β* β§ if(0 β€ π¦, 0, π¦) β β* β§ +β
β β*) β§ (-β < if(0 β€ π¦, 0, π¦) β§ if(0 β€ π¦, 0, π¦) < +β)) β if(0 β€ π¦, 0, π¦) β β) |
56 | 30, 34, 35, 47, 54, 55 | syl32anc 1379 |
. . . . . . . . . . . 12
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β if(0 β€ π¦, 0, π¦) β β) |
57 | | xrmin2 13108 |
. . . . . . . . . . . . . . 15
β’ ((0
β β* β§ π¦ β β*) β if(0 β€
π¦, 0, π¦) β€ π¦) |
58 | 31, 32, 57 | sylancr 588 |
. . . . . . . . . . . . . 14
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β if(0 β€ π¦, 0, π¦) β€ π¦) |
59 | | df-ico 13281 |
. . . . . . . . . . . . . . 15
β’ [,) =
(π β
β*, π
β β* β¦ {π β β* β£ (π β€ π β§ π < π)}) |
60 | | xrltletr 13087 |
. . . . . . . . . . . . . . 15
β’ ((π₯ β β*
β§ if(0 β€ π¦, 0, π¦) β β*
β§ π¦ β
β*) β ((π₯ < if(0 β€ π¦, 0, π¦) β§ if(0 β€ π¦, 0, π¦) β€ π¦) β π₯ < π¦)) |
61 | 59, 59, 60 | ixxss2 13294 |
. . . . . . . . . . . . . 14
β’ ((π¦ β β*
β§ if(0 β€ π¦, 0, π¦) β€ π¦) β (-β[,)if(0 β€ π¦, 0, π¦)) β (-β[,)π¦)) |
62 | 32, 58, 61 | syl2anc 585 |
. . . . . . . . . . . . 13
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β (-β[,)if(0 β€
π¦, 0, π¦)) β (-β[,)π¦)) |
63 | | simplr 768 |
. . . . . . . . . . . . . 14
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β π’ β π΄) |
64 | 38, 63 | eqsstrrd 3987 |
. . . . . . . . . . . . 13
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β (-β[,)π¦) β π΄) |
65 | 62, 64 | sstrd 3958 |
. . . . . . . . . . . 12
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β (-β[,)if(0 β€
π¦, 0, π¦)) β π΄) |
66 | | oveq2 7371 |
. . . . . . . . . . . . . 14
β’ (π₯ = if(0 β€ π¦, 0, π¦) β (-β[,)π₯) = (-β[,)if(0 β€ π¦, 0, π¦))) |
67 | 66 | sseq1d 3979 |
. . . . . . . . . . . . 13
β’ (π₯ = if(0 β€ π¦, 0, π¦) β ((-β[,)π₯) β π΄ β (-β[,)if(0 β€ π¦, 0, π¦)) β π΄)) |
68 | 67 | rspcev 3583 |
. . . . . . . . . . . 12
β’ ((if(0
β€ π¦, 0, π¦) β β β§
(-β[,)if(0 β€ π¦, 0,
π¦)) β π΄) β βπ₯ β β
(-β[,)π₯) β
π΄) |
69 | 56, 65, 68 | syl2anc 585 |
. . . . . . . . . . 11
β’
(((-β β π’
β§ π’ β π΄) β§ (π¦ β β* β§ π’ = (-β[,)π¦))) β βπ₯ β β
(-β[,)π₯) β
π΄) |
70 | 69 | rexlimdvaa 3150 |
. . . . . . . . . 10
β’
((-β β π’
β§ π’ β π΄) β (βπ¦ β β*
π’ = (-β[,)π¦) β βπ₯ β β
(-β[,)π₯) β
π΄)) |
71 | 70 | com12 32 |
. . . . . . . . 9
β’
(βπ¦ β
β* π’ =
(-β[,)π¦) β
((-β β π’ β§
π’ β π΄) β βπ₯ β β (-β[,)π₯) β π΄)) |
72 | 28, 71 | sylbi 216 |
. . . . . . . 8
β’ (π’ β ran (π¦ β β* β¦
(-β[,)π¦)) β
((-β β π’ β§
π’ β π΄) β βπ₯ β β (-β[,)π₯) β π΄)) |
73 | 25, 72 | jaoi 856 |
. . . . . . 7
β’ ((π’ β ran (π¦ β β* β¦ (π¦(,]+β)) β¨ π’ β ran (π¦ β β* β¦
(-β[,)π¦))) β
((-β β π’ β§
π’ β π΄) β βπ₯ β β (-β[,)π₯) β π΄)) |
74 | 8, 73 | sylbi 216 |
. . . . . 6
β’ (π’ β (ran (π¦ β β* β¦ (π¦(,]+β)) βͺ ran (π¦ β β*
β¦ (-β[,)π¦)))
β ((-β β π’
β§ π’ β π΄) β βπ₯ β β
(-β[,)π₯) β
π΄)) |
75 | | mnfnre 11208 |
. . . . . . . . . 10
β’ -β
β β |
76 | 75 | neli 3048 |
. . . . . . . . 9
β’ Β¬
-β β β |
77 | | elssuni 4904 |
. . . . . . . . . . 11
β’ (π’ β ran (,) β π’ β βͺ ran (,)) |
78 | | unirnioo 13377 |
. . . . . . . . . . 11
β’ β =
βͺ ran (,) |
79 | 77, 78 | sseqtrrdi 3999 |
. . . . . . . . . 10
β’ (π’ β ran (,) β π’ β
β) |
80 | 79 | sseld 3947 |
. . . . . . . . 9
β’ (π’ β ran (,) β (-β
β π’ β -β
β β)) |
81 | 76, 80 | mtoi 198 |
. . . . . . . 8
β’ (π’ β ran (,) β Β¬
-β β π’) |
82 | 81 | pm2.21d 121 |
. . . . . . 7
β’ (π’ β ran (,) β (-β
β π’ β
βπ₯ β β
(-β[,)π₯) β
π΄)) |
83 | 82 | adantrd 493 |
. . . . . 6
β’ (π’ β ran (,) β
((-β β π’ β§
π’ β π΄) β βπ₯ β β (-β[,)π₯) β π΄)) |
84 | 74, 83 | jaoi 856 |
. . . . 5
β’ ((π’ β (ran (π¦ β β* β¦ (π¦(,]+β)) βͺ ran (π¦ β β*
β¦ (-β[,)π¦)))
β¨ π’ β ran (,))
β ((-β β π’
β§ π’ β π΄) β βπ₯ β β
(-β[,)π₯) β
π΄)) |
85 | 7, 84 | sylbi 216 |
. . . 4
β’ (π’ β ((ran (π¦ β β*
β¦ (π¦(,]+β))
βͺ ran (π¦ β
β* β¦ (-β[,)π¦))) βͺ ran (,)) β ((-β β
π’ β§ π’ β π΄) β βπ₯ β β (-β[,)π₯) β π΄)) |
86 | 85 | rexlimiv 3142 |
. . 3
β’
(βπ’ β
((ran (π¦ β
β* β¦ (π¦(,]+β)) βͺ ran (π¦ β β* β¦
(-β[,)π¦))) βͺ ran
(,))(-β β π’
β§ π’ β π΄) β βπ₯ β β
(-β[,)π₯) β
π΄) |
87 | 6, 86 | syl 17 |
. 2
β’ ((π΄ β (topGenβ((ran
(π¦ β
β* β¦ (π¦(,]+β)) βͺ ran (π¦ β β* β¦
(-β[,)π¦))) βͺ ran
(,))) β§ -β β π΄) β βπ₯ β β (-β[,)π₯) β π΄) |
88 | 5, 87 | sylanb 582 |
1
β’ ((π΄ β (ordTopβ β€ )
β§ -β β π΄)
β βπ₯ β
β (-β[,)π₯)
β π΄) |