 reserve L for Lattice;
 reserve I,P for non empty ClosedSubset of L;

theorem ThC:
  L is upper-bounded & Top L in I implies latt (L,I) is upper-bounded
    & Top latt (L,I) = Top L
  proof
    set b9 = the Element of latt (L,I);
    reconsider b = b9 as Element of L by FILTER_2:68;
    assume
A0: L is upper-bounded & Top L in I;
    set c = Top L;
    reconsider c9 = c as Element of latt (L,I) by FILTER_2:72,A0;
    ex c9 being Element of latt (L,I) st
    for a9 being Element of latt (L,I) holds c9 "\/" a9 = c9 & a9 "\/" c9 = c9
    proof
    take c9;
    let a9 be Element of latt (L,I);
    reconsider a = a9 as Element of L by FILTER_2:68;
    thus c9 "\/" a9 = c "\/" a by FILTER_2:73 .= c9 by A0;
    hence thesis;
    end;
    hence
W1: latt (L,I) is upper-bounded by LATTICES:def 14;
    for a9 being Element of latt (L,I) holds c9 "\/" a9 = c9 & a9 "\/" c9 = c9
    proof
      let a9 be Element of latt (L,I);
      reconsider a = a9 as Element of L by FILTER_2:68;
      thus c9 "\/" a9 = c "\/" a by FILTER_2:73 .= c9 by A0;
      hence thesis;
    end;
    hence thesis by LATTICES:def 17,W1;
  end;
