let L be lower-bounded sup-Semilattice; :: thesis: for S being non empty full SubRelStr of L st Bottom L in the carrier of S & the carrier of S is join-closed Subset of L holds
for x being Element of L holds () /\ the carrier of S is Ideal of S

let S be non empty full SubRelStr of L; :: thesis: ( Bottom L in the carrier of S & the carrier of S is join-closed Subset of L implies for x being Element of L holds () /\ the carrier of S is Ideal of S )
assume that
A1: Bottom L in the carrier of S and
A2: the carrier of S is join-closed Subset of L ; :: thesis: for x being Element of L holds () /\ the carrier of S is Ideal of S
let x be Element of L; :: thesis: () /\ the carrier of S is Ideal of S
Bottom L << x by WAYBEL_3:4;
then Bottom L in waybelow x by WAYBEL_3:7;
then reconsider X = () /\ the carrier of S as non empty Subset of S by ;
reconsider S1 = the carrier of S as join-closed Subset of L by A2;
A3: now :: thesis: for a, b being Element of S st a in X & b <= a holds
b in X
let a, b be Element of S; :: thesis: ( a in X & b <= a implies b in X )
reconsider a1 = a, b1 = b as Element of L by YELLOW_0:58;
assume that
A4: a in X and
A5: b <= a ; :: thesis: b in X
a in waybelow x by ;
then A6: a1 << x by WAYBEL_3:7;
b1 <= a1 by ;
then b1 << x by ;
then b in waybelow x by WAYBEL_3:7;
hence b in X by XBOOLE_0:def 4; :: thesis: verum
end;
(waybelow x) /\ S1 is join-closed by Th33;
hence (waybelow x) /\ the carrier of S is Ideal of S by ; :: thesis: verum