ConceptLattice C = LattStr(# (B-carrier C),(B-join C),(B-meet C) #) by CONLAT_1:def 20;
hence CP is Element of (ConceptLattice C) by CONLAT_1:31; :: thesis: verum