Step | Hyp | Ref
| Expression |
1 | | letop 22702 |
. . . . . . . 8
β’
(ordTopβ β€ ) β Top |
2 | | ioof 13421 |
. . . . . . . . . . 11
β’
(,):(β* Γ β*)βΆπ«
β |
3 | | ffn 6715 |
. . . . . . . . . . 11
β’
((,):(β* Γ β*)βΆπ«
β β (,) Fn (β* Γ
β*)) |
4 | 2, 3 | ax-mp 5 |
. . . . . . . . . 10
β’ (,) Fn
(β* Γ β*) |
5 | | iooordt 22713 |
. . . . . . . . . . 11
β’ (π₯(,)π¦) β (ordTopβ β€
) |
6 | 5 | rgen2w 3067 |
. . . . . . . . . 10
β’
βπ₯ β
β* βπ¦ β β* (π₯(,)π¦) β (ordTopβ β€
) |
7 | | ffnov 7532 |
. . . . . . . . . 10
β’
((,):(β* Γ
β*)βΆ(ordTopβ β€ ) β ((,) Fn
(β* Γ β*) β§ βπ₯ β β*
βπ¦ β
β* (π₯(,)π¦) β (ordTopβ β€
))) |
8 | 4, 6, 7 | mpbir2an 710 |
. . . . . . . . 9
β’
(,):(β* Γ
β*)βΆ(ordTopβ β€ ) |
9 | | frn 6722 |
. . . . . . . . 9
β’
((,):(β* Γ
β*)βΆ(ordTopβ β€ ) β ran (,) β
(ordTopβ β€ )) |
10 | 8, 9 | ax-mp 5 |
. . . . . . . 8
β’ ran (,)
β (ordTopβ β€ ) |
11 | | tgss 22463 |
. . . . . . . 8
β’
(((ordTopβ β€ ) β Top β§ ran (,) β (ordTopβ
β€ )) β (topGenβran (,)) β (topGenβ(ordTopβ β€
))) |
12 | 1, 10, 11 | mp2an 691 |
. . . . . . 7
β’
(topGenβran (,)) β (topGenβ(ordTopβ β€
)) |
13 | | tgtop 22468 |
. . . . . . . 8
β’
((ordTopβ β€ ) β Top β (topGenβ(ordTopβ
β€ )) = (ordTopβ β€ )) |
14 | 1, 13 | ax-mp 5 |
. . . . . . 7
β’
(topGenβ(ordTopβ β€ )) = (ordTopβ β€
) |
15 | 12, 14 | sseqtri 4018 |
. . . . . 6
β’
(topGenβran (,)) β (ordTopβ β€ ) |
16 | 15 | sseli 3978 |
. . . . 5
β’ (π₯ β (topGenβran (,))
β π₯ β
(ordTopβ β€ )) |
17 | | retopon 24272 |
. . . . . 6
β’
(topGenβran (,)) β (TopOnββ) |
18 | | toponss 22421 |
. . . . . 6
β’
(((topGenβran (,)) β (TopOnββ) β§ π₯ β (topGenβran (,)))
β π₯ β
β) |
19 | 17, 18 | mpan 689 |
. . . . 5
β’ (π₯ β (topGenβran (,))
β π₯ β
β) |
20 | | reordt 22714 |
. . . . . 6
β’ β
β (ordTopβ β€ ) |
21 | | restopn2 22673 |
. . . . . 6
β’
(((ordTopβ β€ ) β Top β§ β β (ordTopβ
β€ )) β (π₯ β
((ordTopβ β€ ) βΎt β) β (π₯ β (ordTopβ β€ ) β§ π₯ β
β))) |
22 | 1, 20, 21 | mp2an 691 |
. . . . 5
β’ (π₯ β ((ordTopβ β€ )
βΎt β) β (π₯ β (ordTopβ β€ ) β§ π₯ β
β)) |
23 | 16, 19, 22 | sylanbrc 584 |
. . . 4
β’ (π₯ β (topGenβran (,))
β π₯ β
((ordTopβ β€ ) βΎt β)) |
24 | 23 | ssriv 3986 |
. . 3
β’
(topGenβran (,)) β ((ordTopβ β€ )
βΎt β) |
25 | | eqid 2733 |
. . . . . . 7
β’ ran
(π₯ β
β* β¦ (π₯(,]+β)) = ran (π₯ β β* β¦ (π₯(,]+β)) |
26 | | eqid 2733 |
. . . . . . 7
β’ ran
(π₯ β
β* β¦ (-β[,)π₯)) = ran (π₯ β β* β¦
(-β[,)π₯)) |
27 | | eqid 2733 |
. . . . . . 7
β’ ran (,) =
ran (,) |
28 | 25, 26, 27 | leordtval 22709 |
. . . . . 6
β’
(ordTopβ β€ ) = (topGenβ((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,))) |
29 | 28 | oveq1i 7416 |
. . . . 5
β’
((ordTopβ β€ ) βΎt β) =
((topGenβ((ran (π₯
β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,))) βΎt β) |
30 | 28, 1 | eqeltrri 2831 |
. . . . . . 7
β’
(topGenβ((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,))) β Top |
31 | | tgclb 22465 |
. . . . . . 7
β’ (((ran
(π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,)) β TopBases β (topGenβ((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,))) β Top) |
32 | 30, 31 | mpbir 230 |
. . . . . 6
β’ ((ran
(π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,)) β TopBases |
33 | | reex 11198 |
. . . . . 6
β’ β
β V |
34 | | tgrest 22655 |
. . . . . 6
β’ ((((ran
(π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,)) β TopBases β§ β β V) β (topGenβ(((ran (π₯ β β*
β¦ (π₯(,]+β))
βͺ ran (π₯ β
β* β¦ (-β[,)π₯))) βͺ ran (,)) βΎt
β)) = ((topGenβ((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,))) βΎt β)) |
35 | 32, 33, 34 | mp2an 691 |
. . . . 5
β’
(topGenβ(((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,)) βΎt β)) = ((topGenβ((ran (π₯ β β*
β¦ (π₯(,]+β))
βͺ ran (π₯ β
β* β¦ (-β[,)π₯))) βͺ ran (,))) βΎt
β) |
36 | 29, 35 | eqtr4i 2764 |
. . . 4
β’
((ordTopβ β€ ) βΎt β) =
(topGenβ(((ran (π₯
β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,)) βΎt β)) |
37 | | retopbas 24269 |
. . . . 5
β’ ran (,)
β TopBases |
38 | | elrest 17370 |
. . . . . . . 8
β’ ((((ran
(π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,)) β TopBases β§ β β V) β (π’ β (((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,)) βΎt β) β βπ£ β ((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,))π’ = (π£ β©
β))) |
39 | 32, 33, 38 | mp2an 691 |
. . . . . . 7
β’ (π’ β (((ran (π₯ β β*
β¦ (π₯(,]+β))
βͺ ran (π₯ β
β* β¦ (-β[,)π₯))) βͺ ran (,)) βΎt
β) β βπ£
β ((ran (π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,))π’ = (π£ β© β)) |
40 | | elun 4148 |
. . . . . . . . . 10
β’ (π£ β ((ran (π₯ β β*
β¦ (π₯(,]+β))
βͺ ran (π₯ β
β* β¦ (-β[,)π₯))) βͺ ran (,)) β (π£ β (ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
β¨ π£ β ran
(,))) |
41 | | elun 4148 |
. . . . . . . . . . . 12
β’ (π£ β (ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
β (π£ β ran (π₯ β β*
β¦ (π₯(,]+β))
β¨ π£ β ran (π₯ β β*
β¦ (-β[,)π₯)))) |
42 | | eqid 2733 |
. . . . . . . . . . . . . . . 16
β’ (π₯ β β*
β¦ (π₯(,]+β)) =
(π₯ β
β* β¦ (π₯(,]+β)) |
43 | 42 | elrnmpt 5954 |
. . . . . . . . . . . . . . 15
β’ (π£ β V β (π£ β ran (π₯ β β* β¦ (π₯(,]+β)) β
βπ₯ β
β* π£ =
(π₯(,]+β))) |
44 | 43 | elv 3481 |
. . . . . . . . . . . . . 14
β’ (π£ β ran (π₯ β β* β¦ (π₯(,]+β)) β
βπ₯ β
β* π£ =
(π₯(,]+β)) |
45 | | simpl 484 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π₯ β β*
β§ π¦ β β)
β π₯ β
β*) |
46 | | pnfxr 11265 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ +β
β β* |
47 | 46 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π₯ β β*
β§ π¦ β β)
β +β β β*) |
48 | | rexr 11257 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π¦ β β β π¦ β
β*) |
49 | 48 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π₯ β β*
β§ π¦ β β)
β π¦ β
β*) |
50 | | df-ioc 13326 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (,] =
(π β
β*, π
β β* β¦ {π β β* β£ (π < π β§ π β€ π)}) |
51 | 50 | elixx3g 13334 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π¦ β (π₯(,]+β) β ((π₯ β β* β§ +β
β β* β§ π¦ β β*) β§ (π₯ < π¦ β§ π¦ β€ +β))) |
52 | 51 | baib 537 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π₯ β β*
β§ +β β β* β§ π¦ β β*) β (π¦ β (π₯(,]+β) β (π₯ < π¦ β§ π¦ β€ +β))) |
53 | 45, 47, 49, 52 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π₯ β β*
β§ π¦ β β)
β (π¦ β (π₯(,]+β) β (π₯ < π¦ β§ π¦ β€ +β))) |
54 | | pnfge 13107 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π¦ β β*
β π¦ β€
+β) |
55 | 49, 54 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π₯ β β*
β§ π¦ β β)
β π¦ β€
+β) |
56 | 55 | biantrud 533 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π₯ β β*
β§ π¦ β β)
β (π₯ < π¦ β (π₯ < π¦ β§ π¦ β€ +β))) |
57 | | ltpnf 13097 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π¦ β β β π¦ < +β) |
58 | 57 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π₯ β β*
β§ π¦ β β)
β π¦ <
+β) |
59 | 58 | biantrud 533 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π₯ β β*
β§ π¦ β β)
β (π₯ < π¦ β (π₯ < π¦ β§ π¦ < +β))) |
60 | 53, 56, 59 | 3bitr2d 307 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π₯ β β*
β§ π¦ β β)
β (π¦ β (π₯(,]+β) β (π₯ < π¦ β§ π¦ < +β))) |
61 | 60 | pm5.32da 580 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π₯ β β*
β ((π¦ β β
β§ π¦ β (π₯(,]+β)) β (π¦ β β β§ (π₯ < π¦ β§ π¦ < +β)))) |
62 | | elin 3964 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π¦ β ((π₯(,]+β) β© β) β (π¦ β (π₯(,]+β) β§ π¦ β β)) |
63 | 62 | biancomi 464 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π¦ β ((π₯(,]+β) β© β) β (π¦ β β β§ π¦ β (π₯(,]+β))) |
64 | | 3anass 1096 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π¦ β β β§ π₯ < π¦ β§ π¦ < +β) β (π¦ β β β§ (π₯ < π¦ β§ π¦ < +β))) |
65 | 61, 63, 64 | 3bitr4g 314 |
. . . . . . . . . . . . . . . . . . 19
β’ (π₯ β β*
β (π¦ β ((π₯(,]+β) β© β)
β (π¦ β β
β§ π₯ < π¦ β§ π¦ < +β))) |
66 | | elioo2 13362 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π₯ β β*
β§ +β β β*) β (π¦ β (π₯(,)+β) β (π¦ β β β§ π₯ < π¦ β§ π¦ < +β))) |
67 | 46, 66 | mpan2 690 |
. . . . . . . . . . . . . . . . . . 19
β’ (π₯ β β*
β (π¦ β (π₯(,)+β) β (π¦ β β β§ π₯ < π¦ β§ π¦ < +β))) |
68 | 65, 67 | bitr4d 282 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ β β*
β (π¦ β ((π₯(,]+β) β© β)
β π¦ β (π₯(,)+β))) |
69 | 68 | eqrdv 2731 |
. . . . . . . . . . . . . . . . 17
β’ (π₯ β β*
β ((π₯(,]+β)
β© β) = (π₯(,)+β)) |
70 | | ioorebas 13425 |
. . . . . . . . . . . . . . . . 17
β’ (π₯(,)+β) β ran
(,) |
71 | 69, 70 | eqeltrdi 2842 |
. . . . . . . . . . . . . . . 16
β’ (π₯ β β*
β ((π₯(,]+β)
β© β) β ran (,)) |
72 | | ineq1 4205 |
. . . . . . . . . . . . . . . . 17
β’ (π£ = (π₯(,]+β) β (π£ β© β) = ((π₯(,]+β) β© β)) |
73 | 72 | eleq1d 2819 |
. . . . . . . . . . . . . . . 16
β’ (π£ = (π₯(,]+β) β ((π£ β© β) β ran (,) β ((π₯(,]+β) β© β)
β ran (,))) |
74 | 71, 73 | syl5ibrcom 246 |
. . . . . . . . . . . . . . 15
β’ (π₯ β β*
β (π£ = (π₯(,]+β) β (π£ β© β) β ran
(,))) |
75 | 74 | rexlimiv 3149 |
. . . . . . . . . . . . . 14
β’
(βπ₯ β
β* π£ =
(π₯(,]+β) β
(π£ β© β) β
ran (,)) |
76 | 44, 75 | sylbi 216 |
. . . . . . . . . . . . 13
β’ (π£ β ran (π₯ β β* β¦ (π₯(,]+β)) β (π£ β© β) β ran
(,)) |
77 | | eqid 2733 |
. . . . . . . . . . . . . . . 16
β’ (π₯ β β*
β¦ (-β[,)π₯)) =
(π₯ β
β* β¦ (-β[,)π₯)) |
78 | 77 | elrnmpt 5954 |
. . . . . . . . . . . . . . 15
β’ (π£ β V β (π£ β ran (π₯ β β* β¦
(-β[,)π₯)) β
βπ₯ β
β* π£ =
(-β[,)π₯))) |
79 | 78 | elv 3481 |
. . . . . . . . . . . . . 14
β’ (π£ β ran (π₯ β β* β¦
(-β[,)π₯)) β
βπ₯ β
β* π£ =
(-β[,)π₯)) |
80 | | mnfxr 11268 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ -β
β β* |
81 | 80 | a1i 11 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π₯ β β*
β§ π¦ β β)
β -β β β*) |
82 | | df-ico 13327 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ [,) =
(π β
β*, π
β β* β¦ {π β β* β£ (π β€ π β§ π < π)}) |
83 | 82 | elixx3g 13334 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π¦ β (-β[,)π₯) β ((-β β
β* β§ π₯
β β* β§ π¦ β β*) β§ (-β
β€ π¦ β§ π¦ < π₯))) |
84 | 83 | baib 537 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
((-β β β* β§ π₯ β β* β§ π¦ β β*)
β (π¦ β
(-β[,)π₯) β
(-β β€ π¦ β§
π¦ < π₯))) |
85 | 81, 45, 49, 84 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π₯ β β*
β§ π¦ β β)
β (π¦ β
(-β[,)π₯) β
(-β β€ π¦ β§
π¦ < π₯))) |
86 | | mnfle 13111 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π¦ β β*
β -β β€ π¦) |
87 | 49, 86 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π₯ β β*
β§ π¦ β β)
β -β β€ π¦) |
88 | 87 | biantrurd 534 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π₯ β β*
β§ π¦ β β)
β (π¦ < π₯ β (-β β€ π¦ β§ π¦ < π₯))) |
89 | | mnflt 13100 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ (π¦ β β β -β
< π¦) |
90 | 89 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((π₯ β β*
β§ π¦ β β)
β -β < π¦) |
91 | 90 | biantrurd 534 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((π₯ β β*
β§ π¦ β β)
β (π¦ < π₯ β (-β < π¦ β§ π¦ < π₯))) |
92 | 85, 88, 91 | 3bitr2d 307 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π₯ β β*
β§ π¦ β β)
β (π¦ β
(-β[,)π₯) β
(-β < π¦ β§
π¦ < π₯))) |
93 | 92 | pm5.32da 580 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π₯ β β*
β ((π¦ β β
β§ π¦ β
(-β[,)π₯)) β
(π¦ β β β§
(-β < π¦ β§
π¦ < π₯)))) |
94 | | elin 3964 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π¦ β ((-β[,)π₯) β© β) β (π¦ β (-β[,)π₯) β§ π¦ β β)) |
95 | 94 | biancomi 464 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π¦ β ((-β[,)π₯) β© β) β (π¦ β β β§ π¦ β (-β[,)π₯))) |
96 | | 3anass 1096 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π¦ β β β§ -β
< π¦ β§ π¦ < π₯) β (π¦ β β β§ (-β < π¦ β§ π¦ < π₯))) |
97 | 93, 95, 96 | 3bitr4g 314 |
. . . . . . . . . . . . . . . . . . 19
β’ (π₯ β β*
β (π¦ β
((-β[,)π₯) β©
β) β (π¦ β
β β§ -β < π¦ β§ π¦ < π₯))) |
98 | | elioo2 13362 |
. . . . . . . . . . . . . . . . . . . 20
β’
((-β β β* β§ π₯ β β*) β (π¦ β (-β(,)π₯) β (π¦ β β β§ -β < π¦ β§ π¦ < π₯))) |
99 | 80, 98 | mpan 689 |
. . . . . . . . . . . . . . . . . . 19
β’ (π₯ β β*
β (π¦ β
(-β(,)π₯) β
(π¦ β β β§
-β < π¦ β§ π¦ < π₯))) |
100 | 97, 99 | bitr4d 282 |
. . . . . . . . . . . . . . . . . 18
β’ (π₯ β β*
β (π¦ β
((-β[,)π₯) β©
β) β π¦ β
(-β(,)π₯))) |
101 | 100 | eqrdv 2731 |
. . . . . . . . . . . . . . . . 17
β’ (π₯ β β*
β ((-β[,)π₯)
β© β) = (-β(,)π₯)) |
102 | | ioorebas 13425 |
. . . . . . . . . . . . . . . . 17
β’
(-β(,)π₯)
β ran (,) |
103 | 101, 102 | eqeltrdi 2842 |
. . . . . . . . . . . . . . . 16
β’ (π₯ β β*
β ((-β[,)π₯)
β© β) β ran (,)) |
104 | | ineq1 4205 |
. . . . . . . . . . . . . . . . 17
β’ (π£ = (-β[,)π₯) β (π£ β© β) = ((-β[,)π₯) β©
β)) |
105 | 104 | eleq1d 2819 |
. . . . . . . . . . . . . . . 16
β’ (π£ = (-β[,)π₯) β ((π£ β© β) β ran (,) β
((-β[,)π₯) β©
β) β ran (,))) |
106 | 103, 105 | syl5ibrcom 246 |
. . . . . . . . . . . . . . 15
β’ (π₯ β β*
β (π£ =
(-β[,)π₯) β
(π£ β© β) β
ran (,))) |
107 | 106 | rexlimiv 3149 |
. . . . . . . . . . . . . 14
β’
(βπ₯ β
β* π£ =
(-β[,)π₯) β
(π£ β© β) β
ran (,)) |
108 | 79, 107 | sylbi 216 |
. . . . . . . . . . . . 13
β’ (π£ β ran (π₯ β β* β¦
(-β[,)π₯)) β
(π£ β© β) β
ran (,)) |
109 | 76, 108 | jaoi 856 |
. . . . . . . . . . . 12
β’ ((π£ β ran (π₯ β β* β¦ (π₯(,]+β)) β¨ π£ β ran (π₯ β β* β¦
(-β[,)π₯))) β
(π£ β© β) β
ran (,)) |
110 | 41, 109 | sylbi 216 |
. . . . . . . . . . 11
β’ (π£ β (ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
β (π£ β© β)
β ran (,)) |
111 | | elssuni 4941 |
. . . . . . . . . . . . . 14
β’ (π£ β ran (,) β π£ β βͺ ran (,)) |
112 | | unirnioo 13423 |
. . . . . . . . . . . . . 14
β’ β =
βͺ ran (,) |
113 | 111, 112 | sseqtrrdi 4033 |
. . . . . . . . . . . . 13
β’ (π£ β ran (,) β π£ β
β) |
114 | | df-ss 3965 |
. . . . . . . . . . . . 13
β’ (π£ β β β (π£ β© β) = π£) |
115 | 113, 114 | sylib 217 |
. . . . . . . . . . . 12
β’ (π£ β ran (,) β (π£ β© β) = π£) |
116 | | id 22 |
. . . . . . . . . . . 12
β’ (π£ β ran (,) β π£ β ran
(,)) |
117 | 115, 116 | eqeltrd 2834 |
. . . . . . . . . . 11
β’ (π£ β ran (,) β (π£ β© β) β ran
(,)) |
118 | 110, 117 | jaoi 856 |
. . . . . . . . . 10
β’ ((π£ β (ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
β¨ π£ β ran (,))
β (π£ β© β)
β ran (,)) |
119 | 40, 118 | sylbi 216 |
. . . . . . . . 9
β’ (π£ β ((ran (π₯ β β*
β¦ (π₯(,]+β))
βͺ ran (π₯ β
β* β¦ (-β[,)π₯))) βͺ ran (,)) β (π£ β© β) β ran
(,)) |
120 | | eleq1 2822 |
. . . . . . . . 9
β’ (π’ = (π£ β© β) β (π’ β ran (,) β (π£ β© β) β ran
(,))) |
121 | 119, 120 | syl5ibrcom 246 |
. . . . . . . 8
β’ (π£ β ((ran (π₯ β β*
β¦ (π₯(,]+β))
βͺ ran (π₯ β
β* β¦ (-β[,)π₯))) βͺ ran (,)) β (π’ = (π£ β© β) β π’ β ran (,))) |
122 | 121 | rexlimiv 3149 |
. . . . . . 7
β’
(βπ£ β
((ran (π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,))π’ = (π£ β© β) β π’ β ran (,)) |
123 | 39, 122 | sylbi 216 |
. . . . . 6
β’ (π’ β (((ran (π₯ β β*
β¦ (π₯(,]+β))
βͺ ran (π₯ β
β* β¦ (-β[,)π₯))) βͺ ran (,)) βΎt
β) β π’ β
ran (,)) |
124 | 123 | ssriv 3986 |
. . . . 5
β’ (((ran
(π₯ β
β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,)) βΎt β) β ran (,) |
125 | | tgss 22463 |
. . . . 5
β’ ((ran (,)
β TopBases β§ (((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,)) βΎt β) β ran (,)) β
(topGenβ(((ran (π₯
β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β* β¦
(-β[,)π₯))) βͺ ran
(,)) βΎt β)) β (topGenβran
(,))) |
126 | 37, 124, 125 | mp2an 691 |
. . . 4
β’
(topGenβ(((ran (π₯ β β* β¦ (π₯(,]+β)) βͺ ran (π₯ β β*
β¦ (-β[,)π₯)))
βͺ ran (,)) βΎt β)) β (topGenβran
(,)) |
127 | 36, 126 | eqsstri 4016 |
. . 3
β’
((ordTopβ β€ ) βΎt β) β
(topGenβran (,)) |
128 | 24, 127 | eqssi 3998 |
. 2
β’
(topGenβran (,)) = ((ordTopβ β€ ) βΎt
β) |
129 | | xrtgioo.1 |
. 2
β’ π½ = ((ordTopβ β€ )
βΎt β) |
130 | 128, 129 | eqtr4i 2764 |
1
β’
(topGenβran (,)) = π½ |