let T be non empty up-complete TopPoset; :: thesis: ( T is upper implies T is order_consistent )
assume A1: T is upper ; :: thesis: T is order_consistent
then reconsider BB = { ((downarrow x) `) where x is Element of T : verum } as prebasis of T ;
for x being Element of T holds
( downarrow x = Cl {x} & ( for N being eventually-directed net of T st x = sup N holds
for V being a_neighborhood of x holds N is_eventually_in V ) )
proof
let x be Element of T; :: thesis: ( downarrow x = Cl {x} & ( for N being eventually-directed net of T st x = sup N holds
for V being a_neighborhood of x holds N is_eventually_in V ) )

A2: downarrow x c= Cl {x}
proof
let a be object ; :: according to TARSKI:def 3 :: thesis: ( not a in downarrow x or a in Cl {x} )
assume A3: a in downarrow x ; :: thesis: a in Cl {x}
then reconsider a9 = a as Point of T ;
for G being Subset of T st G is open & a9 in G holds
{x} meets G
proof
let G be Subset of T; :: thesis: ( G is open & a9 in G implies {x} meets G )
assume A4: G is open ; :: thesis: ( not a9 in G or {x} meets G )
assume A5: a9 in G ; :: thesis: {x} meets G
reconsider v = a9 as Element of T ;
A6: v <= x by A3, WAYBEL_0:17;
G is upper by A1, A4, Th1;
then A7: x in G by A5, A6;
x in {x} by TARSKI:def 1;
hence {x} meets G by A7, XBOOLE_0:3; :: thesis: verum
end;
hence a in Cl {x} by PRE_TOPC:24; :: thesis: verum
end;
Cl {x} c= downarrow x
proof end;
hence downarrow x = Cl {x} by A2; :: thesis: for N being eventually-directed net of T st x = sup N holds
for V being a_neighborhood of x holds N is_eventually_in V

thus for N being eventually-directed net of T st x = sup N holds
for V being a_neighborhood of x holds N is_eventually_in V :: thesis: verum
proof
let N be eventually-directed net of T; :: thesis: ( x = sup N implies for V being a_neighborhood of x holds N is_eventually_in V )
assume x = sup N ; :: thesis: for V being a_neighborhood of x holds N is_eventually_in V
then A11: x = Sup by WAYBEL_2:def 1
.= sup (rng (netmap (N,T))) by YELLOW_2:def 5 ;
let V be a_neighborhood of x; :: thesis: N is_eventually_in V
A12: x in Int V by CONNSP_2:def 1;
FinMeetCl BB is Basis of T by YELLOW_9:23;
then A13: the topology of T = UniCl (FinMeetCl BB) by YELLOW_9:22;
Int V in the topology of T by PRE_TOPC:def 2;
then consider Y being Subset-Family of T such that
A14: Y c= FinMeetCl BB and
A15: Int V = union Y by A13, CANTOR_1:def 1;
consider Y1 being set such that
A16: x in Y1 and
A17: Y1 in Y by A12, A15, TARSKI:def 4;
consider Z being Subset-Family of T such that
A18: Z c= BB and
A19: Z is finite and
A20: Y1 = Intersect Z by A14, A17, CANTOR_1:def 3;
reconsider rngN = rng (netmap (N,T)) as Subset of T ;
rngN is directed by WAYBEL_2:18;
then ex a being Element of T st
( a is_>=_than rngN & ( for b being Element of T st b is_>=_than rngN holds
a <= b ) ) by WAYBEL_0:def 39;
then A21: ex_sup_of rngN,T by YELLOW_0:15;
defpred S1[ object , object ] means ex D1 being set st
( D1 = $1 & ( for i, j being Element of N st i = $2 & j >= i holds
N . j in D1 ) );
A22: for Q being object st Q in Z holds
ex b being object st
( b in the carrier of N & S1[Q,b] )
proof
let Q be object ; :: thesis: ( Q in Z implies ex b being object st
( b in the carrier of N & S1[Q,b] ) )

assume A23: Q in Z ; :: thesis: ex b being object st
( b in the carrier of N & S1[Q,b] )

then Q in BB by A18;
then consider v1 being Element of T such that
A24: Q = (downarrow v1) ` ;
x in (downarrow v1) ` by A16, A20, A23, A24, SETFAM_1:43;
then not x in downarrow v1 by XBOOLE_0:def 5;
then A25: not x <= v1 by WAYBEL_0:17;
not rngN c= downarrow v1 then consider w being object such that
A27: w in rngN and
A28: not w in downarrow v1 ;
reconsider w9 = w as Element of T by A27;
consider i being object such that
A29: i in dom the mapping of N and
A30: w9 = the mapping of N . i by A27, FUNCT_1:def 3;
reconsider i = i as Element of N by A29;
consider b being Element of N such that
A31: for l being Element of N st b <= l holds
N . i <= N . l by WAYBEL_0:11;
take b ; :: thesis: ( b in the carrier of N & S1[Q,b] )
thus b in the carrier of N ; :: thesis: S1[Q,b]
reconsider QQ = Q as set by TARSKI:1;
take QQ ; :: thesis: ( QQ = Q & ( for i, j being Element of N st i = b & j >= i holds
N . j in QQ ) )

thus QQ = Q ; :: thesis: for i, j being Element of N st i = b & j >= i holds
N . j in QQ

thus for j, k being Element of N st j = b & k >= j holds
N . k in QQ :: thesis: verum
proof
let j, k be Element of N; :: thesis: ( j = b & k >= j implies N . k in QQ )
assume that
A32: j = b and
A33: k >= j ; :: thesis: N . k in QQ
A34: N . i <= N . k by A31, A32, A33;
not N . i <= v1 by A28, A30, WAYBEL_0:17;
then not N . k <= v1 by A34, ORDERS_2:3;
then not N . k in downarrow v1 by WAYBEL_0:17;
hence N . k in QQ by A24, XBOOLE_0:def 5; :: thesis: verum
end;
end;
consider f being Function such that
A35: ( dom f = Z & rng f c= the carrier of N ) and
A36: for Q being object st Q in Z holds
S1[Q,f . Q] from FUNCT_1:sch 6(A22);
reconsider rngf = rng f as finite Subset of ([#] N) by A19, A35, FINSET_1:8;
[#] N is directed by WAYBEL_0:def 6;
then consider k being Element of N such that
k in [#] N and
A37: k is_>=_than rngf by WAYBEL_0:1;
take k ; :: according to WAYBEL_0:def 11 :: thesis: for b1 being Element of the carrier of N holds
( not k <= b1 or N . b1 in V )

let k1 be Element of N; :: thesis: ( not k <= k1 or N . k1 in V )
assume A38: k <= k1 ; :: thesis: N . k1 in V
now :: thesis: for Q being set st Q in Z holds
N . k1 in Q
let Q be set ; :: thesis: ( Q in Z implies N . k1 in Q )
assume A39: Q in Z ; :: thesis: N . k1 in Q
then A40: f . Q in rngf by A35, FUNCT_1:def 3;
then reconsider j = f . Q as Element of N ;
A41: j <= k by A37, A40;
S1[Q,f . Q] by A36, A39;
hence N . k1 in Q by A38, ORDERS_2:3, A41; :: thesis: verum
end;
then A42: N . k1 in Y1 by A20, SETFAM_1:43;
Y1 c= union Y by A17, ZFMISC_1:74;
then A43: N . k1 in Int V by A15, A42;
Int V c= V by TOPS_1:16;
hence N . k1 in V by A43; :: thesis: verum
end;
end;
hence T is order_consistent ; :: thesis: verum