set x = the set ;
set R = the Order of { the set };
RelStr(# { the set }, the Order of { the set } #) is 1 -element RelStr ;
hence ex b1 being LATTICE st
( b1 is continuous & b1 is complete & b1 is strict ) ; :: thesis: verum