let S be lower-bounded sup-Semilattice; :: thesis: for x being Element of holds
( x is compact iff ex a being Element of st x = downarrow a )

let x be Element of ; :: thesis: ( x is compact iff ex a being Element of st x = downarrow a )
thus ( x is compact implies ex a being Element of st x = downarrow a ) :: thesis: ( ex a being Element of st x = downarrow a implies x is compact )
proof end;
thus ( ex a being Element of st x = downarrow a implies x is compact ) :: thesis: verum
proof end;