set A = the non empty Subset of the carrier' of C;
set O = the non empty Subset of the carrier of C;
not ConceptStr(# the non empty Subset of the carrier of C, the non empty Subset of the carrier' of C #) is empty ;
hence ex b1 being ConceptStr over C st
( b1 is strict & not b1 is empty ) ; :: thesis: verum