set E = RelStr(# {{}},(id {{}}) #);
RelStr(# {{}},(id {{}}) #) is discrete ;
hence ex b1 being RelStr st
( b1 is discrete & b1 is finite & b1 is with_equivalence & not b1 is empty ) ; :: thesis: verum