Step |
Hyp |
Ref |
Expression |
1 |
|
hlhgt4.b |
|- B = ( Base ` K ) |
2 |
|
hlhgt4.s |
|- .< = ( lt ` K ) |
3 |
|
hlhgt4.z |
|- .0. = ( 0. ` K ) |
4 |
|
hlhgt4.u |
|- .1. = ( 1. ` K ) |
5 |
|
eqid |
|- ( le ` K ) = ( le ` K ) |
6 |
|
eqid |
|- ( join ` K ) = ( join ` K ) |
7 |
|
eqid |
|- ( Atoms ` K ) = ( Atoms ` K ) |
8 |
1 5 2 6 3 4 7
|
ishlat2 |
|- ( K e. HL <-> ( ( K e. OML /\ K e. CLat /\ K e. AtLat ) /\ ( A. x e. ( Atoms ` K ) A. y e. ( Atoms ` K ) ( ( x =/= y -> E. z e. ( Atoms ` K ) ( z =/= x /\ z =/= y /\ z ( le ` K ) ( x ( join ` K ) y ) ) ) /\ A. z e. B ( ( -. x ( le ` K ) z /\ x ( le ` K ) ( z ( join ` K ) y ) ) -> y ( le ` K ) ( z ( join ` K ) x ) ) ) /\ E. x e. B E. y e. B E. z e. B ( ( .0. .< x /\ x .< y ) /\ ( y .< z /\ z .< .1. ) ) ) ) ) |
9 |
|
simprr |
|- ( ( ( K e. OML /\ K e. CLat /\ K e. AtLat ) /\ ( A. x e. ( Atoms ` K ) A. y e. ( Atoms ` K ) ( ( x =/= y -> E. z e. ( Atoms ` K ) ( z =/= x /\ z =/= y /\ z ( le ` K ) ( x ( join ` K ) y ) ) ) /\ A. z e. B ( ( -. x ( le ` K ) z /\ x ( le ` K ) ( z ( join ` K ) y ) ) -> y ( le ` K ) ( z ( join ` K ) x ) ) ) /\ E. x e. B E. y e. B E. z e. B ( ( .0. .< x /\ x .< y ) /\ ( y .< z /\ z .< .1. ) ) ) ) -> E. x e. B E. y e. B E. z e. B ( ( .0. .< x /\ x .< y ) /\ ( y .< z /\ z .< .1. ) ) ) |
10 |
8 9
|
sylbi |
|- ( K e. HL -> E. x e. B E. y e. B E. z e. B ( ( .0. .< x /\ x .< y ) /\ ( y .< z /\ z .< .1. ) ) ) |