let L be lower-bounded sup-Semilattice; :: thesis: for X being Subset of (InclPoset (Ids L)) holds sup X = downarrow (finsups ())
let X be Subset of (InclPoset (Ids L)); :: thesis: sup X = downarrow (finsups ())
reconsider a = downarrow (finsups ()) as Element of (InclPoset (Ids L)) by YELLOW_2:41;
A1: union X c= sup X by ;
A2: now :: thesis: for b being Element of (InclPoset (Ids L)) st b is_>=_than X holds
a <= b
let b be Element of (InclPoset (Ids L)); :: thesis: ( b is_>=_than X implies a <= b )
reconsider b1 = b as Ideal of L by YELLOW_2:41;
assume b is_>=_than X ; :: thesis: a <= b
then b >= sup X by YELLOW_0:32;
then sup X c= b1 by YELLOW_1:3;
then union X c= b1 by A1;
then downarrow (finsups ()) c= b1 by WAYBEL_0:61;
hence a <= b by YELLOW_1:3; :: thesis: verum
end;
A3: union X c= downarrow (finsups ()) by WAYBEL_0:61;
now :: thesis: for b being Element of (InclPoset (Ids L)) st b in X holds
b <= a
let b be Element of (InclPoset (Ids L)); :: thesis: ( b in X implies b <= a )
assume b in X ; :: thesis: b <= a
then b c= union X by ZFMISC_1:74;
then b c= downarrow (finsups ()) by A3;
hence b <= a by YELLOW_1:3; :: thesis: verum
end;
then a is_>=_than X ;
hence sup X = downarrow (finsups ()) by ; :: thesis: verum