consider A being non empty Subset of ;
consider O being non empty Subset of ;
not ConceptStr(# O,A #) is empty by Def11;
hence ex b1 being ConceptStr of C st
( b1 is strict & not b1 is empty ) ; :: thesis: verum